Code:procedure TForm1.FormCreate(Sender: TObject); var NameBuf: array[0..80] of Char; SizeBuf: LongWord; begin SizeBuf := Sizeof(NameBuf); GetUserName(NameBuf, SizeBuf); Showmessage(NameBuf); end;
Results 1 to 1 of 1
Thread: [DELPHI] - Get Username
|
Click Here to Expand Forum to Full Width |