WINXP下好像没有WINIPCFG.EXE,那怎么获取自己的IP地址呢(不用IPCONFIG.EXE)(100分)

  • 主题发起人 主题发起人 sunyb
  • 开始时间 开始时间
WINIPCFG.EXE是Windows 9x/Me中的一个GUI应用程序,它的功能是检查并报告网络状态。在Windows XP中,WINIPCFG.EXE可以分别处理几个单独的网络连接,当双击其中一个时,就可以进行配置修改状态,或者仅仅查看当前状态。
 
function GetLocalComputerName: string;
var
Count: DWORD;
begin
Count := MAX_COMPUTERNAME_LENGTH + 1;
// set buffer size to MAX_COMPUTERNAME_LENGTH + 2 characters for safety
SetLength(Result, Count);
Win32Check(GetComputerName(PChar(Result), Count));
SetLength(Result, StrLen(PChar(Result)));
end;

function GetIPAddress(const HostName: string): string;
var
R: Integer;
WSAData: TWSAData;
HostEnt: PHostEnt;
Host: string;
SockAddr: TSockAddrIn;
begin
Result := '';
R := WSAStartup(MakeWord(1, 1), WSAData);
if R = 0 then
try
Host := HostName;
if Host = '' then
begin
SetLength(Host, MAX_PATH);
GetHostName(PChar(Host), MAX_PATH);
end;
HostEnt := GetHostByName(PChar(Host));
if HostEnt <> nil then
begin
SockAddr.sin_addr.S_addr := Longint(PLongint(HostEnt^.h_addr_list^)^);
Result := inet_ntoa(SockAddr.sin_addr);
end;
finally
WSACleanup;
end;
end;

 
你是找命令,还是想自己写程序??

 
如果要软件也可以!
下载地址:http://webpark.8u8.com/web/software/soft.htm
(影子剧场:有四个文件,运行第四个批处理文件,自动合并成setup.exe)
虽然是媒体播放器但也有查看ip的功能!
[:)]其实我是在发布软件!
 
直接双击托盘中的‘连接’图标就可以找到了,这是XP的新功能
 
楼上的,问题这么简单就好了,
人家是要在程序中检测呀。
 
使用ping和点击连接图标都可以的,
 

Similar threads

后退
顶部