Windows - Benutzername einlesen

[triggerhappy]

Servus,

An meinem PC arbeiten mehrere Personen mit unterschiedlichen Benutzerprofilen.
Ich möchte nun den aktuellen Benutzernamen in einer Datei speichern, sozusagen als Logdatei, mit Datum und Uhrzeit.
Datum und Uhrzeit hab ich schon, aber möchte noch den Benutzernamen dazuschreiben lassen.

Ist das überhaupt möglich, wenn ja, wie?
Gibt es vielleicht eine Komponente?

HILFE!

:wiejetzt:

[CalganX]

Hi und willkommen,
diese Möglichkeit gibt es:

Delphi-Quellcode:

function Benutzername: string;
var
  Buffer: Array[0..MAX_PATH+1] of Char;
  Size: DWORD;
begin
  size:=1024;
  GetUserName(Buffer, Size);
  Result:= StrPas(Buffer);
end;

Chris