北京迪阳公司 软件版本:41发行时间:2000年2月 If Not Terminate VBThread( hNewThread)’终止子线程 MsgBox"创建子线程失败 Exit Sub End If 创建内核系统事件 Visual ctt. HANDLE Create System Event(void Visual basic Declare Function Create SystemEvent Lib"U18"(As Long Delphi Function Create EventO: Integer; StdCall; External 'U18 Name 'Create SystemEvent Lab view w[3 Return hEvent Object 功能:创建系统内核事件对象,它将被用于中断事件响应或数据采集线程同步事件 参数:无任何参数 返回值:若成功,系统内核事件对象句柄,否则返回-1(或 INVALID HANDLE VALUE) Visualc++程序举例: (hEvent==INVALID HANDLE VALUE MessageBox“创建内核事件失败”) rm,∥退出该函数 Visual basic程序举例: Event= Create SystemEvento’创建内核事件 If hEvent INVALID HANDLE VALUE Then Msgbox"创建事件对象失败 Exit sub 、文件对象操作函数 创建设备文件对象 函数原型 Visual ctt. HandLe CreateFileObject HANDLE dEvice LPCTSTR NewFileName int Mode) Visual basic Declare Function CreateFileObject LibU18"(By Val hDevice As Long, By Val NewFileName As String, By Val Mode As long )As Long Delphis Function Create FileObject(hDevice: Integer; NewFileName: string; Mode: Integer): L stdcall; external U18 name'CreateFileObject北京迪阳公司 软件版本：4.1 发行时间：2000 年 2 月 33 ： If Not TerminateVBThread (hNewThread) ' 终止子线程 MsgBox "创建子线程失败" Exit Sub End If ： 创建内核系统事件 Visual C++: HANDLE CreateSystemEvent(void); Visual Basic: Declare Function CreateSystemEvent Lib " U18 " () As Long Delphi: Function CreateSystemEvent():Integer; StdCall; External 'U18' Name 'CreateSystemEvent'; LabView: Return hEvent Object CreateSystemEvent 功能：创建系统内核事件对象,它将被用于中断事件响应或数据采集线程同步事件。 参数：无任何参数 返回值：若成功，系统内核事件对象句柄，否则返回－1(或 INVALID_HANDLE_VALUE)。 Visual C++程序举例： ： HANDLE hEvent; hEvent=CreateSystemEvent () if(hEvent==INVALID_HANDLE_VALUE) MessageBox(“创建内核事件失败…”); return; // 退出该函数 } ： Visual Basic 程序举例: ： hEvent = CreateSystemEvent() ' 创建内核事件 If hEvent = INVALID_HANDLE_VALUE Then MsgBox "创建事件对象失败" Exit Sub End If ： 二、 文件对象操作函数 创建设备文件对象 函数原型： Visual C++: HandLe CreateFileObject ( HANDLE hDevice, LPCTSTR NewFileName, int Mode) Visual Basic: Declare Function CreateFileObject Lib "U18" (ByVal hDevice As Long, _ ByVal NewFileName As String, _ ByVal Mode As Long ) As Long Delphi: Function CreateFileObject (hDevice : Integer; NewFileName: string; Mode: Integer):LongInt; stdcall; external 'U18' name ' CreateFileObject ';