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;
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;