API 函数WSAWaitForMultipleEvents在哪个.PAS文件中声明

Question

delphi没有定义
DWORD WSAWaitForMultipleEvents(
  DWORD cEvents,                  
  const WSAEVENT FAR *lphEvents,  
  BOOL fWaitAll,                  
  DWORD dwTimeOUT,                
  BOOL fAlertable                 
);
自己在pas中定义吧

Answer 1

如果你用delphi6，可以考虑到http://www.delphi-jedi.org/去看看。

Answer 2

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, myButton;
type
  TForm1 = class(TForm)
    myButton1: TmyButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  TWSAWaitForMultipleEvents=function(cEvents:DWORD;lphEvents:DWORD;fWaitAll:Boolean;dwTimeOUT:DWORD;fAlertable:boolean):DWORD;stdcall;
var
  Form1: TForm1;
  LibHandle: HINST;
  WSAWaitForMultipleEvents:TWSAWaitForMultipleEvents;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
  LibHandle:=LoadLibrary('ws2_32.dll');
  @WSAWaitForMultipleEvents:=GetProcAddress(LibHandle, 'WSAWaitForMultipleEvents');
  if @WSAWaitForMultipleEvents = nil then exit;
end;
end.