您好：方法很多，可参考，
procedure TForm1.Button2Click(Sender: TObject);
begin
 showmessage(ComputerName);
end;    function ComputerName : String;
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;
或
http://delphi.ktop.com.tw/quicksearch.exe/quicksearch?SearchStr=getComputerName
善用查询功能，有很多新的发现
     <>
============================
 为什么经过多年以后，得失的过程如此冷漠
============================

        

 
uses WinSock;    procedure TForm1.Button1Click(Sender: TObject);
var
  wVersionRequested:word;
  wsaData:TWSADATA;
  putHostname:Pchar;
  lenHostname,Ws,We,gh:Integer;
  PgetHostname:PHostEnt;
begin
  wVersionRequested:=2;
  lenHostname:=100;
  Ws:=WSAStartup(wVersionRequested,wsaData);
  gh:=gethostname(putHostname,lenHostname);
  We:=WSACleanup();
  ShowMessage(string(putHostname));
end;