how to use

[bluebilly]

有谁能告诉我怎么用这个API函数：GetUserName
给个例子，可以吗？

[newyj]

procedure TForm1.Button1Click(Sender: TObject);
var
name:pchar;
size:dword;
begin
getmem(name,255);
size := 255;
GetUserName(name,size);
caption := name;
freemem(name);
end;