通过以下示例，InstallShield可以用WINSOCK获取IP地址，可将以下文件保存为tcpip.rul

#defineWSADESCRIPTION_LEN256

#defineWSASYS_STATUS_LEN128

typedef

WSAData

begin

INTwVersion;

INTwHighVersion;

charszDescription[WSADESCRIPTION_LEN+1];

charszSystemStatus[WSASYS_STATUS_LEN+1];

shortiMaxSockets;

shortiMaxUdpDg;

POINTERlpVendorInfo;

end;

WSADatastructWSAData;

WSADataPOINTERpWSAData;

typedefHostEnt

begin

POINTERph_name;

POINTERph_aliases;

shorth_addrtype;

shorth_length;

POINTERph_addr_list;

end;

HostEntstructHostEnt;

HostEntPOINTERpHostEnt;

SHORTnlen;

NUMBERnIPNetAddr;

NUMBERnVersion;

STRINGszMsg;

STRINGszDefault;

STRINGszURL;

STRINGszPath;

NUMBERnRC;

NUMBERnRC2;

STRINGszHostName;

STRINGszMYIPAddr;

POINTERpWinSockReturn;

typedefIPName

begin

STRINGszIPAddr[100];

end;

IPNameLocalIPName;

IPNamePOINTERpLocalIPName;

typedefIPAddrList

begin

POINTERpIPAddr;

end;

IPAddrListstructIPAddrList;

IPAddrListPOINTERpIPAddrList;

typedefIPAddPtr

begin

LONGnIPAddr;

end;

IPAddPtrstructIPAddPtr;

IPAddPtrPOINTERpIPAddPtr;

POINTERpIN_Addr_Struct;

prototypePOINTERwsock32.gethostbyname(BYREFSTRING);

prototypePOINTERwsock32.gethostname(BYREFSTRING,NUMBER);

prototypePOINTERwsock32.WSAStartup(INT,POINTER);

prototypePOINTERwsock32.inet_ntoa(NUMBER);

prototypePOINTERwsock32.WSACleanup();

prototypeintwsock32.WSAGetLastError();

program

pWSAData=&structWSAData;

nRC=UseDLL("wsock32.dll");

pWSAData->wHighVersion=1;

pWSAData->wVersion=1;

nVersion=0x02000002;//0x01000001

pWinSockReturn=WSAStartup(nVersion,pWSAData);

pWinSockReturn=gethostname(szHostName,100);

pHostEnt=gethostbyname(szHostName);

nlen=pHostEnt->h_length;

pIPAddPtr=pHostEnt->ph_addr_list;

pIPAddPtr=*pIPAddPtr;

nIPNetAddr=*pIPAddPtr;

//nIPNetAddr=pIPAddPtr->nIPAddr;

pLocalIPName=inet_ntoa(nIPNetAddr);

szMYIPAddr=pLocalIPName->szIPAddr;

MessageBox(szMYIPAddr,INFORMATION);

WSACleanup();

exit;