1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:

Function GetTextualSid(
  Sid : PSid;
  var TextualSid: String;
  var dwBufferLen : DWORD // using DWord instead of LPDWORD
  ) : Boolean;
var
 psia : PSIDIdentifierAuthority;
 dwSubAuthorities : DWORD;
 dwSidRev : DWORD;
 dwCounter : DWORD;
 dwSidSize : DWORD;
begin

  // delphi specific initialization
  dwSidRev := 1;        // assume 1
  Result := False;      // default return

  // Validate the binary SID.  return false if invalid
  if not IsValidSid (sid) then exit;

  // Get the identifier authority value from the SID.
  psia := GetSidIdentifierAuthority (sid);

  // Get the number of subauthorities in the SID.
  dwSubAuthorities := GetSidSubAuthorityCount(sid)^;

  // Compute the buffer length.
  // S-SID_REVISION- + IdentifierAuthority- +
  // subauthorities- + NULL
  dwSidSize := (15 + 12 + (12 * dwSubAuthorities)
  + 1) * SizeOf(Char);

  // Check input buffer length.
  // If too small, indicate the proper size
  // and set last error.
  if (dwBufferLen < dwSidSize) then
  begin
    dwBufferLen := dwSidSize;
    SetLastError(ERROR_INSUFFICIENT_BUFFER);
    Exit;
  end;

  // Add 'S' prefix and revision number to the string.
  TextualSid := Format ('S-%u-',
                [dwSidRev]);

  // Add SID identifier authority to the string.
  if (psia^.Value[0] <> 0) or (psia^.Value[1] <> 0) then
    begin
      TextualSid := TextualSid
                    + format ('0x%02x%02x%02x%02x%02x%02x',[
                    psia^.Value [0],
                    psia^.Value [1],
                    psia^.Value [2],
                    psia^.Value [3],
                    psia^.Value [4],
                    psia^.Value [5]])
   end
  else
    begin
       TextualSid := TextualSid +
                     format ('%u',
                     [DWORD (psia^.Value [5]) +
                      DWORD (psia^.Value [4] shl 8) +
                      DWORD (psia^.Value [3] shl 16) +
                      DWORD (psia^.Value [2] shl 24)]);
    end;


// Add SID subauthorities to the string.
  for dwCounter := 0 to dwSubAuthorities - 1 do
    begin
      TextualSid := TextualSid +
                    Format ('-%u',
                    [GetSidSubAuthority (sid, dwCounter)^])
    end;

 Result := True;
end;         // function gettextualsid					

1:
2:
3:
4:
5:
6:
7:
8:

function GetMySid: psid;
var
  StringSid: string;
begin
  StringSid:='S-x-x-x-x';
  ConvertStringSidToSid(GetMySid, pchar(StringSid));

end;					

1:
2:
3:
4:
5:
6:
7:

function GetMySid: pSID;
var
  SID :pSID;
begin
  ConvertStringSidToSid(SID, pchar('S-1–5-32-544'));
  Result:=SID;
end;					

1:
2:
3:
4:

function GetMySid: pSID;
begin
  ConvertStringSidToSid(Result, pchar('S-1–5-32-544'));
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

function ConvertStringSidToSid(  StringSid: PChar;  var Sid: PSID): Boolean; stdcall; external 'advapi32.dll' name 'ConvertStringSidToSidA';

procedure TForm1.Button1Click(Sender: TObject);
var
    SID: PSID;
    Name, Temp: String;
    NameLen, TempLen : DWORD;    
    SIDType: DWORD;
const
    LocalAdminGroupSID = 'S-1-5-32-544'; //Liefert 'VORDEFINIERT'
begin
    ConvertStringSIDToSID(Pchar(LocalAdminGroupSID), SID);
    NameLen := 255;
    Name := '';
    TempLen := 255;
    Temp := '';
    SetLength(Name, NameLen);
    SetLength(Temp, TempLen);
    LookupAccountSidA(nil, SID, PAnsiChar(@Name[1]), NameLen, PAnsiChar(@Name[1]), TempLen, SIDType);
    Name := StrPas(PChar(@Name[1]));
    Caption := Name;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

function GetAdminTest(const StrSID: String): string;
var 
  SID: PSID;
  Name, Temp: String;
  NameLen, TempLen : DWORD;
  SIDType: DWORD;
begin
  ConvertStringSIDToSID(Pchar(StrSID), SID);
  NameLen := 255;
  Name := '';
  TempLen := 255;
  Temp := '';
  SetLength(Name, NameLen);
  SetLength(Temp, TempLen);
  LookupAccountSidA(nil, SID, PAnsiChar(@Name[1]), NameLen, PAnsiChar(@Temp[1]), TempLen, SIDType);
  Name := StrPas(PChar(@Name[1]));
  Result := Name;
end;					

1:
2:
3:

LookupAccountSidA(nil, SID, PAnsiChar(@Name[1]), NameLen, PAnsiChar(@Name[1]), TempLen, SIDType);

LookupAccountSidA(nil, SID, PAnsiChar(@Name[1]), NameLen, PAnsiChar(@Temp[1]), TempLen, SIDType);					

1:
2:

FreeMemory(Sid); 
Sid := nil;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

{
  Author  : Michael Puff - http://www.michael-puff.de
  Date    : 2006-03-01
  License : PUBLIC DOMAIN
}

function ConvertStringSidToSid(StringSid: PWideChar; var Sid: PSID): Boolean; stdcall; external 'advapi32.dll' name
'ConvertStringSidToSidW';

function StrSIDToName(const StrSID: Widestring; var Name: string; var SIDType: DWORD): Boolean;
var
  SID               : PSID;
  Buffer            : PChar;
  NameLen, TempLen  : Cardinal;
  err               : Boolean;
begin
  err := ConvertStringSIDToSID(PWideChar(StrSID), SID);
  if err then
  begin
    NameLen := 0;
    TempLen := 0;
    LookupAccountSidA(nil, SID, nil, NameLen, nil, TempLen, SIDType);
    GetMem(Buffer, NameLen);
    try
      err := LookupAccountSidA(nil, SID, Buffer, NameLen, nil, TempLen, SIDType);
      if err then
        SetString(Name, Buffer, Namelen);
    finally
      FreeMem(Buffer);
    end;
  end;
  if Assigned(SID) then
    LocalFree(Cardinal(SID));
  result := err;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Name              : string;
  SIDType: DWORD;
begin
  if StrSIDToName('S-1-5-32-544', Name, SIDType) then
    ShowMessage(Name)
  else
    ShowMessage(SysErrorMessage(GetLastError));
end;