一个小问题： 用DELPHI如何得到当前电脑的名称？

Question

应该可以用 API 得到。
gethostbyaddr()

Answer 1

var
   CNameBuffer : PChar;
  fl_loaded : Boolean;
  CLen : ^DWord;begin    GetMem(CNameBuffer,255);
    New(CLen);
    CLen^:= 255;    fl_loaded := GetComputerName(CNameBuffer,CLen^);    if fl_loaded then
      ComputerName := StrPas(CNameBuffer)
    else
      ComputerName := 'Unkown';    FreeMem(CNameBuffer,255);
    Dispose(CLen);end;

Answer 2

忘了
 ComputerName:string;

Answer 3

ok了！！！
多谢aningstar(aningstar)！ 给你加分！

Answer 4

刚写了一个简单的
procedure TForm1.Button1Click(Sender: TObject);
var
  Len : DWord;
  ComputerName:string;
begin    Len:= 255;
    setlength(computername,255);
    GetComputerName(pchar(ComputerName),Len);
    setlength(ComputerName,strLen(pchar(ComputerName)));
   ShowMessage(ComputerName);
end;

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
var NameOfComputer :pchar ;
Len :Dword ;
begin
  NameOfComputer :='' ;
  len :=255;
  windows.GetComputerName(NameOfComputer,Len);
  Application.MessageBox(NameOfComputer,'提示',0);
end;