unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls ,winsock;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

function GetDomainName(Ip: string): string;

var
  Form1: TForm1;

implementation

{$R *.DFM}

function GetDomainName(Ip: string): string;
//獲得局域網(wǎng)內(nèi)IP地址的機(jī)器名,只對(duì)網(wǎng)絡(luò)設(shè)置設(shè)為允許其它人使用我的機(jī)子的機(jī)器有效
var
  pH                : PHostent;
  data              : twsadata;
  ii                : dword;
begin
  WSAStartup($101, Data);
  ii := inet_addr(pchar(ip));
  pH := gethostbyaddr(@ii, sizeof(ii), PF_INET);
  if (ph <> nil) then
    result := pH.h_name
  else
    begin
      result := '未知的計(jì)算機(jī)';
    end;
  WSACleanup;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit2.Text:=GetDomainName(Edit1.Text);
end;

end.