Hallo,
hiermit kann man sich den aktuell eingeloggten User anschauen. Ob und wozu es Sinn macht sei mal dahin gestellt.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
function GetUser: String;
var
Buffer: Array[0..MAX_COMPUTERNAME_LENGTH +1] of Char;
Size: DWord;
begin
Size := Pred(SizeOf(Buffer));
Windows.GetUserName(Buffer, Size);
Result := StrPas(Buffer);
end;
begin
ShowMessage(GetUser);
end;
Grüsse, Daniel
