获取计算机用户名

procedure TForm1.Button1Click(Sender: TObject);
var
   users:pchar;
   i:cardinal;
begin
   i:=255;
   getmem(users,255); //分配内存
   getusername(users,i);//获取用户名
   edit1.Text:=users;//显示
end;