Subversion Repositories userdetect2

Rev

Rev 68 | Rev 82 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 68 Rev 81
Line 88... Line 88...
88 
  end;
 88 
  end;
89 
 
 89 
 
90 
  Result := True;
 90 
  Result := True;
91 
end;
 91 
end;
92 
 
 92 
 
93 
function ObtainTextSid(hToken: THandle; pszSid: PChar;
 93 
function ObtainTextSid(hToken: THandle; pszSid: PChar; var dwBufferLen: DWORD): BOOL;
94 
  var dwBufferLen: DWORD): BOOL;
 - 
 
95 
var
 94 
var
96 
  dwReturnLength: DWORD;
 95 
  dwReturnLength: DWORD;
97 
  dwTokenUserLength: DWORD;
 96 
  dwTokenUserLength: DWORD;
98 
  tic: TTokenInformationClass;
 97 
  tic: TTokenInformationClass;
99 
  ptu: Pointer;
 98 
  ptu: Pointer;
Line 131... Line 130...
131 
function GetCurrentUserSid: string;
 130 
function GetCurrentUserSid: string;
132 
var
 131 
var
133 
  hAccessToken: THandle;
 132 
  hAccessToken: THandle;
134 
  bSuccess: BOOL;
 133 
  bSuccess: BOOL;
135 
  dwBufferLen: DWORD;
 134 
  dwBufferLen: DWORD;
136 
  szSid: array[0..260] of Char;
 135 
  szSid: array[0..MAX_PATH] of Char;
137 
begin
 136 
begin
138 
  Result := '';
 137 
  Result := '';
139 
 
 138 
 
140 
  bSuccess := OpenThreadToken(GetCurrentThread, TOKEN_QUERY, True,
 139 
  bSuccess := OpenThreadToken(GetCurrentThread, TOKEN_QUERY, True,
141 
    hAccessToken);
 140 
    hAccessToken);