Daten aus der Registry lesen mit TService

[Olli]

Delphi-Quellcode:

function ConvertSidToStringSidW(Sid: PSID; var StringSid: PWideChar): BOOL; stdcall; external 'Advapi32.dll';

function SIDToStr(SID: PSID): WideString;
var
  lpcsSid: PWideChar;
begin
   Result := 'Error';
   if(ConvertSidToStringSidW(SID, lpcsSid))
   try
     Result := WideString(lpcsSid);
   finally
     LocalFree(lpcsSid);
   end;
end;