Delphi LoadUserProfile

最新推荐文章于 2023-05-14 17:29:52 发布

gj333

最新推荐文章于 2023-05-14 17:29:52 发布

阅读量1.1k

点赞数

本文详细介绍了如何通过用户身份令牌加载个人配置文件，并获取用户名，同时提供了错误处理和日志记录机制。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

type
LPPROFILEINFOA = ^_PROFILEINFOA;
_PROFILEINFOA = record
dwSize : DWORD;   // Set to sizeof(PROFILEINFO) before calling
dwFlags   : DWORD;   // See flags above
lpUserName : LPSTR;   // User name (required)
lpProfilePath : LPSTR;   // Roaming profile path (optional, can be NULL)
lpDefaultPath : LPSTR;   // Default user profile path (optional, can be NULL)
lpServerName : LPSTR;   // Validating domain controller name in netbios format (optional, can be NULL but group NT4 style policy won't be applied)
lpPolicyPath : LPSTR;   // Path to the NT4 style policy file (optional, can be NULL)
hProfile : THandle; // Filled in by the function. Registry key handle open to the root.
  end;

function LoadUserProfile(hToken : THandle; var lpProfileInfo : _PROFILEINFOA): BOOL; stdcall; external 'userenv.dll' name 'LoadUserProfileA';
function UnloadUserProfile(hToken : THandle; hProfile : THandle): BOOL; stdcall; external 'userenv.dll';

var
LoadUserProfileLog: String;

  //userprofile handles
h_Token   : Cardinal;
h_Profile : Cardinal;

implementation

uses ComServ, SysUtils;

class function TManager.LoadProfile() : Boolean;
var
h_Process   : Cardinal;
lpProfileInfo : _PROFILEINFOA;

  //username
UserName : string;
UserNameLen : Dword;

debugFile   : TextFile;
data : TDateTime;

begin
h_Token   := 0;
h_Profile := 0;

  try
LoadUserProfileLog := 'Before GetCurrentProcess()'#13#10;
h_Process := GetCurrentProcess();
  if(OpenProcessToken(h_Process,TOKEN_QUERY or TOKEN_IMPERSONATE or TOKEN_DUPLICATE, h_Token)) then
  begin
LoadUserProfileLog := LoadUserProfileLog + #9'After OpenProcessToken call'#13#10;
UserNameLen := 255;
  SetLength(userName, UserNameLen) ;
  If GetUserName(PChar(UserName), UserNameLen) Then
  begin
LoadUserProfileLog := LoadUserProfileLog + #9'After GetUserName(): '+Copy(UserName,1,UserNameLen-1)+#13#10;
  FillChar(lpProfileInfo,SizeOf(_PROFILEINFOA),#0);
LoadUserProfileLog   := LoadUserProfileLog + #9'Po FillChar'#13#10;
lpProfileInfo.dwSize     := SizeOf(lpProfileInfo);
lpProfileInfo.dwFlags   := PI_NOUI;
lpProfileInfo.lpUserName := PChar(UserName);

LoadUserProfileLog := LoadUserProfileLog + #9'LoadUserProfile call'#13#10;
  if not LoadUserProfile(h_Token,lpProfileInfo) then
  begin
LoadUserProfileLog := LoadUserProfileLog + #9'LoadUserProfile error: '+ SysErrorMessage(GetLastError)+#13#10;
h_Profile := lpProfileInfo.hProfile;
Result := False;
  end
  else
  begin
LoadUserProfileLog := LoadUserProfileLog + #9'LoadUserProfile call success'#13#10;
h_Profile := lpProfileInfo.hProfile;
Result := True;
  end;
  end;
  end
  except on E:Exception do
  begin
LoadUserProfileLog := LoadUserProfileLog + 'Initialize component error: '+E.Message+#13#10;
  end;
  end;
end;