%USERNAME%

[hobbie]

Hi,

wie kann man unter Delphi3 denn aktuellen USERNAME ermitteln (%USERNAME%)?

MfG

Harald

[Cesario Lababidi]

Wie wäre es mit der Win32 API

GetUserName(lpBuffer: PChar; var nSize: DWORD);

Ein Beispiel :

procedure TForm1.FormCreate(Sender: TObject);
VAR
Buffer : Array[0..225] OF Char;
BufferSize : DWORD;
begin
IF GetUserName ( Buffer,BufferSize) THEN
Begin
Label1.Caption := Buffer;
End;
end