Changeset 258 for Include/Classes/System/Threading
- Timestamp:
- May 21, 2007, 1:03:21 AM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Include/Classes/System/Threading/WaitHandle.ab
r237 r258 3 3 #ifndef __SYSTEM_THREADING_WAITHANDLE_AB__ 4 4 #define __SYSTEM_THREADING_WAITHANDLE_AB__ 5 6 'Namespace System 7 'Namespace Threading 8 9 Namespace Detail 10 TypeDef PFNSignalObjectAndWait = *Function(hObjectToSignal As HANDLE, hObjectToWaitOn As HANDLE, dwMilliseconds As DWord, bAlertable As DWord) As DWord 11 End Namespace 5 12 6 13 Class WaitHandle … … 62 69 End Function 63 70 71 Public 64 72 Static Function SignalAndWait(ByRef toSignal As WaitHandle, ByRef toWaitOn As WaitHandle, millisecondsTimeout As Long, exitContext As BOOL) As BOOL 65 TypeDef PFNSignalObjectAndWait = *Function(hObjectToSignal As HANDLE, hObjectToWaitOn As HANDLE, dwMilliseconds As DWord, bAlertable As DWord) As DWord 66 Dim pSignalObjectAndWait = GetProcAddress(GetModuleHandle("Kernel32.dll"), "SignalObjectAndWait") As PFNSignalObjectAndWait 73 Dim pSignalObjectAndWait = GetProcAddress(GetModuleHandle("Kernel32.dll"), "SignalObjectAndWait") As Detail.PFNSignalObjectAndWait 67 74 If pSignalObjectAndWait = 0 Then 68 75 ' PlatformNotSupportedException … … 105 112 End Class 106 113 114 'End Namespace 'Threading 115 'End Namespace 'System 116 107 117 #endif '__SYSTEM_THREADING_WAITHANDLE_AB__
Note:
See TracChangeset
for help on using the changeset viewer.