问题可能很简单,我正在尝试使用此代码:
var
lpProfileDir : tChar;
lpProfileSize : Cardinal;
token : tHandle;
GuestDir,GuestUser : String;
begin
GuestUser:=RadioGroup1.Items[RadioGroup1.ItemIndex];
if LogonUser(PChar(GuestUser), nil, nil, LOGON32_LOGON_SERVICE, LOGON32_PROVIDER_DEFAULT, token) then
begin
SetLength(GuestDir, MAX_PATH);
ZeroMemory(@GuestDir[1], MAX_PATH);
lpProfileSize:=MAX_PATH;
if GetUserProfileDirectoryA(token, PChar(GuestDir), lpProfileSize) then
begin
ShowMessage(GuestDir);
...
现在,这将返回当前用户的个人资料目录。请记住,我想在 Windows XP/Vista/7/8 下使用这个应用程序。