有个WINSOCK的问题！DELPHI怎样调用WSAStartup()？

Question

use
  WinSock;procedure ...;
var
  WSAData: TWSAData;
begin
  if WSAStartup($101, WSAData) = 0 then
  begin
    //Do actual operations here
    WSACleanup;
  end;
end;

Answer 1

可以先判断版本
wVersionRequested:Word;
WSAData:TWSAData;
nSockErr:integer;
begin
  wVersionRequested:=MakeWord(1,1);
  nSockErr:=WSAStartup(wVersionRequested,WSAData);
if (nSockErr!=0) then
  begin
    ShowMessage('不能用1.1版');
    halt;
  end;
 
end;
另外,可以直接用
 if WSAStartup(2,WSAData)=0 then
  begin
// add your code here
  end;

Answer 2

sorry搞错了
上面的是判断能不能启动dll文件
ShowMessage('不能调用dll');

Answer 3

if ((LOBYTE(WSAData,wVersion)<>1) or ((HIBYTE(WSAData.wVersion)<>1) then
   begin
     //加上出错提示
   end;