谁完成此题,可得300分!!能在程序中判断并安装Tcp/ip协议吗? (100分)

ranxg · 2003-03-09

续前帖http://www.delphibbs.com/delphibbs/dispq.asp?lid=1655090
好象windows自带有Tcp/ip协议,每次都是手动安装,请问,在客户机子上
能通过程序,判断并安装Tcp/ip协议吗?

zw84611 · 2003-03-09

uses WinSock;

var
WSAData: TWSAData;
begin
if WSAStartup($101, WSAData)=1 then ShowMessage('StartUp Error!');
end;

ranxg · 2003-03-09

WSAStartup是什么函数?
怕不会这么简单就安装了!!

wenqy · 2003-03-12

关注!!

mao · 2003-03-12

好像就是那样简单，WSAStartup主要是测试一下计算机上有没有winsock支持。

ranxg · 2003-03-13

光测试不行,能不能程序直接安装?

qingrj · 2003-03-14

发给你个例子,不知行不行!!

ranxg · 2003-03-14

多人接受答案了。