procedure TForm1.Button1Click(Sender: TObject);
Var
lpBuffer :Array[1..64] of Char;
nSize :Cardinal;
sUserName : String;
Begin
//取登录用户名
nSize := 64;
GetUserName(@lpBuffer, nSize);
sUserName := lpBuffer;
sUserName := Copy(sUserName, 1, nSize-1);
Edit1.Text := sUserName;
end;
