procedure TForm1.Button1Click(Sender: TObject);
var
users:pchar;
i:cardinal;
begin
i:=255;
getmem(users,255); //分配内存
getusername(users,i);//获取用户名
edit1.Text:=users;//显示
end;
获取计算机用户名
最新推荐文章于 2021-08-19 20:28:15 发布
procedure TForm1.Button1Click(Sender: TObject);
var
users:pchar;
i:cardinal;
begin
i:=255;
getmem(users,255); //分配内存
getusername(users,i);//获取用户名
edit1.Text:=users;//显示
end;