windows - 如何使用Delphi查找Windows用户(不是当前用户)的配置文件目录？

问题很简单，我正在尝试使用以下代码:

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下使用此应用程序。

最佳答案

尝试使用 GetUserProfileDirectory 而不是SHGetFolderPath。

示例(您需要在UserEnv.dll中为GetUserProfileDirectory绑定(bind)):

if LogonUser(PChar(GuestUser), 0, 0, LOGON32_LOGON_INTERACTIVE, LOGON32_PROVIDER_DEFAULT, token) then
begin
  SetLength(GuestDir, MAX_PATH);
  ZeroMemory(@GuestDir[1], MAX_PATH);
  if Succeeded(GetUserProfileDirectoryA(token, PChar(GuestDir), MAX_PATH)) then
    ShowMessage(GuestDir);
end;

关于windows - 如何使用Delphi查找Windows用户(不是当前用户)的配置文件目录？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/19347916/