Subversion Repositories userdetect2

Rev

Rev 82 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 82 Rev 98
Line 174... Line 174...
174 
  end;
 174 
  end;
175 
 
 175 
 
176 
type
 176 
type
177 
  TFuncConvertSidToStringSid = function(Sid: PSID; out StringSid: PChar): BOOL; stdcall;
 177 
  TFuncConvertSidToStringSid = function(Sid: PSID; out StringSid: PChar): BOOL; stdcall;
178 
var
 178 
var
179 
  dllHandle: Cardinal;
 179 
  dllHandle: HMODULE;
180 
  fConvertSidToStringSid: TFuncConvertSidToStringSid;
 180 
  fConvertSidToStringSid: TFuncConvertSidToStringSid;
181 
  StringSid : PChar;
 181 
  StringSid : PChar;
182 
begin
 182 
begin
183 
  dllHandle := LoadLibrary(advapi32);
 183 
  dllHandle := LoadLibrary(advapi32);
184 
  if dllHandle = 0 then
 184 
  if dllHandle = 0 then