[delphi] Angemeldeter Benutzer

[Wolfgang]

Hallo!

Wie bekomme ich in Delphi den aktuell angemeldeten Benutzer heraus?

Wolfgang

[Anonym]

API-Proc GetUserName

var
clBuffer: DWord;
Buffer: string;

begin
clBuffer := 255;
SetLength(Buffer, clBuffer);
if GetUserName(pChar(Buffer), clBuffer) then
ShowMessage(Buffer)
else
ShowMessage(‚unknown ho‘);
end;

[Wolfgang]

Dankedankedankedanke!! oT
…