伴水大侠快来

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  ComputerName: array[0..MAX_COMPUTERNAME_LENGTH+1] of Char;
  Size: Cardinal;
//      ~~~~~~~~替换成Cardinal类型
begin
  {initialize the computer name size variable}
  Size := MAX_COMPUTERNAME_LENGTH+1;
  {retrieve the computer name}
  if GetComputerName(ComputerName, Size) then
//                                 ~~~~实型参数类型必须统一
    Edit1.Text := StrPas(Computername)
  else Showmessage('Computer Name Not Found');
end;