home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 1996 Counselor / COMPUSERVE.ISO / microsft / wrd7serv / win32api.txt < prev   
Encoding:
Text File  |  1995-02-24  |  81.5 KB  |  792 lines
  1. ' ---------------------------------------------------------------------
  2. '
  3. '    WIN32API.TXT -- Win32 API Declarations for WordBasic
  4. '
  5. '              Copyright (C) 1994 Microsoft Corporation
  6. '
  7. '
  8. '  This file contains only the Declare statements for Win32 APIs. Note 
  9. '  that declaring external functions in Window NT is case-sensitive. The
  10. '  Declare statements shown in this file indicate the correct case.
  11. '
  12. '  You have a royalty-free right to use, modify, reproduce and 
  13. '  distribute this file (and/or any modified version) in any way you 
  14. '  find useful, provided that you agree that Microsoft has no warranty, 
  15. '  obligation or liability for its contents.  Refer to the Microsoft 
  16. '  Windows Programmer's Reference for further information.
  17. '
  18. ' ---------------------------------------------------------------------
  19. '
  20. '  Kernel Section
  21. Declare Function InterlockedIncrement Lib "kernel32" Alias "InterlockedIncrement"(lpAddend As Long) As Long
  22. Declare Function InterlockedDecrement Lib "kernel32" Alias "InterlockedDecrement"(lpAddend As Long) As Long
  23. Declare Function InterlockedExchange Lib "kernel32" Alias "InterlockedExchange"(Target As Long, Value As Long) As Long
  24. '
  25. ' Loader Routines
  26. Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA"(hModule As Long, lpFilename As String, nSize As Long) As Long
  27. Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA"(lpModuleName As String) As Long
  28. Declare Function SetProcessShutdownParameters Lib "kernel32" Alias "SetProcessShutdownParameters"(dwLevel As Long, dwFlags As Long) As Long
  29. Declare Function GetProcessShutdownParameters Lib "kernel32" Alias "GetProcessShutdownParameters"(lpdwLevel As Long, lpdwFlags As Long) As Long
  30. Declare Sub FatalAppExit Lib "kernel32" Alias "FatalAppExitA"(uAction As Long, lpMessageText As String)
  31. Declare Function GetCommandLine Lib "kernel32" Alias "GetCommandLineA"() As String
  32. Declare Function GetEnvironmentVariable Lib "kernel32" Alias "GetEnvironmentVariableA"(lpName As String, lpBuffer As String, nSize As Long) As Long
  33. Declare Function SetEnvironmentVariable Lib "kernel32" Alias "SetEnvironmentVariableA"(lpName As String, lpValue As String) As Long
  34. Declare Function ExpandEnvironmentStrings Lib "kernel32" Alias "ExpandEnvironmentStringsA"(lpSrc As String, lpDst As String, nSize As Long) As Long
  35. Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA"(lpLibFileName As String) As Long
  36. Declare Sub FreeLibrary Lib "kernel32" Alias "FreeLibrary"(hLibModule As Long)
  37. Declare Function WinExec Lib "kernel32" Alias "WinExec"(lpCmdLine As String, nCmdShow As Long) As Long
  38. Declare Sub DebugBreak Lib "kernel32" Alias "DebugBreak"()
  39. Declare Function ContinueDebugEvent Lib "kernel32" Alias "ContinueDebugEvent"(dwProcessId As Long, dwThreadId As Long, dwContinueStatus As Long) As Long
  40. Declare Function DebugActiveProcess Lib "kernel32" Alias "DebugActiveProcess"(dwProcessId As Long) As Long
  41. Declare Function SetEvent Lib "kernel32" Alias "SetEvent"(hEvent As Long) As Long
  42. Declare Function ResetEvent Lib "kernel32" Alias "ResetEvent"(hEvent As Long) As Long
  43. Declare Function PulseEvent Lib "kernel32" Alias "PulseEvent"(hEvent As Long) As Long
  44. Declare Function ReleaseSemaphore Lib "kernel32" Alias "ReleaseSemaphore"(hSemaphore As Long, lReleaseCount As Long, lpPreviousCount As Long) As Long
  45. Declare Function ReleaseMutex Lib "kernel32" Alias "ReleaseMutex"(hMutex As Long) As Long
  46. Declare Function WaitForSingleObject Lib "kernel32" Alias "WaitForSingleObject"(hHandle As Long, dwMilliseconds As Long) As Long
  47. Declare Function WaitForMultipleObjects Lib "kernel32" Alias "WaitForMultipleObjects"(nCount As Long, lpHandles As Long, bWaitAll As Long, dwMilliseconds As Long) As Long
  48. Declare Sub Sleep Lib "kernel32" Alias "Sleep"(dwMilliseconds As Long)
  49. Declare Sub OutputDebugString Lib "kernel32" Alias "OutputDebugStringA"(lpOutputString As String)
  50. Declare Function GetVersion Lib "kernel32" Alias "GetVersion"() As Long
  51. Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA"(cDriveLetter As Long, lpPrefixString As String, wUnique As Long, lpTempFileName As String) As Long
  52. Declare Function SetHandleCount Lib "kernel32" Alias "SetHandleCount"(wNumber As Long) As Long
  53. Declare Function GetLogicalDrives Lib "kernel32" Alias "GetLogicalDrives"() As Long
  54. Declare Function LockFile Lib "kernel32" Alias "LockFile"(hFile As Long, dwFileOffsetLow As Long, dwFileOffsetHigh As Long, nNumberOfBytesToLockLow As Long, nNumberOfBytesToLockHigh As Long) As Long
  55. Declare Function UnlockFile Lib "kernel32" Alias "UnlockFile"(hFile As Long, dwFileOffsetLow As Long, dwFileOffsetHigh As Long, nNumberOfBytesToUnlockLow As Long, nNumberOfBytesToUnlockHigh As Long) As Long
  56. Declare Function GetFileType Lib "kernel32" Alias "GetFileType"(hFile As Long) As Long
  57. Declare Function GetFileSize Lib "kernel32" Alias "GetFileSize"(hFile As Long, lpFileSizeHigh As Long) As Long
  58. Declare Function GetStdHandle Lib "kernel32" Alias "GetStdHandle"(nStdHandle As Long) As Long
  59. Declare Function SetStdHandle Lib "kernel32" Alias "SetStdHandle"(nStdHandle As Long, nHandle As Long) As Long
  60. Declare Function FlushFileBuffers Lib "kernel32" Alias "FlushFileBuffers"(hFile As Long) As Long
  61. Declare Function SetEndOfFile Lib "kernel32" Alias "SetEndOfFile"(hFile As Long) As Long
  62. Declare Function SetFilePointer Lib "kernel32" Alias "SetFilePointer"(hFile As Long, lDistanceToMove As Long, lpDistanceToMoveHigh As Long, dwMoveMethod As Long) As Long
  63. Declare Function FindClose Lib "kernel32" Alias "FindClose"(hFindFile As Long) As Long
  64. Declare Function CloseHandle Lib "kernel32" Alias "CloseHandle"(hObject As Long) As Long
  65. Declare Function DuplicateHandle Lib "kernel32" Alias "DuplicateHandle"(hSourceProcessHandle As Long, hSourceHandle As Long, hTargetProcessHandle As Long, lpTargetHandle As Long, dwDesiredAccess As Long, bInheritHandle As Long, dwOptions As Long) As Long
  66. Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA"(nDrive As Long) As Long
  67. Declare Function GlobalAlloc Lib "kernel32" Alias "GlobalAlloc"(wFlags As Long, dwBytes As Long) As Long
  68. Declare Function GlobalCompact Lib "kernel32" Alias "GlobalCompact"(dwMinFree As Long) As Long
  69. Declare Function GlobalFree Lib "kernel32" Alias "GlobalFree"(hMem As Long) As Long
  70. Declare Function GlobalHandle Lib "kernel32" Alias "GlobalHandle"(wMem As Long) As Long
  71. Declare Function GlobalLock Lib "kernel32" Alias "GlobalLock"(hMem As Long) As Long
  72. Declare Function GlobalReAlloc Lib "kernel32" Alias "GlobalReAlloc"(hMem As Long, dwBytes As Long, wFlags As Long) As Long
  73. Declare Function GlobalSize Lib "kernel32" Alias "GlobalSize"(hMem As Long) As Long
  74. Declare Function GlobalUnlock Lib "kernel32" Alias "GlobalUnlock"(hMem As Long) As Long
  75. Declare Function GlobalFlags Lib "kernel32" Alias "GlobalFlags"(hMem As Long) As Long
  76. Declare Function GlobalWire Lib "kernel32" Alias "GlobalWire"(hMem As Long) As Long
  77. Declare Function GlobalUnWire Lib "kernel32" Alias "GlobalUnWire"(hMem As Long) As Long
  78. Declare Sub GlobalFix Lib "kernel32" Alias "GlobalFix"(hMem As Long)
  79. Declare Function GlobalUnfix Lib "kernel32" Alias "GlobalUnfix"(hMem As Long) As Long
  80. Declare Function LocalAlloc Lib "kernel32" Alias "LocalAlloc"(wFlags As Long, wBytes As Long) As Long
  81. Declare Function LocalCompact Lib "kernel32" Alias "LocalCompact"(wMinFree As Long) As Long
  82. Declare Function LocalFree Lib "kernel32" Alias "LocalFree"(hMem As Long) As Long
  83. Declare Function LocalShrink Lib "kernel32" Alias "LocalShrink"(hMem As Long, cbNewSize As Long) As Long
  84. Declare Function LocalHandle Lib "kernel32" Alias "LocalHandle"(wMem As Long) As Long
  85. Declare Function LocalLock Lib "kernel32" Alias "LocalLock"(hMem As Long) As Long'(returns a near pointer)
  86. Declare Function LocalReAlloc Lib "kernel32" Alias "LocalReAlloc"(hMem As Long, wBytes As Long, wFlags As Long) As Long
  87. Declare Function LocalSize Lib "kernel32" Alias "LocalSize"(hMem As Long) As Long
  88. Declare Function LocalUnlock Lib "kernel32" Alias "LocalUnlock"(hMem As Long) As Long
  89. Declare Function LocalFlags Lib "kernel32" Alias "LocalFlags"(hMem As Long) As Long
  90. Declare Function HeapCreate Lib "kernel32" Alias "HeapCreate"(flOptions As Long, dwInitialSize As Long, dwMaximumSize As Long) As Long
  91. Declare Function HeapDestroy Lib "kernel32" Alias "HeapDestroy"(hHeap As Long) As Long
  92. Declare Sub HeapAlloc Lib "kernel32" Alias "HeapAlloc"(hHeap As Long, dwFlags As Long, dwBytes As Long)
  93. Declare Function HeapSize Lib "kernel32" Alias "HeapSize"(hHeap As Long, dwFlags As Long, lpMem As Long) As Long
  94. Declare Function GetProcessHeap Lib "kernel32" Alias "GetProcessHeap"() As Long
  95. Declare Function OpenProcess Lib "kernel32" Alias "OpenProcess"(dwDesiredAccess As Long, bInheritHandle As Long, dwProcessId As Long) As Long
  96. Declare Function GetCurrentProcess Lib "kernel32" Alias "GetCurrentProcess"() As Long
  97. Declare Function GetCurrentProcessId Lib "kernel32" Alias "GetCurrentProcessId"() As Long
  98. Declare Sub ExitProcess Lib "kernel32" Alias "ExitProcess"(uExitCode As Long)
  99. Declare Function TerminateProcess Lib "kernel32" Alias "TerminateProcess"(hProcess As Long, uExitCode As Long) As Long
  100. Declare Function GetExitCodeProcess Lib "kernel32" Alias "GetExitCodeProcess"(hProcess As Long, lpExitCode As Long) As Long
  101. Declare Function GetLastError Lib "kernel32" Alias "GetLastError"() As Long
  102. Declare Sub SetLastError Lib "kernel32" Alias "SetLastError"(dwErrCode As Long)
  103. Declare Sub SetLastErrorEx Lib "user32" Alias "SetLastErrorEx"(dwErrCode As Long, dwType As Long)
  104. Declare Sub SetDebugErrorLevel Lib "user32" Alias "SetDebugErrorLevel"(dwLevel As Long)
  105. Declare Function SetErrorMode Lib "kernel32" Alias "SetErrorMode"(wMode As Long) As Long
  106. Declare Function SuspendThread Lib "kernel32" Alias "SuspendThread"(hThread As Long) As Long
  107. Declare Function ResumeThread Lib "kernel32" Alias "ResumeThread"(hThread As Long) As Long
  108. Declare Function FindResourceEx Lib "kernel32" Alias "FindResourceExA"(hModule As Long, lpType As String, lpName As String, wLanguage As Long) As Long
  109. Declare Function BeginUpdateResource Lib "kernel32" Alias "BeginUpdateResourceA"(pFileName As String, bDeleteExistingResources As Long) As Long
  110. Declare Function EndUpdateResource Lib "kernel32" Alias "EndUpdateResourceA"(hUpdate As Long, fDiscard As Long) As Long
  111. Declare Function LoadResource Lib "kernel32" Alias "LoadResource"(hInstance As Long, hResInfo As Long) As Long
  112. Declare Function FreeResource Lib "kernel32" Alias "FreeResource"(hResData As Long) As Long
  113. Declare Function LockResource Lib "kernel32" Alias "LockResource"(hResData As Long) As Long
  114. Declare Function SizeofResource Lib "kernel32" Alias "SizeofResource"(hInstance As Long, hResInfo As Long) As Long
  115. Declare Function InitAtomTable Lib "kernel32" Alias "InitAtomTable"(nSize As Long) As Long
  116. Declare Function AddAtom Lib "kernel32" Alias "AddAtomA"(lpString As String) As Long
  117. Declare Function DeleteAtom Lib "kernel32" Alias "DeleteAtom"(nAtom As Long) As Long
  118. Declare Function FindAtom Lib "kernel32" Alias "FindAtomA"(lpString As String) As Long
  119. Declare Function GetAtomName Lib "kernel32" Alias "GetAtomNameA"(nAtom As Long, lpBuffer As String, nSize As Long) As Long
  120. Declare Function GlobalAddAtom Lib "kernel32" Alias "GlobalAddAtomA"(lpString As String) As Long
  121. Declare Function GlobalDeleteAtom Lib "kernel32" Alias "GlobalDeleteAtom"(nAtom As Long) As Long
  122. Declare Function GlobalFindAtom Lib "kernel32" Alias "GlobalFindAtomA"(lpString As String) As Long
  123. Declare Function GlobalGetAtomName Lib "kernel32" Alias "GlobalGetAtomNameA"(nAtom As Long, lpbuffer As String, nSize As Long) As Long
  124. '
  125. ' User Profile Routines
  126. Declare Function GetProfileInt Lib "kernel32" Alias "GetProfileIntA"(lpAppName As String, lpKeyName As String, nDefault As Long) As Long
  127. Declare Function GetProfileSection Lib "kernel32" Alias "GetProfileSectionA"(lpAppName As String, lpReturnedString As String, nSize As Long) As Long
  128. Declare Function WriteProfileSection Lib "kernel32" Alias "WriteProfileSectionA"(lpAppName As String, lpString As String) As Long
  129. Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA"(lpApplicationName As String, lpKeyName As String, nDefault As Long, lpFileName As String) As Long
  130. Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA"(lpAppName As String, lpReturnedString As String, nSize As Long, lpFileName As String) As Long
  131. Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA"(lpAppName As String, lpString As String, lpFileName As String) As Long
  132. Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA"(lpBuffer As String, nSize As Long) As Long
  133. Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA"(lpBuffer As String, nSize As Long) As Long
  134. Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA"(nBufferLength As Long, lpBuffer As String) As Long
  135. Declare Function SetCurrentDirectory Lib "kernel32" Alias "SetCurrentDirectoryA"(lpPathName As String) As Long
  136. Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA"(lpRootPathname As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTtoalNumberOfClusters As Long) As Long
  137. Declare Function RemoveDirectory Lib "kernel32" Alias "RemoveDirectoryA"(lpPathName As String) As Long
  138. Declare Function GetFullPathName Lib "kernel32" Alias "GetFullPathNameA"(lpFilename As String, nBufferLength As Long, lpBuffer As String, lpFilePart As String) As Long
  139. Declare Function DefineDosDevice Lib "kernel32" Alias "DefineDosDeviceA"(dwFlags As Long, lpDeviceName As String, lpTargetPath As String) As Long
  140. Declare Function QueryDosDevice Lib "kernel32" Alias "QueryDosDeviceA"(lpDeviceName As String, lpTargetPath As String, ucchMax As Long) As Long
  141. Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA"(lpFileName As String, dwFileAttributes As Long) As Long
  142. Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA"(lpFileName As String) As Long
  143. Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA"(lpFileName As String) As Long
  144. Declare Function SearchPath Lib "kernel32" Alias "SearchPathA"(lpPath As String, lpFileName As String, lpExtension As String, nBufferLength As Long, lpBuffer As String, lpFilePart As String) As Long
  145. Declare Function MoveFile Lib "kernel32" Alias "MoveFileA"(lpExistingFileName As String, lpNewFileName As String) As Long
  146. Declare Function MoveFileEx Lib "kernel32" Alias "MoveFileExA"(lpExistingFileName As String, lpNewFileName As String, dwFlags As Long) As Long
  147. Declare Function GetNamedPipeHandleState Lib "kernel32" Alias "GetNamedPipeHandleStateA"(hNamedPipe As Long, lpState As Long, lpCurInstances As Long, lpMaxCollectionCount As Long, lpCollectDataTimeout As Long, lpUserName As String, nMaxUserNameSize As Long) As Long
  148. Declare Function WaitNamedPipe Lib "kernel32" Alias "WaitNamedPipeA"(lpNamedPipeName As String, nTimeOut As Long) As Long
  149. Declare Function SetVolumeLabel Lib "kernel32" Alias "SetVolumeLabelA"(lpRootPathName As String, lpVolumeName As String) As Long
  150. Declare Sub SetFileApisToOEM Lib "kernel32" Alias "SetFileApisToOEM"()
  151. Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA"(lpRootPathName As String, lpVolumeNameBuffer As String, nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, lpFileSystemNameBuffer As String, nFileSystemNameSize As Long) As Long
  152. '
  153. ' Security APIs
  154. Declare Function FindFirstChangeNotification Lib "kernel32" Alias "FindFirstChangeNotificationA"(lpPathName As String, bWatchSubtree As Long, dwNotifyFilter As Long) As Long
  155. Declare Function FindNextChangeNotification Lib "kernel32" Alias "FindNextChangeNotification"(hChangeHandle As Long) As Long
  156. Declare Function FindCloseChangeNotification Lib "kernel32" Alias "FindCloseChangeNotification"(hChangeHandle As Long) As Long
  157. Declare Function SetPriorityClass Lib "kernel32" Alias "SetPriorityClass"(hProcess As Long, dwPriorityClass As Long) As Long
  158. Declare Function GetPriorityClass Lib "kernel32" Alias "GetPriorityClass"(hProcess As Long) As Long
  159. Declare Sub FatalExit Lib "kernel32" Alias "FatalExit"(Code As Long)
  160. Declare Sub GetEnvironmentStrings Lib "kernel32" Alias "GetEnvironmentStringsA"()
  161. Declare Sub RaiseException Lib "kernel32" Alias "RaiseException"(dwExceptionCode As Long, dwExceptionFlags As Long, nNumberOfArguments As Long, lpArguments As Long)
  162. Declare Function GetCurrentThread Lib "kernel32" Alias "GetCurrentThread"() As Long
  163. Declare Function GetCurrentThreadId Lib "kernel32" Alias "GetCurrentThreadId"() As Long
  164. Declare Function SetThreadPriority Lib "kernel32" Alias "SetThreadPriority"(hThread As Long, nPriority As Long) As Long
  165. Declare Function GetThreadPriority Lib "kernel32" Alias "GetThreadPriority"(hThread As Long) As Long
  166. Declare Sub ExitThread Lib "kernel32" Alias "ExitThread"(dwExitCode As Long)
  167. Declare Function TerminateThread Lib "kernel32" Alias "TerminateThread"(hThread As Long, dwExitCode As Long) As Long
  168. Declare Function GetExitCodeThread Lib "kernel32" Alias "GetExitCodeThread"(hThread As Long, lpExitCode As Long) As Long
  169. Declare Function PurgeComm Lib "kernel32" Alias "PurgeComm"(hFile As Long, dwFlags As Long) As Long
  170. Declare Function TransmitCommChar Lib "kernel32" Alias "TransmitCommChar"(nCid As Long, cChar As Long) As Long
  171. Declare Function SetCommBreak Lib "kernel32" Alias "SetCommBreak"(nCid As Long) As Long
  172. Declare Function SetCommMask Lib "kernel32" Alias "SetCommMask"(hFile As Long, dwEvtMask As Long) As Long
  173. Declare Function ClearCommBreak Lib "kernel32" Alias "ClearCommBreak"(nCid As Long) As Long
  174. Declare Function SetupComm Lib "kernel32" Alias "SetupComm"(hFile As Long, dwInQueue As Long, dwOutQueue As Long) As Long
  175. Declare Function EscapeCommFunction Lib "kernel32" Alias "EscapeCommFunction"(nCid As Long, nFunc As Long) As Long
  176. Declare Function GetCommMask Lib "kernel32" Alias "GetCommMask"(hFile As Long, lpEvtMask As Long) As Long
  177. Declare Function GetCommModemStatus Lib "kernel32" Alias "GetCommModemStatus"(hFile As Long, lpModemStat As Long) As Long
  178. Declare Function SetTapePosition Lib "kernel32" Alias "SetTapePosition"(hDevice As Long, dwPositionMethod As Long, dwPartition As Long, dwOffsetLow As Long, dwOffsetHigh As Long, bImmediate As Long) As Long
  179. Declare Function GetTapePosition Lib "kernel32" Alias "GetTapePosition"(hDevice As Long, dwPositionType As Long, lpdwPartition As Long, lpdwOffsetLow As Long, lpdwOffsetHigh As Long) As Long
  180. Declare Function PrepareTape Lib "kernel32" Alias "PrepareTape"(hDevice As Long, dwOperation As Long, bImmediate As Long) As Long
  181. Declare Function EraseTape Lib "kernel32" Alias "EraseTape"(hDevice As Long, dwEraseType As Long, bImmediate As Long) As Long
  182. Declare Function CreateTapePartition Lib "kernel32" Alias "CreateTapePartition"(hDevice As Long, dwPartitionMethod As Long, dwCount As Long, dwSize As Long) As Long
  183. Declare Function WriteTapemark Lib "kernel32" Alias "WriteTapemark"(hDevice As Long, dwTapemarkType As Long, dwTapemarkCount As Long, bImmediate As Long) As Long
  184. Declare Function GetTapeStatus Lib "kernel32" Alias "GetTapeStatus"(hDevice As Long) As Long
  185. Declare Function MulDiv Lib "kernel32" Alias "MulDiv"(nNumber As Long, nNumerator As Long, nDenominator As Long) As Long
  186. '
  187. ' Routines to convert back and forth between system time and file time
  188. Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount"() As Long
  189. Declare Function DisconnectNamedPipe Lib "kernel32" Alias "DisconnectNamedPipe"(hNamedPipe As Long) As Long
  190. Declare Function SetNamedPipeHandleState Lib "kernel32" Alias "SetNamedPipeHandleState"(hNamedPipe As Long, lpMode As Long, lpMaxCollectionCount As Long, lpCollectDataTimeout As Long) As Long
  191. Declare Function GetNamedPipeInfo Lib "kernel32" Alias "GetNamedPipeInfo"(hNamedPipe As Long, lpFlags As Long, lpOutBufferSize As Long, lpInBufferSize As Long, lpMaxInstances As Long) As Long
  192. Declare Function GetMailslotInfo Lib "kernel32" Alias "GetMailslotInfo"(hMailslot As Long, lpMaxMessageSize As Long, lpNextSize As Long, lpMessageCount As Long, lpReadTimeout As Long) As Long
  193. Declare Function SetMailslotInfo Lib "kernel32" Alias "SetMailslotInfo"(hMailslot As Long, lReadTimeout As Long) As Long
  194. Declare Function TlsAlloc Lib "kernel32" Alias "TlsAlloc"() As Long
  195. Declare Function TlsFree Lib "kernel32" Alias "TlsFree"(dwTlsIndex As Long) As Long
  196. Declare Function SleepEx Lib "kernel32" Alias "SleepEx"(dwMilliseconds As Long, bAlertable As Long) As Long
  197. Declare Function WaitForSingleObjectEx Lib "kernel32" Alias "WaitForSingleObjectEx"(hHandle As Long, dwMilliseconds As Long, bAlertable As Long) As Long
  198. Declare Function WaitForMultipleObjectsEx Lib "kernel32" Alias "WaitForMultipleObjectsEx"(nCount As Long, lpHandles As Long, bWaitAll As Long, dwMilliseconds As Long, bAlertable As Long) As Long
  199. '
  200. '  Dual Mode API below this line
  201. Declare Function OpenMutex Lib "kernel32" Alias "OpenMutexA"(dwDesiredAccess As Long, bInheritHandle As Long, lpName As String) As Long
  202. Declare Function OpenEvent Lib "kernel32" Alias "OpenEventA"(dwDesiredAccess As Long, bInheritHandle As Long, lpName As String) As Long
  203. Declare Function OpenSemaphore Lib "kernel32" Alias "OpenSemaphoreA"(dwDesiredAccess As Long, bInheritHandle As Long, lpName As String) As Long
  204. Declare Function OpenFileMapping Lib "kernel32" Alias "OpenFileMappingA"(dwDesiredAccess As Long, bInheritHandle As Long, lpName As String) As Long
  205. Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA"(nBufferLength As Long, lpBuffer As String) As Long
  206. Declare Function IsBadStringPtr Lib "kernel32" Alias "IsBadStringPtrA"(lpsz As String, ucchMax As Long) As Long
  207. Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA"(lpBuffer As String, nSize As Long) As Long
  208. Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA"(lpComputerName As String) As Long
  209. '
  210. ' Code Page Dependent APIs
  211. Declare Function IsValidCodePage Lib "kernel32" Alias "IsValidCodePage"(CodePage As Long) As Long
  212. Declare Function GetACP Lib "kernel32" Alias "GetACP"() As Long
  213. Declare Function GetOEMCP Lib "kernel32" Alias "GetOEMCP"() As Long
  214. Declare Function IsDBCSLeadByte Lib "kernel32" Alias "IsDBCSLeadByte"(bTestChar As Integer) As Long
  215. Declare Function MultiByteToWideChar Lib "kernel32" Alias "MultiByteToWideChar"(CodePage As Long, dwFlags As Long, lpMultiByteStr As String, cchMultiByte As Long, lpWideCharStr As String, cchWideChar As Long) As Long
  216. Declare Function WideCharToMultiByte Lib "kernel32" Alias "WideCharToMultiByte"(CodePage As Long, dwFlags As Long, lpWideCharStr As String, cchWideChar As Long, lpMultiByteStr As String, cchMultiByte As Long, lpDefaultChar As String, lpUsedDefaultChar As Long) As Long
  217. '
  218. ' Locale Dependent APIs
  219. Declare Function CompareString Lib "kernel32" Alias "CompareStringA"(Locale As String, dwCmpFlags As Long, lpString1 As String, cchCount1 As Long, lpString2 As String, cchCount2 As Long) As Long
  220. Declare Function LCMapString Lib "kernel32" Alias "LCMapStringA"(Locale As String, dwMapFlags As Long, lpSrcStr As String, cchSrc As Long, lpDestStr As String, cchDest As Long) As Long
  221. Declare Function GetThreadLocale Lib "kernel32" Alias "GetThreadLocale"() As String
  222. Declare Function SetThreadLocale Lib "kernel32" Alias "SetThreadLocale"(Locale As String) As Long
  223. Declare Function GetSystemDefaultLangID Lib "kernel32" Alias "GetSystemDefaultLangID"() As String
  224. Declare Function GetUserDefaultLangID Lib "kernel32" Alias "GetUserDefaultLangID"() As String
  225. Declare Function GetSystemDefaultLCID Lib "kernel32" Alias "GetSystemDefaultLCID"() As String
  226. Declare Function GetUserDefaultLCID Lib "kernel32" Alias "GetUserDefaultLCID"() As String
  227. '
  228. ' Locale Independent APIs
  229. Declare Function GetStringType Lib "kernel32" Alias "GetStringTypeA"(dwInfoType As Long, lpSrcStr As String, cchSrc As Long, lpCharType As Long) As Long
  230. Declare Function FoldString Lib "kernel32" Alias "FoldStringA"(dwMapFlags As Long, lpSrcStr As String, cchSrc As Long, lpDestStr As String, cchDest As Long) As Long
  231. ' The following section contains procedures exported by the NT console subsystem.
  232. Declare Function GetConsoleMode Lib "kernel32" Alias "GetConsoleMode"(hConsoleHandle As Long, lpMode As Long) As Long
  233. Declare Function GetNumberOfConsoleInputEvents Lib "kernel32" Alias "GetNumberOfConsoleInputEvents"(hConsoleInput As Long, lpNumberOfEvents As Long) As Long
  234. Declare Function GetNumberOfConsoleMouseButtons Lib "kernel32" Alias "GetNumberOfConsoleMouseButtons"(lpNumberOfMouseButtons As Long) As Long
  235. Declare Function SetConsoleMode Lib "kernel32" Alias "SetConsoleMode"(hConsoleHandle As Long, dwMode As Long) As Long
  236. Declare Function SetConsoleActiveScreenBuffer Lib "kernel32" Alias "SetConsoleActiveScreenBuffer"(hConsoleOutput As Long) As Long
  237. Declare Function FlushConsoleInputBuffer Lib "kernel32" Alias "FlushConsoleInputBuffer"(hConsoleInput As Long) As Long
  238. Declare Function SetConsoleTextAttribute Lib "kernel32" Alias "SetConsoleTextAttribute"(hConsoleOutput As Long, wAttributes As Long) As Long
  239. Declare Function GenerateConsoleCtrlEvent Lib "kernel32" Alias "GenerateConsoleCtrlEvent"(dwCtrlEvent As Long, dwProcessGroupId As Long) As Long
  240. Declare Function AllocConsole Lib "kernel32" Alias "AllocConsole"() As Long
  241. Declare Function FreeConsole Lib "kernel32" Alias "FreeConsole"() As Long
  242. Declare Function GetConsoleTitle Lib "kernel32" Alias "GetConsoleTitleA"(lpConsoleTitle As String, nSize As Long) As Long
  243. Declare Function SetConsoleTitle Lib "kernel32" Alias "SetConsoleTitleA"(lpConsoleTitle As String) As Long
  244. Declare Function GetConsoleCP Lib "kernel32" Alias "GetConsoleCP"() As Long
  245. Declare Function SetConsoleCP Lib "kernel32" Alias "SetConsoleCP"(wCodePageID As Long) As Long
  246. Declare Function GetConsoleOutputCP Lib "kernel32" Alias "GetConsoleOutputCP"() As Long
  247. Declare Function SetConsoleOutputCP Lib "kernel32" Alias "SetConsoleOutputCP"(wCodePageID As Long) As Long
  248. '
  249. ' -------------
  250. '  GDI Section
  251. ' -------------
  252. Declare Function Arc Lib "gdi32" Alias "Arc"(hDC As Long, X1 As Long, Y1 As Long, X2 As Long, Y2 As Long, X3 As Long, Y3 As Long, X4 As Long, Y4 As Long) As Long
  253. Declare Function BitBlt Lib "gdi32" Alias "BitBlt"(hDestDC As Long, X As Long, Y As Long, nWidth As Long, nHeight As Long, hSrcDC As Long, XSrc As Long, YSrc As Long, dwRop As Long) As Long
  254. Declare Function CancelDC Lib "gdi32" Alias "CancelDC"(hdc As Long) As Long
  255. Declare Function Chord Lib "gdi32" Alias "Chord"(hDC As Long, X1 As Long, Y1 As Long, X2 As Long, Y2 As Long, X3 As Long, Y3 As Long, X4 As Long, Y4 As Long) As Long
  256. Declare Function CloseMetaFile Lib "gdi32" Alias "CloseMetaFile"(hMF As Long) As Long
  257. Declare Function CombineRgn Lib "gdi32" Alias "CombineRgn"(hDestRgn As Long, hSrcRgn1 As Long, hSrcRgn2 As Long, nCombineMode As Long) As Long
  258. Declare Function CopyMetaFile Lib "gdi32" Alias "CopyMetaFileA"(hMF As Long, lpFilename As String) As Long
  259. Declare Function CreateCompatibleBitmap Lib "gdi32" Alias "CreateCompatibleBitmap"(hDC As Long, nWidth As Long, nHeight As Long) As Long
  260. Declare Function CreateDiscardableBitmap Lib "gdi32" Alias "CreateDiscardableBitmap"(hDC As Long, nWidth As Long, nHeight As Long) As Long
  261. Declare Function CreateCompatibleDC Lib "gdi32" Alias "CreateCompatibleDC"(hDC As Long) As Long
  262. Declare Function CreateDC Lib "gdi32" Alias "CreateDCA"(lpDriverName As String, lpDeviceName As String, lpOutput As String, lpInitData As String) As Long
  263. Declare Function CreateDIBPatternBrush Lib "gdi32" Alias "CreateDIBPatternBrush"(hPackedDIB As Long, wUsage As Long) As Long
  264. Declare Function CreateEllipticRgn Lib "gdi32" Alias "CreateEllipticRgn"(X1 As Long, Y1 As Long, X2 As Long, Y2 As Long) As Long
  265. Declare Function CreateHatchBrush Lib "gdi32" Alias "CreateHatchBrush"(nIndex As Long, crColor As Long) As Long
  266. Declare Function CreateIC Lib "gdi32" Alias "CreateICA"(lpDriverName As String, lpDeviceName As String, lpOutput As String, lpInitData As String) As Long
  267. Declare Function CreatePen Lib "gdi32" Alias "CreatePen"(nPenStyle As Long, nWidth As Long, crColor As Long) As Long
  268. Declare Function CreateRectRgn Lib "gdi32" Alias "CreateRectRgn"(X1 As Long, Y1 As Long, X2 As Long, Y2 As Long) As Long
  269. Declare Function CreatePatternBrush Lib "gdi32" Alias "CreatePatternBrush"(hBitmap As Long) As Long
  270. Declare Function CreateRoundRectRgn Lib "gdi32" Alias "CreateRoundRectRgn"(X1 As Long, Y1 As Long, X2 As Long, Y2 As Long, X3 As Long, Y3 As Long) As Long
  271. Declare Function CreateSolidBrush Lib "gdi32" Alias "CreateSolidBrush"(crColor As Long) As Long
  272. Declare Function DeleteDC Lib "gdi32" Alias "DeleteDC"(hDC As Long) As Long
  273. Declare Function DeleteObject Lib "gdi32" Alias "DeleteObject"(hObject As Long) As Long
  274. Declare Function DeleteMetaFile Lib "gdi32" Alias "DeleteMetaFile"(hMF As Long) As Long
  275. Declare Function Ellipse Lib "gdi32" Alias "Ellipse"(hDC As Long, X1 As Long, Y1 As Long, X2 As Long, Y2 As Long) As Long
  276. Declare Function EqualRgn Lib "gdi32" Alias "EqualRgn"(hSrcRgn1 As Long, hSrcRgn2 As Long) As Long
  277. Declare Function ExtEscape Lib "gdi32" Alias "ExtEscape"(hdc As Long, nEscape As Long, cbInput As Long, lpszInData As String, cbOutput As Long, lpszOutData As String) As Long
  278. Declare Function DrawEscape Lib "gdi32" Alias "DrawEscape"(hdc As Long, nEscape As Long, cbInput As Long, lpszInData As String) As Long
  279. Declare Function ExcludeClipRect Lib "gdi32" Alias "ExcludeClipRect"(hDC As Long, X1 As Long, Y1 As Long, X2 As Long, Y2 As Long) As Long
  280. Declare Function ExtFloodFill Lib "gdi32" Alias "ExtFloodFill"(hDC As Long, X As Long, Y As Long, crColor As Long, wFillType As Long) As Long
  281. Declare Function FillRgn Lib "gdi32" Alias "FillRgn"(hDC As Long, hRgn As Long, hBrush As Long) As Long
  282. Declare Function FrameRgn Lib "gdi32" Alias "FrameRgn"(hDC As Long, hRgn As Long, hBrush As Long, nWidth As Long, nHeight As Long) As Long
  283. Declare Function FloodFill Lib "gdi32" Alias "FloodFill"(hDC As Long, X As Long, Y As Long, crColor As Long) As Long
  284. Declare Function GetROP2 Lib "gdi32" Alias "GetROP2"(hDC As Long) As Long
  285. Declare Function GetBkColor Lib "gdi32" Alias "GetBkColor"(hDC As Long) As Long
  286. Declare Function GetBkMode Lib "gdi32" Alias "GetBkMode"(hDC As Long) As Long
  287. Declare Function GetCharWidth Lib "gdi32" Alias "GetCharWidthA"(hDC As Long, wFirstChar As Long, wLastChar As Long, lpBuffer As Long) As Long
  288. Declare Function GetCharWidth32 Lib "gdi32" Alias "GetCharWidth32A"(hdc As Long, iFirstChar As Long, iLastChar As Long, lpBuffer As Long) As Long
  289. Declare Function GetClipRgn Lib "gdi32" Alias "GetClipRgn"(hdc As Long, hrgn As Long) As Long
  290. Declare Function GetMetaRgn Lib "gdi32" Alias "GetMetaRgn"(hdc As Long, hrgn As Long) As Long
  291. Declare Function GetCurrentObject Lib "gdi32" Alias "GetCurrentObject"(hdc As Long, uObjectType As Long) As Long
  292. Declare Function GetDeviceCaps Lib "gdi32" Alias "GetDeviceCaps"(hDC As Long, nIndex As Long) As Long
  293. Declare Function GetGraphicsMode Lib "gdi32" Alias "GetGraphicsMode"(hdc As Long) As Long
  294. Declare Function GetMapMode Lib "gdi32" Alias "GetMapMode"(hDC As Long) As Long
  295. Declare Function GetMetaFile Lib "gdi32" Alias "GetMetaFileA"(lpFilename As String) As Long
  296. Declare Function GetNearestColor Lib "gdi32" Alias "GetNearestColor"(hDC As Long, crColor As Long) As Long
  297. Declare Function GetNearestPaletteIndex Lib "gdi32" Alias "GetNearestPaletteIndex"(hPalette As Long, crColor As Long) As Long
  298. Declare Function GetObjectType Lib "gdi32" Alias "GetObjectType"(hgdiobj As Long) As Long
  299. Declare Function GetPixel Lib "gdi32" Alias "GetPixel"(hDC As Long, X As Long, Y As Long) As Long
  300. Declare Function GetPolyFillMode Lib "gdi32" Alias "GetPolyFillMode"(hDC As Long) As Long
  301. Declare Function GetStockObject Lib "gdi32" Alias "GetStockObject"(nIndex As Long) As Long
  302. Declare Function GetStretchBltMode Lib "gdi32" Alias "GetStretchBltMode"(hDC As Long) As Long
  303. Declare Function GetSystemPaletteUse Lib "gdi32" Alias "GetSystemPaletteUse"(hDC As Long) As Long
  304. Declare Function GetTextAlign Lib "gdi32" Alias "GetTextAlign"(hDC As Long) As Long
  305. Declare Function GetTextColor Lib "gdi32" Alias "GetTextColor"(hDC As Long) As Long
  306. Declare Function IntersectClipRect Lib "gdi32" Alias "IntersectClipRect"(hDC As Long, X1 As Long, Y1 As Long, X2 As Long, Y2 As Long) As Long
  307. Declare Function InvertRgn Lib "gdi32" Alias "InvertRgn"(hDC As Long, hRgn As Long) As Long
  308. Declare Function LineTo Lib "gdi32" Alias "LineTo"(hDC As Long, X As Long, Y As Long) As Long
  309. Declare Function MaskBlt Lib "gdi32" Alias "MaskBlt"(hdcDest As Long, nXDest As Long, nYDest As Long, nWidth As Long, nHeight As Long, hdcSrc As Long, nXSrc As Long, nYSrc As Long, hbmMask As Long, xMask As Long, yMask As Long, dwRop As Long) As Long
  310. Declare Function OffsetClipRgn Lib "gdi32" Alias "OffsetClipRgn"(hDC As Long, X As Long, Y As Long) As Long
  311. Declare Function OffsetRgn Lib "gdi32" Alias "OffsetRgn"(hRgn As Long, X As Long, Y As Long) As Long
  312. Declare Function PatBlt Lib "gdi32" Alias "PatBlt"(hDC As Long, X As Long, Y As Long, nWidth As Long, nHeight As Long, dwRop As Long) As Long
  313. Declare Function Pie Lib "gdi32" Alias "Pie"(hDC As Long, X1 As Long, Y1 As Long, X2 As Long, Y2 As Long, X3 As Long, Y3 As Long, X4 As Long, Y4 As Long) As Long
  314. Declare Function PlayMetaFile Lib "gdi32" Alias "PlayMetaFile"(hDC As Long, hMF As Long) As Long
  315. Declare Function PaintRgn Lib "gdi32" Alias "PaintRgn"(hDC As Long, hRgn As Long) As Long
  316. Declare Function PtInRegion Lib "gdi32" Alias "PtInRegion"(hRgn As Long, X As Long, Y As Long) As Long
  317. Declare Function PtVisible Lib "gdi32" Alias "PtVisible"(hDC As Long, X As Long, Y As Long) As Long
  318. Declare Function Rectangle Lib "gdi32" Alias "Rectangle"(hDC As Long, X1 As Long, Y1 As Long, X2 As Long, Y2 As Long) As Long
  319. Declare Function RestoreDC Lib "gdi32" Alias "RestoreDC"(hDC As Long, nSavedDC As Long) As Long
  320. Declare Function RoundRect Lib "gdi32" Alias "RoundRect"(hDC As Long, X1 As Long, Y1 As Long, X2 As Long, Y2 As Long, X3 As Long, Y3 As Long) As Long
  321. Declare Function ResizePalette Lib "gdi32" Alias "ResizePalette"(hPalette As Long, nNumEntries As Long) As Long
  322. Declare Function SaveDC Lib "gdi32" Alias "SaveDC"(hDC As Long) As Long
  323. Declare Function SelectClipRgn Lib "gdi32" Alias "SelectClipRgn"(hDC As Long, hRgn As Long) As Long
  324. Declare Function ExtSelectClipRgn Lib "gdi32" Alias "ExtSelectClipRgn"(hdc As Long, hrgn As Long, fnMode As Long) As Long
  325. Declare Function SetMetaRgn Lib "gdi32" Alias "SetMetaRgn"(hdc As Long) As Long
  326. Declare Function SelectObject Lib "gdi32" Alias "SelectObject"(hDC As Long, hObject As Long) As Long
  327. Declare Function SetBkColor Lib "gdi32" Alias "SetBkColor"(hDC As Long, crColor As Long) As Long
  328. Declare Function SetBkMode Lib "gdi32" Alias "SetBkMode"(hDC As Long, nBkMode As Long) As Long
  329. Declare Function SetMapperFlags Lib "gdi32" Alias "SetMapperFlags"(hDC As Long, dwFlag As Long) As Long
  330. Declare Function SetGraphicsMode Lib "gdi32" Alias "SetGraphicsMode"(hdc As Long, iMode As Long) As Long
  331. Declare Function SetMapMode Lib "gdi32" Alias "SetMapMode"(hDC As Long, nMapMode As Long) As Long
  332. Declare Function SetMetaFileBitsEx Lib "gdi32" Alias "SetMetaFileBitsEx"(nSize As Long, lpData As Integer) As Long
  333. Declare Function SetPixel Lib "gdi32" Alias "SetPixel"(hDC As Long, X As Long, Y As Long, crColor As Long) As Long
  334. Declare Function SetPolyFillMode Lib "gdi32" Alias "SetPolyFillMode"(hDC As Long, nPolyFillMode As Long) As Long
  335. Declare Sub SetRectRgn Lib "gdi32" Alias "SetRectRgn"(hRgn As Long, X1 As Long, Y1 As Long, X2 As Long, Y2 As Long)
  336. Declare Function SetROP2 Lib "gdi32" Alias "SetROP2"(hDC As Long, nDrawMode As Long) As Long
  337. Declare Function SetStretchBltMode Lib "gdi32" Alias "SetStretchBltMode"(hDC As Long, nStretchMode As Long) As Long
  338. Declare Function SetSystemPaletteUse Lib "gdi32" Alias "SetSystemPaletteUse"(hDC As Long, wUsage As Long) As Long
  339. Declare Function SetTextColor Lib "gdi32" Alias "SetTextColor"(hDC As Long, crColor As Long) As Long
  340. Declare Function SetTextAlign Lib "gdi32" Alias "SetTextAlign"(hDC As Long, wFlags As Long) As Long
  341. Declare Function SetTextJustification Lib "gdi32" Alias "SetTextJustification"(hDC As Long, nBreakExtra As Long, nBreakCount As Long) As Long
  342. Declare Function UpdateColors Lib "gdi32" Alias "UpdateColors"(hDC As Long) As Long
  343. Declare Function CloseEnhMetaFile Lib "gdi32" Alias "CloseEnhMetaFile"(hdc As Long) As Long
  344. Declare Function CopyEnhMetaFile Lib "gdi32" Alias "CopyEnhMetaFileA"(hemfSrc As Long, lpszFile As String) As Long
  345. Declare Function DeleteEnhMetaFile Lib "gdi32" Alias "DeleteEnhMetaFile"(hemf As Long) As Long
  346. Declare Function GetEnhMetaFile Lib "gdi32" Alias "GetEnhMetaFileA"(lpszMetaFile As String) As Long
  347. Declare Function GetEnhMetaFileBits Lib "gdi32" Alias "GetEnhMetaFileBits"(hemf As Long, cbBuffer As Long, lpbBuffer As Integer) As Long
  348. Declare Function GetEnhMetaFileDescription Lib "gdi32" Alias "GetEnhMetaFileDescriptionA"(hemf As Long, cchBuffer As Long, lpszDescription As String) As Long
  349. Declare Function GetWinMetaFileBits Lib "gdi32" Alias "GetWinMetaFileBits"(hemf As Long, cbBuffer As Long, lpbBuffer As Integer, fnMapMode As Long, hdcRef As Long) As Long
  350. Declare Function SetEnhMetaFileBits Lib "gdi32" Alias "SetEnhMetaFileBits"(cbBuffer As Long, lpData As Integer) As Long
  351. Declare Function GdiComment Lib "gdi32" Alias "GdiComment"(hdc As Long, cbSize As Long, lpData As Integer) As Long
  352. Declare Function CreateHalftonePalette Lib "gdi32" Alias "CreateHalftonePalette"(hdc As Long) As Long
  353. Declare Function StartPage Lib "gdi32" Alias "StartPage"(hdc As Long) As Long
  354. Declare Function EndPage Lib "gdi32" Alias "EndPage"(hdc As Long) As Long
  355. Declare Function EndDocAPI Lib "gdi32" Alias "EndDocAPI" Alias "EndDoc"(hdc As Long) As Long
  356. Declare Function AbortDoc Lib "gdi32" Alias "AbortDoc"(hdc As Long) As Long
  357. Declare Function AbortPath Lib "gdi32" Alias "AbortPath"(hdc As Long) As Long
  358. Declare Function ArcTo Lib "gdi32" Alias "ArcTo"(hdc As Long, X1 As Long, Y1 As Long, X2 As Long, Y2 As Long, X3 As Long, Y3 As Long, X4 As Long, Y4 As Long) As Long
  359. Declare Function BeginPath Lib "gdi32" Alias "BeginPath"(hdc As Long) As Long
  360. Declare Function CloseFigure Lib "gdi32" Alias "CloseFigure"(hdc As Long) As Long
  361. Declare Function EndPath Lib "gdi32" Alias "EndPath"(hdc As Long) As Long
  362. Declare Function FillPath Lib "gdi32" Alias "FillPath"(hdc As Long) As Long
  363. Declare Function FlattenPath Lib "gdi32" Alias "FlattenPath"(hdc As Long) As Long
  364. Declare Function PathToRegion Lib "gdi32" Alias "PathToRegion"(hdc As Long) As Long
  365. Declare Function SelectClipPath Lib "gdi32" Alias "SelectClipPath"(hdc As Long, iMode As Long) As Long
  366. Declare Function SetArcDirection Lib "gdi32" Alias "SetArcDirection"(hdc As Long, ArcDirection As Long) As Long
  367. Declare Function StrokeAndFillPath Lib "gdi32" Alias "StrokeAndFillPath"(hdc As Long) As Long
  368. Declare Function StrokePath Lib "gdi32" Alias "StrokePath"(hdc As Long) As Long
  369. Declare Function WidenPath Lib "gdi32" Alias "WidenPath"(hdc As Long) As Long
  370. Declare Function GetArcDirection Lib "gdi32" Alias "GetArcDirection"(hdc As Long) As Long
  371. Declare Function GetObject Lib "gdi32" Alias "GetObjectA"(hObject As Long, nCount As Long, lpObject As Long) As Long
  372. Declare Function TextOut Lib "gdi32" Alias "TextOutA"(hDC As Long, X As Long, Y As Long, lpString As String, nCount As Long) As Long
  373. Declare Function GetTextFace Lib "gdi32" Alias "GetTextFaceA"(hDC As Long, nCount As Long, lpFacename As String) As Long
  374. Declare Function UnrealizeObject Lib "gdi32" Alias "UnrealizeObject"(hObject As Long) As Long
  375. Declare Function GdiFlush Lib "gdi32" Alias "GdiFlush"() As Long
  376. Declare Function GdiSetBatchLimit Lib "gdi32" Alias "GdiSetBatchLimit"(dwLimit As Long) As Long
  377. Declare Function GdiGetBatchLimit Lib "gdi32" Alias "GdiGetBatchLimit"() As Long
  378. '
  379. ' --------------
  380. '  USER Section
  381. ' --------------
  382. Declare Function wvsprintf Lib "user32" Alias "wvsprintfA"(lpOutput As String, lpFormat As String, lpArglist As Long) As Long
  383. '
  384. ' Keyboard Layout API
  385. Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA"(pwszKLID As String, Flags As Long) As Long
  386. Declare Function ActivateKeyboardLayout Lib "user32" Alias "ActivateKeyboardLayout"(hkl As Long, Flags As Long) As Long
  387. Declare Function UnloadKeyboardLayout Lib "user32" Alias "UnloadKeyboardLayout"(hkl As Long) As Long
  388. Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA"(pwszKLID As String) As Long
  389. Declare Function GetThreadDesktop Lib "user32" Alias "GetThreadDesktop"(dwThread As Long) As Long
  390. Declare Function GetProcessWindowStation Lib "user32" Alias "GetProcessWindowStation"() As Long
  391. Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA"(lpString As String) As Long
  392. '
  393. ' Message Function Templates
  394. Declare Function SetMessageQueue Lib "user32" Alias "SetMessageQueue"(cMsg As Long) As Long
  395. Declare Function RegisterHotKey Lib "user32" Alias "RegisterHotKey"(hWnd As Long, id As Long, fsModifiers As Long, vk As Long) As Long
  396. Declare Function UnregisterHotKey Lib "user32" Alias "UnregisterHotKey"(hWnd As Long, id As Long) As Long
  397. Declare Function ExitWindowsEx Lib "user32" Alias "ExitWindowsEx"(uFlags As Long, dwReserved As Long) As Long
  398. Declare Function SwapMouseButton Lib "user32" Alias "SwapMouseButton"(bSwap As Long) As Long
  399. Declare Function GetMessagePos Lib "user32" Alias "GetMessagePos"() As Long
  400. Declare Function GetMessageTime Lib "user32" Alias "GetMessageTime"() As Long
  401. Declare Function GetMessageExtraInfo Lib "user32" Alias "GetMessageExtraInfo"() As Long
  402. Declare Function SendMessageTimeout Lib "user32" Alias "SendMessageTimeoutA"(hWnd As Long, Msg As Long, wParam As Long, lParam As Long, fuFlags As Long, uTimeout As Long, lpdwResult As Long) As Long
  403. Declare Function SendNotifyMessage Lib "user32" Alias "SendNotifyMessageA"(hWnd As Long, Msg As Long, wParam As Long, lParam As Long) As Long
  404. Declare Function PostThreadMessage Lib "user32" Alias "PostThreadMessageA"(idThread As Long, Msg As Long, wParam As Long, lParam As Long) As Long
  405. Declare Function AttachThreadInput Lib "user32" Alias "AttachThreadInput"(idAttach As Long, idAttachTo As Long, fAttach As Long) As Long
  406. Declare Sub ReplyMessage Lib "user32" Alias "ReplyMessage"(lReply As Long)
  407. Declare Sub WaitMessage Lib "user32" Alias "WaitMessage"()
  408. Declare Sub PostQuitMessage Lib "user32" Alias "PostQuitMessage"(nExitCode As Long)
  409. Declare Function InSendMessage Lib "user32" Alias "InSendMessage"() As Long
  410. Declare Function GetDoubleClickTime Lib "user32" Alias "GetDoubleClickTime"() As Long
  411. Declare Sub SetDoubleClickTime Lib "user32" Alias "SetDoubleClickTime"(wCount As Long)
  412. Declare Function UnregisterClass Lib "user32" Alias "UnregisterClassA"(lpClassName As String, hInstance As Long) As Long
  413. Declare Function IsWindow Lib "user32" Alias "IsWindow"(hWnd As Long) As Long
  414. Declare Function IsMenu Lib "user32" Alias "IsMenu"(hmenu As Long) As Long
  415. Declare Function IsChild Lib "user32" Alias "IsChild"(hWndParent As Long, hWnd As Long) As Long
  416. Declare Function DestroyWindow Lib "user32" Alias "DestroyWindow"(hWnd As Long) As Long
  417. Declare Function ShowWindow Lib "user32" Alias "ShowWindow"(hWnd As Long, nCmdShow As Long) As Long
  418. Declare Function FlashWindow Lib "user32" Alias "FlashWindow"(hWnd As Long, bInvert As Long) As Long
  419. Declare Sub ShowOwnedPopups Lib "user32" Alias "ShowOwnedPopups"(hWnd As Long, fShow As Long)
  420. Declare Function OpenIcon Lib "user32" Alias "OpenIcon"(hWnd As Long) As Long
  421. Declare Sub CloseWindow Lib "user32" Alias "CloseWindow"(hWnd As Long)
  422. Declare Sub MoveWindow Lib "user32" Alias "MoveWindow"(hWnd As Long, X As Long, Y As Long, nWidth As Long, nHeight As Long, bRepaint As Long)
  423. Declare Sub SetWindowPos Lib "user32" Alias "SetWindowPos"(hWnd As Long, hWndInsertAfter As Long, X As Long, Y As Long, cx As Long, cy As Long, wFlags As Long)
  424. Declare Sub BeginDeferWindowPos Lib "user32" Alias "BeginDeferWindowPos"(nNumWindows As Long)
  425. Declare Sub DeferWindowPos Lib "user32" Alias "DeferWindowPos"(hWinPosInfo As Long, hWnd As Long, hWndInsertAfter As Long, x As Long, y As Long, cx As Long, cy As Long, wFlags As Long)
  426. Declare Sub EndDeferWindowPos Lib "user32" Alias "EndDeferWindowPos"(hWinPosInfo As Long)
  427. Declare Function IsWindowVisible Lib "user32" Alias "IsWindowVisible"(hWnd As Long) As Long
  428. Declare Function IsIconic Lib "user32" Alias "IsIconic"(hWnd As Long) As Long
  429. Declare Function AnyPopup Lib "user32" Alias "AnyPopup"() As Long
  430. Declare Sub BringWindowToTop Lib "user32" Alias "BringWindowToTop"(hWnd As Long)
  431. Declare Function IsZoomed Lib "user32" Alias "IsZoomed"(hWnd As Long) As Long
  432. Declare Sub EndDialog Lib "user32" Alias "EndDialog"(hDlg As Long, nResult As Long)
  433. Declare Function GetDlgItem Lib "user32" Alias "GetDlgItem"(hDlg As Long, nIDDlgItem As Long) As Long
  434. Declare Sub SetDlgItemInt Lib "user32" Alias "SetDlgItemInt"(hDlg As Long, nIDDlgItem As Long, wValue As Long, bSigned As Long)
  435. Declare Function GetDlgItemInt Lib "user32" Alias "GetDlgItemInt"(hDlg As Long, nIDDlgItem As Long, lpTranslated As Long, bSigned As Long) As Long
  436. Declare Sub SetDlgItemText Lib "user32" Alias "SetDlgItemTextA"(hDlg As Long, nIDDlgItem As Long, lpString As String)
  437. Declare Function GetDlgItemText Lib "user32" Alias "GetDlgItemTextA"(hDlg As Long, nIDDlgItem As Long, lpString As String, nMaxCount As Long) As Long
  438. Declare Sub CheckDlgButton Lib "user32" Alias "CheckDlgButton"(hDlg As Long, nIDButton As Long, wCheck As Long)
  439. Declare Sub CheckRadioButton Lib "user32" Alias "CheckRadioButton"(hDlg As Long, nIDFirstButton As Long, nIDLastButton As Long, nIDCheckButton As Long)
  440. Declare Function IsDlgButtonChecked Lib "user32" Alias "IsDlgButtonChecked"(hDlg As Long, nIDButton As Long) As Long
  441. Declare Function GetNextDlgGroupItem Lib "user32" Alias "GetNextDlgGroupItem"(hDlg As Long, hCtl As Long, bPrevious As Long) As Long
  442. Declare Function GetNextDlgTabItem Lib "user32" Alias "GetNextDlgTabItem"(hDlg As Long, hCtl As Long, bPrevious As Long) As Long
  443. Declare Function GetDlgCtrlID Lib "user32" Alias "GetDlgCtrlID"(hWnd As Long) As Long
  444. Declare Function GetDialogBaseUnits Lib "user32" Alias "GetDialogBaseUnits"() As Long
  445. '
  446. ' Clipboard Manager Functions
  447. Declare Function OpenClipboard Lib "user32" Alias "OpenClipboard"(hWnd As Long) As Long
  448. Declare Function CloseClipboard Lib "user32" Alias "CloseClipboard"() As Long
  449. Declare Function GetClipboardOwner Lib "user32" Alias "GetClipboardOwner"() As Long
  450. Declare Function SetClipboardViewer Lib "user32" Alias "SetClipboardViewer"(hWnd As Long) As Long
  451. Declare Function GetClipboardViewer Lib "user32" Alias "GetClipboardViewer"() As Long
  452. Declare Function ChangeClipboardChain Lib "user32" Alias "ChangeClipboardChain"(hWnd As Long, hWndNext As Long) As Long
  453. Declare Function RegisterClipboardFormat Lib "user32" Alias "RegisterClipboardFormatA"(lpString As String) As Long
  454. Declare Function CountClipboardFormats Lib "user32" Alias "CountClipboardFormats"() As Long
  455. Declare Function EnumClipboardFormats Lib "user32" Alias "EnumClipboardFormats"(wFormat As Long) As Long
  456. Declare Function GetClipboardFormatName Lib "user32" Alias "GetClipboardFormatNameA"(wFormat As Long, lpString As String, nMaxCount As Long) As Long
  457. Declare Function EmptyClipboard Lib "user32" Alias "EmptyClipboard"() As Long
  458. Declare Function IsClipboardFormatAvailable Lib "user32" Alias "IsClipboardFormatAvailable"(wFormat As Long) As Long
  459. Declare Function GetPriorityClipboardFormat Lib "user32" Alias "GetPriorityClipboardFormat"(lpPriorityList As Long, nCount As Long) As Long
  460. Declare Function GetOpenClipboardWindow Lib "user32" Alias "GetOpenClipboardWindow"() As Long
  461. Declare Function CharToOem Lib "user32" Alias "CharToOemA"(lpszSrc As String, lpszDst As String) As Long
  462. Declare Function OemToChar Lib "user32" Alias "OemToCharA"(lpszSrc As String, lpszDst As String) As Long
  463. Declare Function CharToOemBuff Lib "user32" Alias "CharToOemBuffA"(lpszSrc As String, lpszDst As String, cchDstLength As Long) As Long
  464. Declare Function OemToCharBuff Lib "user32" Alias "OemToCharBuffA"(lpszSrc As String, lpszDst As String, cchDstLength As Long) As Long
  465. Declare Function CharUpper Lib "user32" Alias "CharUpperA"(lpsz As String) As String
  466. Declare Function CharUpperBuff Lib "user32" Alias "CharUpperBuffA"(lpsz As String, cchLength As Long) As Long
  467. Declare Function CharLower Lib "user32" Alias "CharLowerA"(lpsz  As String) As String
  468. Declare Function CharLowerBuff Lib "user32" Alias "CharLowerBuffA"(lpsz As String, cchLength As Long) As Long
  469. Declare Function CharNext Lib "user32" Alias "CharNextA"(lpsz As String) As String
  470. Declare Function CharPrev Lib "user32" Alias "CharPrevA"(lpszStart As String, lpszCurrent As String) As String
  471. '
  472. ' Language dependent Routines
  473. Declare Function IsCharAlpha Lib "user32" Alias "IsCharAlphaA"(cChar As Long) As Long
  474. Declare Function IsCharAlphaNumeric Lib "user32" Alias "IsCharAlphaNumericA"(cChar As Long) As Long
  475. Declare Function IsCharUpper Lib "user32" Alias "IsCharUpperA"(cChar As Long) As Long
  476. Declare Function IsCharLower Lib "user32" Alias "IsCharLowerA"(cChar As Long) As Long
  477. Declare Function SetFocusAPI Lib "user32" Alias "SetFocusAPI" Alias "SetFocus"(hWnd As Long) As Long
  478. Declare Function GetFocus Lib "user32" Alias "GetFocus"() As Long
  479. Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow"() As Long
  480. '
  481. ' Keyboard Information Routines
  482. Declare Sub GetKBCodePage Lib "user32" Alias "GetKBCodePage"()
  483. Declare Function GetKeyState Lib "user32" Alias "GetKeyState"(nVirtKey As Long) As Long
  484. Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState"(vKey As Long) As Long
  485. Declare Function GetKeyboardState Lib "user32" Alias "GetKeyboardState"(pbKeyState As Integer) As Long
  486. Declare Function SetKeyboardState Lib "user32" Alias "SetKeyboardState"(lpbKeyState As Integer) As Long
  487. Declare Function GetKeyboardType Lib "user32" Alias "GetKeyboardType"(nTypeFlag As Long) As Long
  488. Declare Function GetKeyNameText Lib "user32" Alias "GetKeyNameTextA"(lParam As Long, lpBuffer As String, nSize As Long) As Long
  489. Declare Function ToAscii Lib "user32" Alias "ToAscii"(uVirtKey As Long, uScanCode As Long, lpbKeyState As Integer, lpwTransKey As Long, fuState As Long) As Long
  490. Declare Function ToUnicode Lib "user32" Alias "ToUnicode"(wVirtKey As Long, wScanCode As Long, lpKeyState As Integer, pwszBuff As String, cchBuff As Long, wFlags As Long) As Long
  491. Declare Function OemKeyScan Lib "user32" Alias "OemKeyScan"(wOemChar As Long) As Long
  492. Declare Function VkKeyScan Lib "user32" Alias "VkKeyScanA"(cChar As Long) As Long
  493. Declare Sub keybd_event Lib "user32" Alias "keybd_event"(bVk As Integer, bScan As Integer, dwFlags As Long, dwExtraInfo As Long)
  494. Declare Sub mouse_event Lib "user32" Alias "mouse_event"(dwFlags As Long, dx As Long, dy As Long, cButtons As Long, dwExtraInfo As Long)
  495. Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA"(wCode As Long, wMapType As Long) As Long
  496. Declare Function GetInputState Lib "user32" Alias "GetInputState"() As Long
  497. Declare Function GetQueueStatus Lib "user32" Alias "GetQueueStatus"(fuFlags As Long) As Long
  498. Declare Function GetCapture Lib "user32" Alias "GetCapture"() As Long
  499. Declare Function SetCapture Lib "user32" Alias "SetCapture"(hWnd As Long) As Long
  500. Declare Sub ReleaseCapture Lib "user32" Alias "ReleaseCapture"()
  501. Declare Function MsgWaitForMultipleObjects Lib "user32" Alias "MsgWaitForMultipleObjects"(nCount As Long, pHandles As Long, fWaitAll As Long, dwMilliseconds As Long, dwWakeMask As Long) As Long
  502. '
  503. ' Windows Functions
  504. Declare Function KillTimer Lib "user32" Alias "KillTimer"(hWnd As Long, nIDEvent As Long) As Long
  505. Declare Function IsWindowUnicode Lib "user32" Alias "IsWindowUnicode"(hWnd As Long) As Long
  506. Declare Function EnableWindow Lib "user32" Alias "EnableWindow"(hWnd As Long, aBOOL As Long) As Long
  507. Declare Function IsWindowEnabled Lib "user32" Alias "IsWindowEnabled"(hWnd As Long) As Long
  508. Declare Function LoadAccelerators Lib "user32" Alias "LoadAcceleratorsA"(hInstance As Long, lpTableName As String) As Long
  509. Declare Function DestroyAcceleratorTable Lib "user32" Alias "DestroyAcceleratorTable"(hAccel As Long) As Long
  510. Declare Function GetSystemMetrics Lib "user32" Alias "GetSystemMetrics"(nIndex As Long) As Long
  511. Declare Function LoadMenu Lib "user32" Alias "LoadMenuA"(hInstance As Long, lpString As String) As Long
  512. Declare Function GetMenu Lib "user32" Alias "GetMenu"(hWnd As Long) As Long
  513. Declare Function SetMenu Lib "user32" Alias "SetMenu"(hWnd As Long, hMenu As Long) As Long
  514. Declare Function ChangeMenu Lib "user32" Alias "ChangeMenuA"(hMenu As Long, wID As Long, lpszNew As String, wIDNew As Long, wChange As Long) As Long
  515. Declare Function HiliteMenuItem Lib "user32" Alias "HiliteMenuItem"(hWnd As Long, hMenu As Long, wIDHiliteItem As Long, wHilite As Long) As Long
  516. Declare Function GetMenuString Lib "user32" Alias "GetMenuStringA"(hMenu As Long, wIDItem As Long, lpString As String, nMaxCount As Long, wFlag As Long) As Long
  517. Declare Function GetMenuState Lib "user32" Alias "GetMenuState"(hMenu As Long, wId As Long, wFlags As Long) As Long
  518. Declare Sub DrawMenuBar Lib "user32" Alias "DrawMenuBar"(hWnd As Long)
  519. Declare Function GetSystemMenu Lib "user32" Alias "GetSystemMenu"(hWnd As Long, bRevert As Long) As Long
  520. Declare Function CreateMenu Lib "user32" Alias "CreateMenu"() As Long
  521. Declare Function CreatePopupMenu Lib "user32" Alias "CreatePopupMenu"() As Long
  522. Declare Function DestroyMenu Lib "user32" Alias "DestroyMenu"(hMenu As Long) As Long
  523. Declare Function CheckMenuItem Lib "user32" Alias "CheckMenuItem"(hMenu As Long, wIDCheckItem As Long, wCheck As Long) As Long
  524. Declare Function EnableMenuItem Lib "user32" Alias "EnableMenuItem"(hMenu As Long, wIDEnableItem As Long, wEnable As Long) As Long
  525. Declare Function GetSubMenu Lib "user32" Alias "GetSubMenu"(hMenu As Long, nPos As Long) As Long
  526. Declare Function GetMenuItemID Lib "user32" Alias "GetMenuItemID"(hMenu As Long, nPos As Long) As Long
  527. Declare Function GetMenuItemCount Lib "user32" Alias "GetMenuItemCount"(hMenu As Long) As Long
  528. Declare Function RemoveMenu Lib "user32" Alias "RemoveMenu"(hMenu As Long, nPosition As Long, wFlags As Long) As Long
  529. Declare Function DeleteMenu Lib "user32" Alias "DeleteMenu"(hMenu As Long, nPosition As Long, wFlags As Long) As Long
  530. Declare Function SetMenuItemBitmaps Lib "user32" Alias "SetMenuItemBitmaps"(hMenu As Long, nPosition As Long, wFlags As Long, hBitmapUnchecked As Long, hBitmapChecked As Long) As Long
  531. Declare Function GetMenuCheckMarkDimensions Lib "user32" Alias "GetMenuCheckMarkDimensions"() As Long
  532. Declare Function DrawIcon Lib "user32" Alias "DrawIcon"(hDC As Long, X As Long, Y As Long, hIcon As Long) As Long
  533. Declare Function TabbedTextOut Lib "user32" Alias "TabbedTextOutA"(hDC As Long, X As Long, Y As Long, lpString As String, nCount As Long, nTabPositions As Long, lpnTabStopPositions As Long, nTabOrigin As Long) As Long
  534. Declare Function GetTabbedTextExtent Lib "user32" Alias "GetTabbedTextExtentA"(hDC As Long, lpString As String, nCount As Long, nTabPositions As Long, lpnTabStopPositions As Long) As Long
  535. Declare Sub UpdateWindow Lib "user32" Alias "UpdateWindow"(hWnd As Long)
  536. Declare Function SetActiveWindow Lib "user32" Alias "SetActiveWindow"(hWnd As Long) As Long
  537. Declare Function GetForegroundWindow Lib "user32" Alias "GetForegroundWindow"() As Long
  538. Declare Function SetForegroundWindow Lib "user32" Alias "SetForegroundWindow"(hWnd As Long) As Long
  539. Declare Function WindowFromDC Lib "user32" Alias "WindowFromDC"(hDC As Long) As Long
  540. Declare Function GetDC Lib "user32" Alias "GetDC"(hWnd As Long) As Long
  541. Declare Function GetDCEx Lib "user32" Alias "GetDCEx"(hwnd As Long, hrgnclip As Long, fdwOptions As Long) As Long
  542. Declare Function GetWindowDC Lib "user32" Alias "GetWindowDC"(hWnd As Long) As Long
  543. Declare Function ReleaseDC Lib "user32" Alias "ReleaseDC"(hWnd As Long, hDC As Long) As Long
  544. Declare Function GetUpdateRgn Lib "user32" Alias "GetUpdateRgn"(hWnd As Long, hRgn As Long, fErase As Long) As Long
  545. Declare Function ExcludeUpdateRgn Lib "user32" Alias "ExcludeUpdateRgn"(hDC As Long, hWnd As Long) As Long
  546. Declare Sub InvalidateRgn Lib "user32" Alias "InvalidateRgn"(hWnd As Long, hRgn As Long, bErase As Long)
  547. Declare Sub ValidateRgn Lib "user32" Alias "ValidateRgn"(hWnd As Long, hRgn As Long)
  548. Declare Function LockWindowUpdate Lib "user32" Alias "LockWindowUpdate"(hwndLock As Long) As Long
  549. Declare Function SetScrollPos Lib "user32" Alias "SetScrollPos"(hWnd As Long, nBar As Long, nPos As Long, bRedraw As Long) As Long
  550. Declare Function GetScrollPos Lib "user32" Alias "GetScrollPos"(hWnd As Long, nBar As Long) As Long
  551. Declare Sub SetScrollRange Lib "user32" Alias "SetScrollRange"(hWnd As Long, nBar As Long, nMinPos As Long, nMaxPos As Long, bRedraw As Long)
  552. Declare Sub GetScrollRange Lib "user32" Alias "GetScrollRange"(hWnd As Long, nBar As Long, lpMinPos As Long, lpMaxPos As Long)
  553. Declare Sub ShowScrollBar Lib "user32" Alias "ShowScrollBar"(hWnd As Long, wBar As Long, bShow As Long)
  554. Declare Function EnableScrollBar Lib "user32" Alias "EnableScrollBar"(hWnd As Long, wSBflags As Long, wArrows As Long) As Long
  555. Declare Function SetProp Lib "user32" Alias "SetPropA"(hWnd As Long, lpString As String, hData As Long) As Long
  556. Declare Function RemoveProp Lib "user32" Alias "RemovePropA"(hWnd As Long, lpString As String) As Long
  557. Declare Sub SetWindowText Lib "user32" Alias "SetWindowTextA"(hWnd As Long, lpString As String)
  558. Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA"(hWnd As Long, lpString As String, aint As Long) As Long
  559. Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA"(hWnd As Long) As Long
  560. Declare Function MessageBox Lib "user32" Alias "MessageBoxA"(hWnd As Long, lpText As String, lpCaption As String, wType As Long) As Long
  561. Declare Function MessageBoxEx Lib "user32" Alias "MessageBoxExA"(hWnd As Long, lpText As String, lpCaption As String, uType As Long, wLanguageId As Long) As Long
  562. Declare Sub MessageBeep Lib "user32" Alias "MessageBeep"(wType As Long)
  563. Declare Function ShowCursor Lib "user32" Alias "ShowCursor"(bShow As Long) As Long
  564. Declare Sub SetCursorPos Lib "user32" Alias "SetCursorPos"(X As Long, Y As Long)
  565. Declare Function SetCursor Lib "user32" Alias "SetCursor"(hCursor As Long) As Long
  566. Declare Function GetCursor Lib "user32" Alias "GetCursor"() As Long
  567. Declare Function CreateCaret Lib "user32" Alias "CreateCaret"(hWnd As Long, hBitmap As Long, nWidth As Long, nHeight As Long) As Long
  568. Declare Function GetCaretBlinkTime Lib "user32" Alias "GetCaretBlinkTime"() As Long
  569. Declare Sub SetCaretBlinkTime Lib "user32" Alias "SetCaretBlinkTime"(wMSeconds As Long)
  570. Declare Sub DestroyCaret Lib "user32" Alias "DestroyCaret"()
  571. Declare Sub HideCaret Lib "user32" Alias "HideCaret"(hWnd As Long)
  572. Declare Sub ShowCaret Lib "user32" Alias "ShowCaret"(hWnd As Long)
  573. Declare Sub SetCaretPos Lib "user32" Alias "SetCaretPos"(X As Long, Y As Long)
  574. Declare Function GetSysColor Lib "user32" Alias "GetSysColor"(nIndex As Long) As Long
  575. Declare Sub SetSysColors Lib "user32" Alias "SetSysColors"(nChanges As Long, lpSysColor As Long, lpColorValues As Long)
  576. Declare Function GetWindowWord Lib "user32" Alias "GetWindowWord"(hWnd As Long, nIndex As Long) As Long
  577. Declare Function SetWindowWord Lib "user32" Alias "SetWindowWord"(hWnd As Long, nIndex As Long, wNewWord As Long) As Long
  578. Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA"(hWnd As Long, nIndex As Long) As Long
  579. Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA"(hWnd As Long, nIndex As Long, dwNewLong As Long) As Long
  580. Declare Function GetClassWord Lib "user32" Alias "GetClassWord"(hWnd As Long, nIndex As Long) As Long
  581. Declare Function SetClassWord Lib "user32" Alias "SetClassWord"(hWnd As Long, nIndex As Long, wNewWord As Long) As Long
  582. Declare Function GetClassLong Lib "user32" Alias "GetClassLongA"(hWnd As Long, nIndex As Long) As Long
  583. Declare Function SetClassLong Lib "user32" Alias "SetClassLongA"(hWnd As Long, nIndex As Long, dwNewLong As Long) As Long
  584. Declare Function GetDesktopWindow Lib "user32" Alias "GetDesktopWindow"() As Long
  585. Declare Function GetParent Lib "user32" Alias "GetParent"(hWnd As Long) As Long
  586. Declare Function SetParent Lib "user32" Alias "SetParent"(hWndChild As Long, hWndNewParent As Long) As Long
  587. Declare Function GetClassName Lib "user32" Alias "GetClassNameA"(hWnd As Long, lpClassName As String, nMaxCount As Long) As Long
  588. Declare Function GetTopWindow Lib "user32" Alias "GetTopWindow"(hWnd As Long) As Long
  589. Declare Function GetWindowThreadProcessId Lib "user32" Alias "GetWindowThreadProcessId"(hWnd As Long, lpdwProcessId As Long) As Long
  590. Declare Function GetLastActivePopup Lib "user32" Alias "GetLastActivePopup"(hwndOwnder As Long) As Long
  591. Declare Function GetWindow Lib "user32" Alias "GetWindow"(hWnd As Long, wCmd As Long) As Long
  592. Declare Function UnhookWindowsHookEx Lib "user32" Alias "UnhookWindowsHookEx"(hHook As Long) As Long
  593. '
  594. ' Resource Loading Routines
  595. Declare Function DestroyCursor Lib "user32" Alias "DestroyCursor"(hCursor As Long) As Long
  596. Declare Function DestroyIcon Lib "user32" Alias "DestroyIcon"(hIcon As Long) As Long
  597. Declare Function LookupIconIdFromDirectory Lib "user32" Alias "LookupIconIdFromDirectory"(presbits As Integer, fIcon As Long) As Long
  598. Declare Function CreateIconFromResource Lib "user32" Alias "CreateIconFromResource"(presbits As Integer, dwResSize As Long, fIcon As Long, dwVer As Long) As Long
  599. Declare Function CopyIcon Lib "user32" Alias "CopyIcon"(hinst As Long, hicon As Long) As Long
  600. Declare Function DlgDirList Lib "user32" Alias "DlgDirListA"(hDlg As Long, lpPathSpec As String, nIDListBox As Long, nIDStaticPath As Long, wFiletype As Long) As Long
  601. Declare Function DlgDirListComboBox Lib "user32" Alias "DlgDirListComboBoxA"(hDlg As Long, lpPathSpec As String, nIDComboBox As Long, nIDStaticPath As Long, wFileType As Long) As Long
  602. Declare Function DefFrameProc Lib "user32" Alias "DefFrameProcA"(hWnd As Long, hWndMDIClient As Long, wMsg As Long, wParam As Long, lParam As Long) As Long
  603. Declare Function DefMDIChildProc Lib "user32" Alias "DefMDIChildProcA"(hWnd As Long, wMsg As Long, wParam As Long, lParam As Long) As Long
  604. Declare Function ArrangeIconicWindows Lib "user32" Alias "ArrangeIconicWindows"(hWnd As Long) As Long
  605. Declare Function CreateMDIWindow Lib "user32" Alias "CreateMDIWindowA"(lpClassName As String, lpWindowName As String, dwStyle As Long, X As Long, Y As Long, nWidth As Long, nHeight As Long, hWndParent As Long, hInstance As Long, lParam As Long) As Long
  606. '
  607. '  Help engine section.
  608. ' Commands to pass WinHelp()
  609. Declare Function ImpersonateDdeClientWindow Lib "user32" Alias "ImpersonateDdeClientWindow"(hWndClient As Long, hWndServer As Long) As Long
  610. Declare Function PackDDElParam Lib "user32" Alias "PackDDElParam"(msg As Long, uiLo As Long, uiHi As Long) As Long
  611. Declare Function UnpackDDElParam Lib "user32" Alias "UnpackDDElParam"(msg As Long, lParam As Long, puiLo As Long, puiHi As Long) As Long
  612. Declare Function FreeDDElParam Lib "user32" Alias "FreeDDElParam"(msg As Long, lParam As Long) As Long
  613. Declare Function ReuseDDElParam Lib "user32" Alias "ReuseDDElParam"(lParam As Long, msgIn As Long, msgOut As Long, uiLo As Long, uiHi As Long) As Long
  614. Declare Function DdeUninitialize Lib "user32" Alias "DdeUninitialize"(idInst As Long) As Long
  615. '
  616. ' conversation enumeration functions
  617. Declare Function DdeQueryNextServer Lib "user32" Alias "DdeQueryNextServer"(hConvList As Long, hConvPrev As Long) As Long
  618. Declare Function DdeDisconnectList Lib "user32" Alias "DdeDisconnectList"(hConvList As Long) As Long
  619. '
  620. ' conversation control functions
  621. Declare Function DdeDisconnect Lib "user32" Alias "DdeDisconnect"(hConv As Long) As Long
  622. Declare Function DdeReconnect Lib "user32" Alias "DdeReconnect"(hConv As Long) As Long
  623. Declare Function DdeSetUserHandle Lib "user32" Alias "DdeSetUserHandle"(hConv As Long, id As Long, hUser As Long) As Long
  624. Declare Function DdeAbandonTransaction Lib "user32" Alias "DdeAbandonTransaction"(idInst As Long, hConv As Long, idTransaction As Long) As Long
  625. '
  626. ' app server interface functions
  627. Declare Function DdePostAdvise Lib "user32" Alias "DdePostAdvise"(idInst As Long, hszTopic As Long, hszItem As Long) As Long
  628. Declare Function DdeEnableCallback Lib "user32" Alias "DdeEnableCallback"(idInst As Long, hConv As Long, wCmd As Long) As Long
  629. Declare Function DdeImpersonateClient Lib "user32" Alias "DdeImpersonateClient"(hConv As Long) As Long
  630. Declare Function DdeNameService Lib "user32" Alias "DdeNameService"(idInst As Long, hsz1 As Long, hsz2 As Long, afCmd As Long) As Long
  631. '
  632. ' app client interface functions
  633. Declare Function DdeClientTransaction Lib "user32" Alias "DdeClientTransaction"(pData As Integer, cbData As Long, hConv As Long, hszItem As Long, wFmt As Long, wType As Long, dwTimeout As Long, pdwResult As Long) As Long
  634. '
  635. ' data transfer functions
  636. Declare Function DdeCreateDataHandle Lib "user32" Alias "DdeCreateDataHandle"(idInst As Long, pSrc As Integer, cb As Long, cbOff As Long, hszItem As Long, wFmt As Long, afCmd As Long) As Long
  637. Declare Function DdeFreeDataHandle Lib "user32" Alias "DdeFreeDataHandle"(hData As Long) As Long
  638. Declare Function DdeGetLastError Lib "user32" Alias "DdeGetLastError"(idInst As Long) As Long
  639. Declare Function DdeCreateStringHandle Lib "user32" Alias "DdeCreateStringHandleA"(idInst As Long, psz As String, iCodePage As Long) As Long
  640. Declare Function DdeQueryString Lib "user32" Alias "DdeQueryStringA"(idInst As Long, hsz As Long, psz As String, cchMax As Long, iCodePage As Long) As Long
  641. Declare Function DdeFreeStringHandle Lib "user32" Alias "DdeFreeStringHandle"(idInst As Long, hsz As Long) As Long
  642. Declare Function DdeKeepStringHandle Lib "user32" Alias "DdeKeepStringHandle"(idInst As Long, hsz As Long) As Long
  643. Declare Function DdeCmpStringHandles Lib "user32" Alias "DdeCmpStringHandles"(hsz1 As Long, hsz2 As Long) As Long
  644. '
  645. ' -------------------------
  646. '  MMSystem Section
  647. ' -------------------------
  648. ' This section defines all the support for Multimedia applications
  649. Declare Function CloseDriver Lib "winmm" Alias "CloseDriver"(hDriver As Long, lParam1 As Long, lParam2 As Long) As Long
  650. Declare Function OpenDriver Lib "winmm" Alias "OpenDriver"(szDriverName As String, szSectionName As String, lParam2 As Long) As Long
  651. Declare Function SendDriverMessage Lib "winmm" Alias "SendDriverMessage"(hDriver As Long, message As Long, lParam1 As Long, lParam2 As Long) As Long
  652. Declare Function DrvGetModuleHandle Lib "winmm" Alias "DrvGetModuleHandle"(hDriver As Long) As Long
  653. Declare Function GetDriverModuleHandle Lib "winmm" Alias "GetDriverModuleHandle"(hDriver As Long) As Long
  654. Declare Function mmsystemGetVersion Lib "winmm" Alias "mmsystemGetVersion"() As Long
  655. Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA"(lpszSoundName As String, uFlags As Long) As Long
  656. Declare Function PlaySound Lib "winmm" Alias "PlaySoundA"(lpszName As String, hModule As Long, dwFlags As Long) As Long
  657. Declare Function waveOutGetNumDevs Lib "winmm" Alias "waveOutGetNumDevs"() As Long
  658. Declare Function waveOutGetVolume Lib "winmm" Alias "waveOutGetVolume"(uDeviceID As Long, lpdwVolume As Long) As Long
  659. Declare Function waveOutSetVolume Lib "winmm" Alias "waveOutSetVolume"(uDeviceID As Long, dwVolume As Long) As Long
  660. Declare Function waveOutGetErrorText Lib "winmm" Alias "waveOutGetErrorTextA"(err As Long, lpText As String, uSize As Long) As Long
  661. Declare Function waveOutClose Lib "winmm" Alias "waveOutClose"(hWaveOut As Long) As Long
  662. Declare Function waveOutPause Lib "winmm" Alias "waveOutPause"(hWaveOut As Long) As Long
  663. Declare Function waveOutRestart Lib "winmm" Alias "waveOutRestart"(hWaveOut As Long) As Long
  664. Declare Function waveOutReset Lib "winmm" Alias "waveOutReset"(hWaveOut As Long) As Long
  665. Declare Function waveOutBreakLoop Lib "winmm" Alias "waveOutBreakLoop"(hWaveOut As Long) As Long
  666. Declare Function waveOutGetPitch Lib "winmm" Alias "waveOutGetPitch"(hWaveOut As Long, lpdwPitch As Long) As Long
  667. Declare Function waveOutSetPitch Lib "winmm" Alias "waveOutSetPitch"(hWaveOut As Long, dwPitch As Long) As Long
  668. Declare Function waveOutGetPlaybackRate Lib "winmm" Alias "waveOutGetPlaybackRate"(hWaveOut As Long, lpdwRate As Long) As Long
  669. Declare Function waveOutSetPlaybackRate Lib "winmm" Alias "waveOutSetPlaybackRate"(hWaveOut As Long, dwRate As Long) As Long
  670. Declare Function waveOutGetID Lib "winmm" Alias "waveOutGetID"(hWaveOut As Long, lpuDeviceID As Long) As Long
  671. Declare Function waveOutMessage Lib "winmm" Alias "waveOutMessage"(hWaveOut As Long, msg As Long, dw1 As Long, dw2 As Long) As Long
  672. Declare Function waveInGetNumDevs Lib "winmm" Alias "waveInGetNumDevs"() As Long
  673. Declare Function waveInGetErrorText Lib "winmm" Alias "waveInGetErrorTextA"(err As Long, lpText As String, uSize As Long) As Long
  674. Declare Function waveInClose Lib "winmm" Alias "waveInClose"(hWaveIn As Long) As Long
  675. Declare Function waveInStart Lib "winmm" Alias "waveInStart"(hWaveIn As Long) As Long
  676. Declare Function waveInStop Lib "winmm" Alias "waveInStop"(hWaveIn As Long) As Long
  677. Declare Function waveInReset Lib "winmm" Alias "waveInReset"(hWaveIn As Long) As Long
  678. Declare Function waveInGetID Lib "winmm" Alias "waveInGetID"(hWaveIn As Long, lpuDeviceID As Long) As Long
  679. Declare Function waveInMessage Lib "winmm" Alias "waveInMessage"(hWaveIn As Long, msg As Long, dw1 As Long, dw2 As Long) As Long
  680. Declare Function midiOutGetVolume Lib "winmm" Alias "midiOutGetVolume"(uDeviceID As Long, lpdwVolume As Long) As Long
  681. Declare Function midiOutSetVolume Lib "winmm" Alias "midiOutSetVolume"(uDeviceID As Long, dwVolume As Long) As Long
  682. Declare Function midiOutGetErrorText Lib "winmm" Alias "midiOutGetErrorTextA"(err As Long, lpText As String, uSize As Long) As Long
  683. Declare Function midiOutOpen Lib "winmm" Alias "midiOutOpen"(lphMidiOut As Long, uDeviceID As Long, dwCallback As Long, dwInstance As Long, dwFlags As Long) As Long
  684. Declare Function midiOutClose Lib "winmm" Alias "midiOutClose"(hMidiOut As Long) As Long
  685. Declare Function midiOutShortMsg Lib "winmm" Alias "midiOutShortMsg"(hMidiOut As Long, dwMsg As Long) As Long
  686. Declare Function midiOutReset Lib "winmm" Alias "midiOutReset"(hMidiOut As Long) As Long
  687. Declare Function midiOutCachePatches Lib "winmm" Alias "midiOutCachePatches"(hMidiOut As Long, uBank As Long, lpPatchArray As Long, uFlags As Long) As Long
  688. Declare Function midiOutCacheDrumPatches Lib "winmm" Alias "midiOutCacheDrumPatches"(hMidiOut As Long, uPatch As Long, lpKeyArray As Long, uFlags As Long) As Long
  689. Declare Function midiOutGetID Lib "winmm" Alias "midiOutGetID"(hMidiOut As Long, lpuDeviceID As Long) As Long
  690. Declare Function midiOutMessage Lib "winmm" Alias "midiOutMessage"(hMidiOut As Long, msg As Long, dw1 As Long, dw2 As Long) As Long
  691. Declare Function midiInGetNumDevs Lib "winmm" Alias "midiInGetNumDevs"() As Long
  692. Declare Function midiInGetErrorText Lib "winmm" Alias "midiInGetErrorTextA"(err As Long, lpText As String, uSize As Long) As Long
  693. Declare Function midiInOpen Lib "winmm" Alias "midiInOpen"(lphMidiIn As Long, uDeviceID As Long, dwCallback As Long, dwInstance As Long, dwFlags As Long) As Long
  694. Declare Function midiInClose Lib "winmm" Alias "midiInClose"(hMidiIn As Long) As Long
  695. Declare Function midiInStart Lib "winmm" Alias "midiInStart"(hMidiIn As Long) As Long
  696. Declare Function midiInStop Lib "winmm" Alias "midiInStop"(hMidiIn As Long) As Long
  697. Declare Function midiInReset Lib "winmm" Alias "midiInReset"(hMidiIn As Long) As Long
  698. Declare Function midiInGetID Lib "winmm" Alias "midiInGetID"(hMidiIn As Long, lpuDeviceID As Long) As Long
  699. Declare Function midiInMessage Lib "winmm" Alias "midiInMessage"(hMidiIn As Long, msg As Long, dw1 As Long, dw2 As Long) As Long
  700. Declare Function auxGetNumDevs Lib "winmm" Alias "auxGetNumDevs"() As Long
  701. Declare Function auxSetVolume Lib "winmm" Alias "auxSetVolume"(uDeviceID As Long, dwVolume As Long) As Long
  702. Declare Function auxGetVolume Lib "winmm" Alias "auxGetVolume"(uDeviceID As Long, lpdwVolume As Long) As Long
  703. Declare Function auxOutMessage Lib "winmm" Alias "auxOutMessage"(uDeviceID As Long, msg As Long, dw1 As Long, dw2 As Long) As Long
  704. Declare Function timeGetTime Lib "winmm" Alias "timeGetTime"() As Long
  705. Declare Function timeKillEvent Lib "winmm" Alias "timeKillEvent"(uId As Long) As Long
  706. Declare Function timeEndPeriod Lib "winmm" Alias "timeEndPeriod"(uPeriod As Long) As Long
  707. Declare Function joyGetThreshold Lib "winmm" Alias "joyGetThreshold"(id As Long, lpuThreshold As Long) As Long
  708. Declare Function joyReleaseCapture Lib "winmm" Alias "joyReleaseCapture"(id As Long) As Long
  709. Declare Function joySetCapture Lib "winmm" Alias "joySetCapture"(hwnd As Long, uID As Long, uPeriod As Long, bChanged As Long) As Long
  710. Declare Function joySetThreshold Lib "winmm" Alias "joySetThreshold"(id As Long, uThreshold As Long) As Long
  711. Declare Function joySetCalibration Lib "winmm" Alias "joySetCalibration"(id As Long, pwXbase As Long, pwXdelta As Long, pwYbase As Long, pwYdelta As Long, pwZbase As Long, pwZdelta As Long) As Long
  712. Declare Function mmioStringToFOURCC Lib "winmm" Alias "mmioStringToFOURCCA"(sz As String, uFlags As Long) As Long
  713. Declare Function mmioClose Lib "winmm" Alias "mmioClose"(hmmio As Long, uFlags As Long) As Long
  714. Declare Function mmioRead Lib "winmm" Alias "mmioRead"(hmmio As Long, pch As String, cch As Long) As Long
  715. Declare Function mmioWrite Lib "winmm" Alias "mmioWrite"(hmmio As Long, pch As String, cch As Long) As Long
  716. Declare Function mmioSeek Lib "winmm" Alias "mmioSeek"(hmmio As Long, lOffset As Long, iOrigin As Long) As Long
  717. Declare Function mmioSetBuffer Lib "winmm" Alias "mmioSetBuffer"(hmmio As Long, pchBuffer As String, cchBuffer As Long, uflags As Long) As Long
  718. Declare Function mmioFlush Lib "winmm" Alias "mmioFlush"(hmmio As Long, uFlags As Long) As Long
  719. Declare Function mmioSendMessage Lib "winmm" Alias "mmioSendMessage"(hmmio As Long, uMsg As Long, lParam1 As Long, lParam2 As Long) As Long
  720. '
  721. ' MCI functions
  722. Declare Function mciSendCommand Lib "winmm" Alias "mciSendCommandA"(wDeviceID As Long, uMessage As Long, dwParam1 As Long, dwParam2 As Long) As Long
  723. Declare Function mciSendString Lib "winmm" Alias "mciSendStringA"(lpstrCommand As String, lpstrReturnString As String, uReturnLength As Long, hwndCallback As Long) As Long
  724. Declare Function mciGetCreatorTask Lib "winmm" Alias "mciGetCreatorTask"(wDeviceId As Long) As Long
  725. Declare Function mciGetDeviceID Lib "winmm" Alias "mciGetDeviceIDA"(lpstrName As String) As Long
  726. Declare Function mciGetDeviceIDFromElementID Lib "winmm" Alias "mciGetDeviceIDFromElementIDA"(dwElementID As Long, lpstrType As String) As Long
  727. Declare Function mciGetErrorString Lib "winmm" Alias "mciGetErrorStringA"(dwError As Long, lpstrBuffer As String, uLength As Long) As Long
  728. Declare Function mciExecute Lib "winmm" Alias "mciExecute"(lpstrCommand As String) As Long
  729. '
  730. ' ----------------
  731. ' shell association database management functions
  732. ' -----------------
  733. Declare Function DragQueryFile Lib "shell32" Alias "DragQueryFileA"(hDrop As Long, iFile As Long, lpszFile As String, cb As Long) As Long
  734. Declare Sub DragFinish Lib "shell32" Alias "DragFinish"(hDrop As Long)
  735. Declare Sub DragAcceptFiles Lib "shell32" Alias "DragAcceptFiles"(hWnd As Long, fAccept As Long)
  736. Declare Function ExtractIcon Lib "shell32" Alias "ExtractIconA"(hInst As Long, lpszExeFileName As String, nIconIndex As Long) As Long
  737. Declare Function ShellExecute Lib "shell32" Alias "ShellExecuteA"(hWnd As Long, lpOperation As String, lpFile As String, lpParameters As String, lpDirectory As String, nShowCmd As Long) As Long
  738. Declare Function FindExecutable Lib "shell32" Alias "FindExecutableA"(lpFile As String, lpDirectory As String, lpResult As String) As Long
  739. Declare Function ShellAbout Lib "shell32" Alias "ShellAboutA"(hWnd As Long, szApp As String, szOtherStuff As String, hIcon As Long) As Long
  740. Declare Function DuplicateIcon Lib "shell32" Alias "DuplicateIcon"(hInst As Long, hIcon As Long) As Long
  741. Declare Function ExtractAssociatedIcon Lib "shell32" Alias "ExtractAssociatedIconA"(hInst As Long, lpIconPath As String, lpiIcon As Long) As Long
  742. '
  743. ' ***** Windows Network support *****
  744. Declare Function WNetAddConnection Lib "mpr" Alias "WNetAddConnectionA"(lpszNetPath As String, lpszPassword As String, lpszLocalName As String) As Long
  745. Declare Function WNetCancelConnection Lib "mpr" Alias "WNetCancelConnectionA"(lpszName As String, bForce As Long) As Long
  746. Declare Function WNetCancelConnection2 Lib "mpr" Alias "WNetCancelConnection2A"(lpName As String, dwFlags As Long, fForce As Long) As Long
  747. Declare Function WNetGetConnection Lib "mpr" Alias "WNetGetConnectionA"(lpszLocalName As String, lpszRemoteName As String, cbRemoteName As Long) As Long
  748. Declare Function WNetCloseEnum Lib "mpr" Alias "WNetCloseEnum"(hEnum As Long) As Long
  749. Declare Function WNetGetUser Lib "mpr" Alias "WNetGetUserA"(lpName As String, lpUserName As String, lpnLength As Long) As Long
  750. Declare Function WNetConnectionDialog Lib "mpr" Alias "WNetConnectionDialog"(hwnd As Long, dwType As Long) As Long
  751. Declare Function WNetDisconnectDialog Lib "mpr" Alias "WNetDisconnectDialog"(hwnd As Long, dwType As Long) As Long
  752. Declare Function WNetGetLastError Lib "mpr" Alias "WNetGetLastErrorA"(lpError As Long, lpErrorBuf As String, nErrorBufSize As Long, lpNameBuf As String, nNameBufSize As Long) As Long
  753. '
  754. ' -----------------
  755. ' ADVAPI32
  756. ' -----------------
  757. ' function prototypes, constants, and type definitions for Windows 32-bit Registry API
  758. ' Registry API prototypes
  759. Declare Function RegCloseKey Lib "advapi32" Alias "RegCloseKey"(hKey As Long) As Long
  760. Declare Function RegConnectRegistry Lib "advapi32" Alias "RegConnectRegistryA"(lpMachineName As String, hKey As Long, phkResult As Long) As Long
  761. Declare Function RegCreateKey Lib "advapi32" Alias "RegCreateKeyA"(hKey As Long, lpSubKey As String, phkResult As Long) As Long
  762. Declare Function RegDeleteKey Lib "advapi32" Alias "RegDeleteKeyA"(hKey As Long, lpSubKey As String) As Long
  763. Declare Function RegDeleteValue Lib "advapi32" Alias "RegDeleteValueA"(hKey As Long, lpValueName As String) As Long
  764. Declare Function RegEnumKey Lib "advapi32" Alias "RegEnumKeyA"(hKey As Long, dwIndex As Long, lpName As String, cbName As Long) As Long
  765. Declare Function RegEnumValue Lib "advapi32" Alias "RegEnumValueA"(hKey As Long, dwIndex As Long, lpValueName As String, lpcbValueName As Long, lpReserved As Long, lpType As Long, lpData As Integer, lpcbData As Long) As Long
  766. Declare Function RegFlushKey Lib "advapi32" Alias "RegFlushKey"(hKey As Long) As Long
  767. Declare Function RegLoadKey Lib "advapi32" Alias "RegLoadKeyA"(hKey As Long, lpSubKey As String, lpFile As String) As Long
  768. Declare Function RegNotifyChangeKeyValue Lib "advapi32" Alias "RegNotifyChangeKeyValue"(hKey As Long, bWatchSubtree As Long, dwNotifyFilter As Long, hEvent As Long, fAsynchronus As Long) As Long
  769. Declare Function RegOpenKey Lib "advapi32" Alias "RegOpenKeyA"(hKey As Long, lpSubKey As String, phkResult As Long) As Long
  770. Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA"(hKey As Long, lpSubKey As String, ulOptions As Long, samDesired As Long, phkResult As Long) As Long
  771. Declare Function RegQueryValue Lib "advapi32" Alias "RegQueryValueA"(hKey As Long, lpSubKEy As String, lpValue As String, lpcbValue As Long) As Long
  772. Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA"(hKey As Long, lpValueName As String, lpReserved As Long, lpType As Long, lpData As Integer, lpcbData As Long) As Long
  773. Declare Function RegReplaceKey Lib "advapi32" Alias "RegReplaceKeyA"(hKey As Long, lpSubKey As String, lpNewFile As String, lpOldFile As String) As Long
  774. Declare Function RegRestoreKey Lib "advapi32" Alias "RegRestoreKeyA"(hKey As Long, lpFile As String, dwFlags As Long) As Long
  775. Declare Function RegSetValue Lib "advapi32" Alias "RegSetValueA"(hKey As Long, lpSubKey As String, dwType As Long, lpData As String, cbData As Long) As Long
  776. Declare Function RegSetValueEx Lib "advapi32" Alias "RegSetValueExA"(hKey As Long, lpValueName As String, Reserved As Long, dwType As Long, lpData As Integer, cbData As Long) As Long
  777. Declare Function RegUnLoadKey Lib "advapi32" Alias "RegUnLoadKeyA"(hKey As Long, lpSubKey As String) As Long
  778. Declare Function InitiateSystemShutdown Lib "advapi32" Alias "InitiateSystemShutdownA"(lpMachineName As String, lpMessage As String, dwTimeout As Long, bForceAppsClosed As Long, bRebootAfterShutdown As Long) As Long
  779. Declare Function AbortSystemShutdown Lib "advapi32" Alias "AbortSystemShutdownA"(lpMachineName As String) As Long
  780. '
  781. ' API Function Prototypes
  782. Declare Function ChangeServiceConfig Lib "advapi32" Alias "ChangeServiceConfigA"(hService As Long, dwServiceType As Long, dwStartType As Long, dwErrorControl As Long, lpBinaryPathName As String, lpLoadOrderGroup As String, lpdwTagId As Long, lpDependencies As String, lpServiceStartName As String, lpPassword As String, lpDisplayName As String) As Long
  783. Declare Function CloseServiceHandle Lib "advapi32" Alias "CloseServiceHandle"(hSCObject As Long) As Long
  784. Declare Function CreateService Lib "advapi32" Alias "CreateServiceA"(hSCManager As Long, lpServiceName As String, lpDisplayName As String, dwDesiredAccess As Long, dwServiceType As Long, dwStartType As Long, dwErrorControl As Long, lpBinaryPathName As String, lpLoadOrderGroup As String, lpdwTagId As Long, lpDependencies As String, lpServiceStartName As String, lpPassword As String) As Long
  785. Declare Function DeleteService Lib "advapi32" Alias "DeleteService"(hService As Long) As Long
  786. Declare Function GetServiceKeyName Lib "advapi32" Alias "GetServiceKeyNameA"(hSCManager As Long, lpDisplayName As String, lpServiceName As String, lpcchBuffer As Long) As Long
  787. Declare Function GetServiceDisplayName Lib "advapi32" Alias "GetServiceDisplayNameA"(hSCManager As Long, lpServiceName As String, lpDisplayName As String, lpcchBuffer As Long) As Long
  788. Declare Function NotifyBootConfigStatus Lib "advapi32" Alias "NotifyBootConfigStatus"(BootAcceptable As Long) As Long
  789. Declare Function OpenSCManager Lib "advapi32" Alias "OpenSCManagerA"(lpMachineName As String, lpDatabaseName As String, dwDesiredAccess As Long) As Long
  790. Declare Function OpenService Lib "advapi32" Alias "OpenServiceA"(hSCManager As Long, lpServiceName As String, dwDesiredAccess As Long) As Long
  791. Declare Function StartService Lib "advapi32" Alias "StartServiceA"(hService As Long, dwNumServiceArgs As Long, lpServiceArgVectors As String) As Long
  792.