Windows 9x + ConvertSidToStringSid()

[blackdrake]

Hallo.

Ich arbeite an einer Delphi-Funktionssammlung (Unit), die sowohl unter Windows 9x als auch unter Windows NT laufen soll. Für NT-Systeme brauche ich eine Funktion, die die aktuelle SID des angemeldeten Benutzers herausfindet. Bei 9x Systemen wird diese Funktion überhaupt nicht angesprochen. Verwendet habe ich diese:

Delphi-Quellcode:

// [url]http://www.delphipraxis.net/post471470.html[/url]
function GetAccountSid(const Server, User: WideString; var Sid: PSID): DWORD;
var
  dwDomainSize, dwSidSize: DWord;
  R                 : LongBool;
  wDomain           : WideString;
  Use               : DWord;
begin
  Result := 0;
  SetLastError(0);
  dwSidSize := 0;
  dwDomainSize := 0;
  R := LookupAccountNameW(PWideChar(Server), PWideChar(User), nil, dwSidSize,
       nil, dwDomainSize, Use);
  if (not R) and (GetLastError = ERROR_INSUFFICIENT_BUFFER) then
  begin
    SetLength(wDomain, dwDomainSize);
    Sid := GetMemory(dwSidSize);
    R := LookupAccountNameW(PWideChar(Server), PWideChar(User), Sid,
         dwSidSize, PWideChar(wDomain), dwDomainSize, Use);
    if not R then
    begin
      FreeMemory(Sid);
      Sid := nil;
    end;
  end
  else
    Result := GetLastError;
end;

Diese habe ich dann folgendermaßen verwendet:

Delphi-Quellcode:

// Vorlage von
// [url]http://www.latiumsoftware.com/en/pascal/0014.php[/url]
function GetLoginNameW: widestring;
var
  Buffer: array[0..255] of widechar;
  Size: dword;
begin
  Size := 256;
  if GetUserNameW(Buffer, Size) then
    Result := Buffer
  else
    Result := 'User';
end;

// [url]http://www.delphipraxis.net/post471470.html[/url]
// Abgeändert
function GetMySID(): string;
var
  SID: PSID;
  strSID: PChar;
  s: String;
  err: DWORD;
begin
  SID := nil;
  
  err := GetAccountSid('', GetLoginNameW(), SID);

  if err = 0 then
  begin
    if ConvertSidToStringSid(SID, strSID) then
      s := strSID
    else
      s := SysErrorMessage(err);
  end
  else
    s := SysErrorMessage(err);

  result := s;
end;

GetMySID() wird nur verwendet, wenn auch wirklich Windows NT vorliegt.

Jetzt musste ich aufgrund von GetMySID() noch folgende externe Funktion, die nur unter NT verfügbar ist, einbinden:

Delphi-Quellcode:

function ConvertSidToStringSid(SID: PSID; var StringSid: LPSTR): Boolean; stdcall;
  external 'advapi32.dll' name 'ConvertSidToStringSidA';

Ich habe stundenlang nach einer ähnlichen Funktion gesucht, die PSID -> String umwandelt, aber nichts dergleichen gefunden. Meine Anwendung will unter Win9x nicht starten, weil advapi32.dll diese Funktion nicht besitzt.

Was kann ich machen? Gibt es eine Lösung für dieses Problem? Gibt es eine vergleichbare Funktion, die PSID -> String umwandelt oder gar eine Alternative zu GetAccountSid(), die gleich einen String ausspuckt?

Da ich eine Unit schreibe, die OpenSource veröffentlicht werden soll, sind Antworten wie "sowohl eine 9x als auch eine NT-Anwendung kompilieren" irgendwie unpassend. Der Endbenutzer soll diese Unit nutzen können, ohne sich Gedanken machen zu müssen, welches Betriebssystem sein Endbenutzer nutzt - und es gibt Leute, wie mich, die Ihre Anwendungen stets Win95 Konform (versuchen) zu halten.

Gruß
blackdrake

[blackdrake]

Ich bin eben auf die glorreiche Idee gekommen, die DLL dynamisch einzubinden:

Delphi-Quellcode:

function Dyn_ConvertSidToStringSid(SID: PSID; var strSID: LPSTR): boolean;
type
  DllReg = function(SID: PSID; var StringSid: LPSTR): Boolean; stdcall;
var
  hDll: THandle;
  dr: DllReg;
begin
  result := false;
  hDll := LoadLibrary('ADVAPI32');
  if hDll <> 0 then
  begin
    @dr := GetProcAddress(hDll, 'ConvertSidToStringSid');
    if assigned(dr) then
    begin
      result := dr(SID, strSID);
    end;
  end;
end;

Das Problem ist nun, dass "result := dr(SID, strSID);" nie ausgeführt wird. Folglich ist assigned(dr) = false. (Natürlich auf meinem XP System getestet)

[mirage228]

Hi,

Also im obigen Code heißt die Funktion aus der DLL
'ConvertSidToStringSidA' mit dem "A" (ANSI) am Ende.

mfG
mirage228

[blackdrake]

Vielen Dank für den Tipp! Das war es.