User Name ermitteln

[Uwe Vossbeck]

Ich benötige für ein kleines Programm den Usernamen.

function Get_user_name:string;
var User_namechar;
dw :dword;

begin
result:='Kein User erkannt!';
if GetUserName(User_name,dw)then
result :=strpas(User_name);
end;

Ich bekomme als Result von GetUserName immer eine 0 zurück, also Fehler.

LookupAccountName - Funktion geht ebenfalls nicht.

Diese Funktion soll auf NT40,W2K,XP und Win98 laufen. Alle Rechner laufen im LAN. Was mache ich falsch?

[Günther Weber]

Im zweiten Parameter muß die Adresse der Variablen mit der max. Länge angegeben werden. In C:

unsigned long Len=20L;
GetUserName(UserName,&Len)

[Uwe Vossbeck]

Danke für den Tip,
war jedoch nicht ganz erfolgreich.

User_name:array[0..40]of char

war die Lösung