如何取得當前電腦的名稱和 IP 地址

var
  PCName: string;
  size: DWORD;
begin
  size := MAX_COMPUTERNAME_LENGTH + 1;
  SetLength(ComputerName, size - 1);
  if not GetComputerName(PChar(PCName), size) then
    PCName := '';
  ShowMessage('Comuter Name: ' + PCName);
end;

利用 TPowersock 元件的 LocalIp 屬性 --- 每個人都是一本書

呵呵,我試完時發現 hager 版主已答了，不過因為方法不同也留為參考罷  < class="code"> uses sockets procedure TForm1.Button1Click(Sender: TObject); var sock : TIpSocket; begin sock := TIpSocket.Create(self); showMessage(sock.localHostName); // if no internet host name, show computer name showMessage(sock.LocalHostAddr); // ip address showMessage(sock.LocalDomainName); end;

謝謝 hagar : PCName 照你說的已搞定, 可是 IP Address,我的機子裝的是Delphi7.0, 可我根本找不到 TPowerSock這個控件?

謝謝兩位版主的熱心幫助,你們的方法都很好,不過Justmade 的更簡單明了,這答題的得分還真為難我