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

[xiao_pei2001]

在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


謝謝

[victor_yang]

楼主，不好意思，我不玩access数据库的。下面的接上吧。

[KAPOK_CSDN]

GetSystemDirectory
GetWindowsDirectory
试试

[Liujc]

可以通过SHGetSpecialFolderLocation和ShGetPathFromIDList函数读取各种系统目录

[victor_yang]

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的目录。
其它的看帮助和其它资料吧。

[xiao_pei2001]

謝謝
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;


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

請各位大俠幫忙

謝謝

[masterjames]

ExpandEnvironmentStrings('%HOMEDRIVE%%HOMEPATH%',vPath,vSize);

[zhangabo]

%homepath%