Schon wieder Windowsnutzer auslesen

[DirkG]

Hallo !

Ich habe folgendes Problem. Ich müßte den Benutzernamen von Windows XP (findet sich z.B. unter Start - "Benutzer xy" abmelden) auslesen.
Alle Funktionen die ich gefunden habe, liefern nur den Nutzernamen im Netzwerk zurück ( siehe Beispiel). Welche API Funktion oder andere Möglichkeit gibt es?

Vieleicht noch einmal anders.

• Benutzername lang : Max Mustermann
• Benutzername kurz : Max

Was ich suche ist eine Funktion die den ersten Eintrag liefert. Alles was ich gefunden habe liefert aber nur den 2. Eintrag.

So hier nun das Beispiel für alle Besserwisser, die meinen es ist doch ganz einfach.
Noch einmal! So funktioniert es nicht!

Delphi-Quellcode:

// Funktion.....: User-Name (im Netzwerk)
function GetUserName:string;
var buffer : array[0..MAX_PATH] of Char; Size: DWORD; 
begin 
  Size := sizeof(buffer); 
  Windows.GetUserName(buffer, Size); 
  SetString(Result, buffer, lstrlen(buffer)); 
end;