Angemeldeter Benutzer auslesen

[Luckie]

Zitat von Popov:

Zitat von cherry:

hi luckie, gute Frage. Ich meinte den Benutzer der vor dem Bildschirm sitzt!
geht das?

Delphi-Quellcode:

function GetCurrentUserName: string;
const
  cnMaxUserNameLen = 254;
var
  sUserName: string;
  dwUserNameLen: DWORD;
begin
  dwUserNameLen := cnMaxUserNameLen - 1;
  SetLength(sUserName, cnMaxUserNameLen);
  GetUserName(PChar(sUserName), dwUserNameLen);
  SetLength(sUserName, dwUserNameLen);
  Result := sUserName;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetCurrentUserName);
end;

Der Code ist nicht von mir, aber k.A. woher ich den habe.

Rat mal, was der bei einem Dienst zurückgibt? Dass das nicht funktioniert wurde übrigens schon festgestellt.