Erhalten Sie den aktuellen Benutzer

Erhalten Sie den aktuellen Benutzer

Erhalten Sie den aktuellen Benutzer : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Anfahrt Login-Namen des aktuellen Benutzers.
Funktion der UserName: String;
var
Größe: DWord;
Name: PChar;
beginnen
Name: = StrAlloc(256);
Größe: = 255;
Wenn GetUsername(Name,Size) dann
Ergebnis: = String(Name)
sonst
Ergebnis: = '';
StrDispose(Name);
Ende;