远程控制篇:通过IP地址得到机器名
function iptoname(ip:string):string; var WSAData:TWSAData; p:PHostEnt; InetAddr:dword; begin WSAStartup(2, WSAData); InetAddr:= inet_addr(PChar(IP)); try p:=GetHostByAddr(@InetAddr, Length(IP), PF_Inet); result:=p^.h_name; except result:=''; end; end;
官本和 2001.4 
|