procedure TForm1.Button1Click(Sender: TObject);
var
pp:pChar;
ss:String;
ii:DWORD;
begin
GetMem(pp,255);
ii:=255;
GetUserName(pp,ii);
ss:=StrPas(pp);
ShowMessage(ss);
FreeMem(pp);
end;
var
pp:pChar;
ss:String;
ii:DWORD;
begin
GetMem(pp,255);
ii:=255;
GetUserName(pp,ii);
ss:=StrPas(pp);
ShowMessage(ss);
FreeMem(pp);
end;