如何知道本机的IP?
问题是我怎么知道我在Internet上的IP,而不是在局域网里的IP
如果知道呢?
问题是我怎么知道我在Internet上的IP,而不是在局域网里的IP
如果知道呢?
解决方案 »
- 类似于Delphi的reopen菜单一样的功能
- 如何调整TQRChart的Axis的title和label之间的距离?
- 多个线程如何在程序中多次[关闭后再打开](现在每次只能关闭部分线程,不能关闭所有线程)
- 在Delphi中有没有类似于VB中的doevents函数
- 来看看,兄弟们?
- 用ENTER 增加DBGRID内的值的光标问
- 学习DELPHI必须学习Object Pascal吗?
- 请教如何操作Tbitmap,以及ScanLine的使用,目的:在Bitmap中如何描点?
- 在线呼叫cobi(我是小新),快点出来帮帮我吧!!
- 用ClientDataSet开发单层文件型数据库应用程序时如何使用SQL语句?
- ADOStoredProc 参数传入时的错误?
- 如何根据数字,产生对应的GIF图片?
intAvailabelConnections : dword;//活动的拨号连接的实际数目intIndex : integer;
strTemp : string;
dwResult : DWORD;
dwSize : DWORD;
RASpppIP : TRASPPPIP;//活动的拨号连接的动态IP地址信息begin
connections[ 0 ].dwSize := sizeof(RASCONN);
longSize := MaxConnections * connections[ 0 ].dwSize;//接收活动连接的缓冲区大小intAvailabelConnections := 0;//获取所有活动的拨号连接的信息(连接句柄和设置信息)dwResult := RasEnumConnections( connections[ 0 ],longSize,intAvailabelConnections );if 0 < > dwResult then
memo1.lines.add( '错误:' + inttostr( dwResult ) )
else
begin
memo1.lines.add( '现有的活动连接有' +IntToStr( intAvailabelConnections ) + '个');//显示所有活动的拨号连接的信息(设置信息和动态IP地址)for intIndex := 0 to intAvailabelConnections - 1 do
begin//显示一个活动的拨号连接的设置信息strTemp := '连接名称:'+ StrPAS( connections[ intIndex ].szEntryName )+ ',设备类型:'+ StrPAS( connections[ intIndex ].szDeviceType )+ ',设备名称:'+ StrPAS( connections[ intIndex ].szDeviceName );
memo1.lines.add( strTemp );//显示一个活动的拨号连接的动态IP地址dwSize := SizeOf(RASpppIP);
RASpppIP.dwSize := dwSize;
dwResult := RASGetProjectionInfo( connections[ intIndex ].hRasConn,RASP_PppIp,RasPPPIP,dwSize);//获取动态IP地址
if 0 < > dwResult then
memo1.lines.add('错误:' + inttostr( dwResult ))
else
memo1.lines.add('动态地址:' + StrPas(RASpppIP.szIPAddress));
end;
end;end;
另外你可以试一试
winexec(pchar('command.com /c ipconfig>c:\temp.txt'),sw_hide);
运行完后可以去C盘看看
IPConfig得到的是网内部的IP;
IPConfig得到的是网内部的IP;