26 lines
1.0 KiB
QBasic
26 lines
1.0 KiB
QBasic
Attribute VB_Name = "Common_Module"
|
|
Public Const INVALID_HANDLE_VALUE = -1
|
|
Public Const INFINITE = &HFFFFFFFF ' Infinite timeout
|
|
|
|
' ΢Èí¹«Ë¾WIN32 API½Ó¿Ú
|
|
Declare Function GetLastError Lib "kernel32" () As Long
|
|
Declare Function ResumeThread Lib "kernel32" (ByVal hThread As Long) As Long
|
|
Declare Function SuspendThread Lib "kernel32" (ByVal hThread As Long) As Long
|
|
Declare Function WaitForSingleObject Lib "kernel32" (ByVal hEvent As Long, ByVal dwMilliseconds As Long) As Long
|
|
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
|
|
Declare Function SetThreadPriority Lib "kernel32" (ByVal hThread As Long, ByVal nPriority As Long) As Long
|
|
Declare Function SetEvent Lib "kernel32" (ByVal hEvent As Long) As Long
|
|
Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
|
|
Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsperCluster As Long, lpBytespersector As Long, lpNumberofFreeClusters As Long, lpTotalNumberofClusters As Long) As Long
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|