如何取得C:\Documents and Settings\Administrator路徑

xiao_pei2001 2004-10-11 08:10:57
在delphi 裡面如何取得C:\Documents and Settings\Administrator的路徑的api函數

注明:是在WINDOWS 2000 SERVER 中 cmd命令下的set home 指令的路徑 HOMEDRIVE=C; 和HOMEPATH=\Documents and Settings\Administrator\合成C:\Documents and Settings\Administrator的路徑

因為不同的用戶有不用的路徑.如:C:\Documents and Settings\Administrator和C:\Documents and Settings\其他USER


謝謝
...全文
250 7 打赏 收藏 举报
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
zhangabo 2004-10-11
  • 打赏
  • 举报
回复
%homepath%
masterjames 2004-10-11
  • 打赏
  • 举报
回复
ExpandEnvironmentStrings('%HOMEDRIVE%%HOMEPATH%',vPath,vSize);
xiao_pei2001 2004-10-11
  • 打赏
  • 举报
回复
謝謝
victor_yang(victoryang)

還有一個問題

如何動態的创建access加口令数据库

uses comobj,Access2000;

procedure TForm1.Button1Click(Sender: TObject);
var
Access:Variant;
begin
Access:=CreateOleObject('Access.Application');
try
Access.NewCurrentDatabase('c:\test');
finally
Access.Quit(acQuitSaveAll);
Access:=UnAssigned;
end;
end;


這種方法好像不能加口令的

請各位大俠幫忙

謝謝
victor_yang 2004-10-11
  • 打赏
  • 举报
回复
var
vPath:Pchar;
vSize:Integer;
begin
inherited;

vSize:=MAX_PATH;
vPath:=GetMemory(vSize);
ExpandEnvironmentStrings('%HOMEDRIVE%%HOMEPATH%',vPath,vSize);
ShowMessage(StrPas(vPath));
END;
这个是获得Administrator目录。
%HomeDrive%是system的安装盘。
%HomePath%是administrator的目录。
其它的看帮助和其它资料吧。
Liujc 2004-10-11
  • 打赏
  • 举报
回复
可以通过SHGetSpecialFolderLocation和ShGetPathFromIDList函数读取各种系统目录
KAPOK_CSDN 2004-10-11
  • 打赏
  • 举报
回复
GetSystemDirectory
GetWindowsDirectory
试试
victor_yang 2004-10-11
  • 打赏
  • 举报
回复
楼主,不好意思,我不玩access数据库的。下面的接上吧。
发帖
Windows SDK/API

1177

社区成员

Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
帖子事件
创建了帖子
2004-10-11 08:10
社区公告
暂无公告