Salut,
Pour ce genre de question, il faut fouiller dans la msdn.
GetUserName.procedure TForm1.Button1Click(Sender: TObject);
var
lpName: Array[0..255] of Char;
nSize: Cardinal;
begin
nSize:= Length(lpName);
GetUserName(lpName, nSize);
ShowMessage(lpName);
end;