马上回答，马上给分

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  ComputerName: array[0..MAX_COMPUTERNAME_LENGTH] of char;
  Size: Cardinal;
begin
  Size :=MAX_COMPUTERNAME_LENGTH+1; //MAX_COMPUTERNAME_LENGTH是一个常量,为15
  GetComputerName(ComputerName, Size);
  Label1.Caption :=Computername;
end;Win2000+D5

Answer 1

function TfrmBackup.GetMyName: String;//返回机器名称
var
  Name:PChar;
  lpSize:DWORD;begin
  lpSize:=MAX_COMPUTERNAME_LENGTH + 1;
  GetMem(Name,lpSize);
  try
    if GetComputerName(Name,lpSize) then
      Result:=StrPas(Name)
    else
      Result:='*';
  finally
    FreeMem(Name);
  end;
end;