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