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.