home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 January / Chip_1999-01_cd.bin / sharewar / learnAPI / learnapi.exe / API.bas < prev    next >
BASIC Source File  |  1998-07-02  |  7KB  |  193 lines
  1. Attribute VB_Name = "basAPI"
  2. Type OPENFILENAME
  3.     lStructSize As Long
  4.     hwndOwner As Long
  5.     hInstance As Long
  6.     lpstrFilter As String
  7.     lpstrCustomFilter As String
  8.     nMaxCustFilter As Long
  9.     nFilterIndex As Long
  10.     lpstrFile As String
  11.     nMaxFile As Long
  12.     lpstrFileTitle As String
  13.     nMaxFileTitle As Long
  14.     lpstrInitialDir As String
  15.     lpstrTitle As String
  16.     flags As Long
  17.     nFileOffset As Integer
  18.     nFileExtension As Integer
  19.     lpstrDefExt As String
  20.     lCustData As Long
  21.     lpfnHook As Long
  22.     lpTemplateName As String
  23. End Type
  24.  
  25. Type POINTAPI
  26.     X As Long
  27.     Y As Long
  28. End Type
  29.  
  30. Type OSVERSIONINFO
  31.     dwOSVersionInfoSize As Long
  32.     dwMajorVersion As Long
  33.     dwMinorVersion As Long
  34.     dwBuildNumber As Long
  35.     dwPlatformId As Long
  36.     szCSDVersion As String * 128
  37. End Type
  38.  
  39. Type SYSTEM_INFO
  40.     dwOemID As Long
  41.     dwPageSize As Long
  42.     lpMinimumApplicationAddress As Long
  43.     lpMaximumApplicationAddress As Long
  44.     dwActiveProcessorMask As Long
  45.     dwNumberOrfProcessors As Long
  46.     dwProcessorType As Long
  47.     dwAllocationGranularity As Long
  48.     dwReserved As Long
  49. End Type
  50.  
  51. Type MEMORYSTATUS
  52.     dwLength As Long
  53.     dwMemoryLoad As Long
  54.     dwTotalPhys As Long
  55.     dwAvailPhys As Long
  56.     dwTotalPageFile As Long
  57.     dwAvailPageFile As Long
  58.     dwTotalVirtual As Long
  59.     dwAvailVirtual As Long
  60. End Type
  61.  
  62. Type CHOOSECOLOR
  63.     lStructSize As Long
  64.     hwndOwner As Long
  65.     hInstance As Long
  66.     rgbResult As Long
  67.     lpCustColors As String
  68.     flags As Long
  69.     lCustData As Long
  70.     lpfnHook As Long
  71.     lpTemplateName As String
  72. End Type
  73.  
  74. Declare Function SetDoubleClickTime Lib "user32" (ByVal wCount As Long) As Long
  75.  
  76. Declare Function GetDoubleClickTime Lib "user32" () As Long
  77.  
  78. Declare Function CharLower Lib "user32.dll" Alias "CharLowerA" (ByVal lpsz As String) As String
  79.  
  80. Declare Function CharUpper Lib "user32.dll" Alias "CharUpperA" (ByVal lpsz As String) As String
  81.  
  82. Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
  83.  
  84. Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
  85.  
  86. Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long
  87.  
  88. Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
  89.  
  90. Declare Function GetTickCount Lib "kernel32" () As Long
  91.  
  92. Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long
  93.  
  94. Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
  95.  
  96. Declare Function InternetAutodial Lib "wininet.dll" (ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
  97.  
  98. Declare Function InternetAutodialHangup Lib "wininet.dll" (ByVal dwReserved As Long) As Long
  99.  
  100. Declare Function GetDriveType Lib "kernel32.dll" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
  101.  
  102. Declare Function CHOOSECOLOR Lib "comdlg32.dll" Alias "ChooseColorA" (pChoosecolor As CHOOSECOLOR) As Long
  103.  
  104. Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
  105.  
  106. Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long) As Long
  107.  
  108. Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
  109.  
  110. Declare Function MessageBeep Lib "user32" (ByVal wType As Long) As Long
  111.  
  112. Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
  113.  
  114. Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)
  115.  
  116. Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
  117.  
  118. Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTtoalNumberOfClusters As Long) As Long
  119.  
  120. Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
  121.  
  122. Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long
  123.  
  124. Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
  125.  
  126. Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
  127.  
  128. Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
  129.  
  130. Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
  131.  
  132. Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
  133.  
  134. Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
  135.  
  136. Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
  137.  
  138. Declare Function ExitWindowsEx Lib "user32.dll" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
  139.  
  140. 'GetVersionEx Constants
  141. Public Const VER_PLATFORM_WIN32s = 0
  142. Public Const VER_PLATFORM_WIN32_WINDOWS = 1
  143. Public Const VER_PLATFORM_WIN32_NT = 2
  144.  
  145. 'ExitWindowsEx Constants
  146. Public Const SW_SHOWNORMAL = 1
  147. Public Const EWX_SHUTDOWN = 1
  148.  
  149. 'PlaySound Constants
  150. Public Const SND_ASYNC = &H1
  151. Public Const SND_LOOP = &H8
  152. Public Const SND_NOSTOP = &H10
  153.  
  154. 'GetSystemInfo Constants
  155. Public Const PROCESSOR_INTEL_386 = 386
  156. Public Const PROCESSOR_INTEL_486 = 486
  157. Public Const PROCESSOR_INTEL_PENTIUM = 586
  158. Public Const PROCESSOR_MIPS_R4000 = 4000
  159. Public Const PROCESSOR_ALPHA_21064 = 21064
  160.  
  161. 'CHOOSECOLOR Constants
  162. Public Const CC_RGBINIT = &H1
  163. Public Const CC_FULLOPEN = &H2
  164. Public Const CC_PREVENTFULLOPEN = &H4
  165. Public Const CC_SHOWHELP = &H8
  166. Public Const CC_SOLIDCOLOR = &H80
  167. Public Const CC_ANYCOLOR = &H100
  168.  
  169. 'GetDriveType Constants
  170. Public Const DRIVE_REMOVABLE = 2
  171. Public Const DRIVE_FIXED = 3
  172. Public Const DRIVE_REMOTE = 4
  173. Public Const DRIVE_CDROM = 5
  174. Public Const DRIVE_RAMDISK = 6
  175.  
  176. 'InternetAutodial Constants
  177. Public Const INTERNET_AUTODIAL_FORCE_UNATTENDED = 2
  178.  
  179. 'GetFileAttributes Constants
  180. Public Const FILE_ATTRIBUTE_ARCHIVE = &H20
  181. Public Const FILE_ATTRIBUTE_COMPRESSED = &H800
  182. Public Const FILE_ATTRIBUTE_DIRECTORY = &H10
  183. Public Const FILE_ATTRIBUTE_HIDDEN = &H2
  184. Public Const FILE_ATTRIBUTE_NORMAL = &H80
  185. Public Const FILE_ATTRIBUTE_READONLY = &H1
  186. Public Const FILE_ATTRIBUTE_SYSTEM = &H4
  187.  
  188. 'SetWindowPos Constants
  189. Public Const HWND_TOPMOST = -1
  190. Public Const HWND_NOTTOPMOST = -2
  191. Public Const SWP_NOSIZE = 1
  192. Public Const SWP_NOMOVE = 2
  193.