这个问题可能很简单,我正在尝试使用以下代码:
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下使用此应用程序。