getcomputname怎么用？请举例，谢谢

Question

getcomputname怎么用？请举例，谢谢

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  name:string;
  i:cardinal;
begin
  i:=50;
  setlength(name,i);
  getcomputername(pchar(name),i);
  edit1.Text:=name;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var aa: array [0..100] of char;
    ss: String;
    iSize: Cardinal;
begin
  iSize := SizeOf(aa);
  GetComputerName(aa,iSize);
  ss := StrPas(aa);
  ShowMessage(ss);
end;