Changeset 556 for trunk

Timestamp:

Jul 20, 2008, 1:41:42 AM (16 years ago)

Author:

NoWest

Message:

kernel系のAPIを追加。

File:

• trunk/ab5.0/ablib/src/api_system.sbp (modified) (2 diffs)

trunk/ab5.0/ablib/src/api_system.sbp

@@ -933 +933 @@
     WriteTotalTimeoutConstant As DWord
 End Type
+
 Type COMSTAT
- fCoBitFlds As Long 'See Comment in Win32API.Txt
- cbInQue As DWord
- cbOutQue As DWord
-End Type
+    fCoBitFlds As Long 'See Comment in Win32API.Txt
+    cbInQue As DWord
+    cbOutQue As DWord
+End Type
+
 Declare Function SetCommState Lib "kernel32" (hCommDev As HANDLE, ByRef dcb As DCB) As BOOL
 Declare Function SetCommTimeouts Lib "kernel32" (hFile As HANDLE ,ByRef pCommTimeouts As COMMTIMEOUTS) As BOOL
@@ -946 +948 @@
 Declare Function WaitCommEvent Lib "kernel32" (hFile As HANDLE, ByRef EvtMask As DWord, lpOverlapped As *OVERLAPPED)  As BOOL
 
+Const PURGE_TXABORT   =    &H0001
+Const PURGE_RXABORT   =    &H0002
+Const PURGE_TXCLEAR   =    &H0004
+Const PURGE_RXCLEAR   =    &H0008
+Declare Function PurgeComm Lib "kernel32" (hFile As HANDLE, dwFlags As DWord) As BOOL
+
 Declare Function OpenProcessToken Lib "advapi32" (ProcessHandle As HANDLE, DesiredAccess As DWord, ByRef TokenHandle As HANDLE) As BOOL
 Declare Function LookupPrivilegeValue Lib "advapi32" Alias _FuncName_LookupPrivilegeValue (lpSystemName As LPCTSTR, lpName As LPCTSTR, ByRef Luid As LUID) As Long