home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / SI_SDK / SI_SDK.ZIP / SYSINFO.GBL < prev    next >
Encoding:
Text File  |  1993-07-21  |  15.8 KB  |  442 lines
  1. '****************************************************************************'
  2. '*                                                                          *'
  3. '*  Global Declarations file for SYSINFO.DLL                                *'
  4. '*                                                                          *'
  5. '****************************************************************************'
  6.  
  7. 'Constants used for all nearly all function calls
  8. Global Const SISDK_FAIL = -1
  9. Global Const SISDK_SUCCESS = 0
  10.  
  11.  
  12. '*--------------------------------------------------------------------------*'
  13. '*  SysInfo Version Defines                                                 *'
  14. '*--------------------------------------------------------------------------*'
  15. Declare Function GetSysInfoDLLMajorVersion Lib "SYSINFO.DLL" () As Integer
  16. Declare Function GetSysInfoDLLMinorVersion Lib "SYSINFO.DLL" () As Integer
  17.  
  18. '* SysInfo Version return values *'
  19.  
  20. '*  GetSysInfoDLLMajorVersion will return 1, 2, 3, etc...
  21. '*  GetSysInfoDLLMinorVersion will return 1, 2, ... , 10
  22. '*  Combining the two values together will give you a value of
  23. '*  X.XX.
  24. '*
  25. '*  For example, if GetSysInfoDLLMajorVersion = 1 and
  26. '*  GetSysInfoDLLMajorVersion = 1, the combined version will give you
  27. '*  1.01
  28.  
  29.  
  30.  
  31. '*--------------------------------------------------------------------------*'
  32. '*  Memory Size Defines                                                     *'
  33. '*--------------------------------------------------------------------------*'
  34. Declare Function GetMemorySizeKB Lib "SYSINFO.DLL" () As Long
  35.  
  36.  
  37.  
  38. '*--------------------------------------------------------------------------*'
  39. '*  Floppy Drive Info Defines                                               *'
  40. '*--------------------------------------------------------------------------*'
  41. Declare Function GetFloppyDriveType Lib "SYSINFO.DLL" (ByVal nFloppyDriveNumber As Integer, nFloppyDriveType As Integer) As Integer
  42.  
  43. '* GetFloppyDriveType return values *'
  44.  
  45. Global Const FD_INVALIDPARAMETER = -3
  46. Global Const FD_NOTFLOPPYDRIVE = -2
  47. 'Global Const SISDK_SUCCESS = 0
  48.  
  49. '* nFloppyDriveType return values *'
  50.  
  51. Global Const FD_360K = 1
  52. Global Const FD_12MB = 2
  53. Global Const FD_720K = 3
  54. Global Const FD_144MB = 4
  55. Global Const FD_288MB = 6
  56.  
  57.  
  58. Declare Function GetNumFloppyDrives Lib "SYSINFO.DLL" () As Integer
  59.  
  60.  
  61.  
  62. '*--------------------------------------------------------------------------*'
  63. '*  Drive Info Defines                                                      *'
  64. '*--------------------------------------------------------------------------*'
  65. Declare Function GetTotalDiskSpaceKB Lib "SYSINFO.DLL" (ByVal nDriveNumber As Integer, lTotalDiskSpaceKB As Long) As Integer
  66. Declare Function GetFreeDiskSpaceKB Lib "SYSINFO.DLL" (ByVal nDriveNumber As Integer, lFreeDiskSpaceKB As Long) As Integer
  67.  
  68. '* Drive Info return values *'
  69.  
  70. Global Const DS_INVALIDPARAMETER = -2
  71. 'Global Const SISDK_FAIL = -1
  72. 'Global Const SISDK_SUCCESS = 0
  73.  
  74.  
  75.  
  76. '*--------------------------------------------------------------------------*'
  77. '*  Disk Drive Type                                                         *'
  78. '*--------------------------------------------------------------------------*'
  79. Declare Function GetDiskDriveType Lib "SYSINFO" (ByVal nDriveNumber As Integer, nDiskDriveType As Integer) As Integer
  80.  
  81. '*  GetDriveType return values *'
  82.  
  83. Global Const DT_INVALIDPARAMETER = -3
  84. Global Const DT_NOTEXIST = -2
  85. 'Global Const SISDK_SUCCESS = 0
  86.  
  87. '*  nDiskDriveType return codes *'
  88.  
  89. Global Const DT_FLOPPY = 2
  90. Global Const DT_LOCALHD = 3
  91. Global Const DT_NETWORKHD = 4
  92.  
  93.  
  94.  
  95. '*--------------------------------------------------------------------------*'
  96. '*  Hard DRIVE Parameters                                                   *'
  97. '*--------------------------------------------------------------------------*'
  98. Declare Function GetHDHeads Lib "SYSINFO" (ByVal nDriveNumber As Integer, nHDHeads As Integer) As Integer
  99. Declare Function GetHDTracks Lib "SYSINFO" (ByVal nDriveNumber As Integer, nHDTracks As Integer) As Integer
  100. Declare Function GetHDBytesPerSector Lib "SYSINFO" (ByVal nDriveNumber As Integer, nHDBytesPerSector As Integer) As Integer
  101. Declare Function GetHDSectorsPerTrack Lib "SYSINFO" (ByVal nDriveNumber As Integer, nHDSectorsPerTrack As Integer) As Integer
  102.  
  103. '* Hard Drive return values *'
  104.  
  105. Global Const HD_INVALIDPARAMETER = -3
  106. Global Const HD_NOTHARDDRIVE = -2
  107. 'Global Const SISDK_SUCCESS = 0
  108.  
  109.  
  110.  
  111. '*--------------------------------------------------------------------------*'
  112. '*  Model Info Defines                                                      *'
  113. '*--------------------------------------------------------------------------*'
  114. Declare Function GetModelType Lib "SYSINFO.DLL" () As Integer
  115.  
  116. '* GetModelType return values *'
  117.  
  118. Global Const ML_3COM = 1
  119. Global Const ML_ACER = 2
  120. Global Const ML_ALR = 3
  121. Global Const ML_AST = 4
  122. Global Const ML_ALTEC = 5
  123. Global Const ML_ALTOS = 6
  124. Global Const ML_AMSTRAD = 7
  125. Global Const ML_APRICOT = 8
  126. Global Const ML_ARCHE = 9
  127. Global Const ML_ATandT = 10
  128. Global Const ML_ATANDTSAFARINOTEBOOK = 11
  129. Global Const ML_BLACKSHIP = 12
  130. Global Const ML_BULL = 13
  131. Global Const ML_COMMODORE = 14
  132. Global Const ML_COMPUADD = 15
  133. Global Const ML_COLUMBIA = 16
  134. Global Const ML_COMPAQ = 17
  135. Global Const ML_DATAGENERAL = 18
  136. Global Const ML_DEC = 19
  137. Global Const ML_DELL = 20
  138. Global Const ML_DOLCH = 21
  139. Global Const ML_EVEREX = 22
  140. Global Const ML_EMERSON = 23
  141. Global Const ML_EAGLE = 24
  142. Global Const ML_EPSON = 25
  143. Global Const ML_GATEWAY = 26
  144. Global Const ML_GOLDSTAR = 27
  145. Global Const ML_HAUPPAUGE = 28
  146. Global Const ML_HP = 29
  147. Global Const ML_HEADSTART = 31
  148. Global Const ML_HYUNDIA = 32
  149. Global Const ML_IBMPCXT286 = 33
  150. Global Const ML_IBMPCAT = 34
  151. Global Const ML_IBMPS1M2011 = 35
  152. Global Const ML_IBMPS1M2121 = 36
  153. Global Const ML_IBMPS2M25 = 37
  154. Global Const ML_IBMPS2M30 = 38
  155. Global Const ML_IBMPS2M35 = 39
  156. Global Const ML_IBMPS2ML40 = 40
  157. Global Const ML_IBMPS2M50 = 41
  158. Global Const ML_IBMPS2M50Z = 42
  159. Global Const ML_IBMPS2M55LS = 43
  160. Global Const ML_IBMPS2M55SX = 44
  161. Global Const ML_IBMPS2M57 = 45
  162. Global Const ML_IBMPS2M60 = 46
  163. Global Const ML_IBMPS2M65 = 47
  164. Global Const ML_IBMPS2M70 = 48
  165. Global Const ML_IBMPS2MP70 = 49
  166. Global Const ML_IBMPS2MP75 = 50
  167. Global Const ML_IBMPS2M80 = 51
  168. Global Const ML_IBMPS2M90 = 52
  169. Global Const ML_IBMPS2M95 = 53
  170. Global Const ML_LEADINGEDGE = 55
  171. Global Const ML_MSDOS386SLAPM = 56
  172. Global Const ML_MSDOS = 57
  173. Global Const ML_MEMOREX = 58
  174. Global Const ML_MITAC = 59
  175. Global Const ML_MITSUBISHI = 60
  176. Global Const ML_MITSUBA = 61
  177. Global Const ML_MATSUSHITA = 62
  178. Global Const ML_MICROEXPRESS = 63
  179. Global Const ML_MICROTELESIS = 64
  180. Global Const ML_NORTHGATE = 65
  181. Global Const ML_NECULTRALITE = 66
  182. Global Const ML_NECPOWERMATE = 67
  183. Global Const ML_NEC = 68
  184. Global Const ML_NCR = 69
  185. Global Const ML_OLIVETTI = 70
  186. Global Const ML_PACKARDBELL = 71
  187. Global Const ML_PANASONIC = 72
  188. Global Const ML_PCDESIGNS = 73
  189. Global Const ML_POLYWELL = 74
  190. Global Const ML_PCDIRECT = 75
  191. Global Const ML_PCSLIMITED = 76
  192. Global Const ML_PCSOURCE = 77
  193. Global Const ML_PCBRAND = 78
  194. Global Const ML_PROTEUS = 79
  195. Global Const ML_PHILIPS = 80
  196. Global Const ML_SWAN = 81
  197. Global Const ML_SIEMENS = 82
  198. Global Const ML_SPERRY = 83
  199. Global Const ML_SHARP = 84
  200. Global Const ML_TANDEM = 85
  201. Global Const ML_TI = 86
  202. Global Const ML_TRISTAR = 87
  203. Global Const ML_TWINHEAD = 88
  204. Global Const ML_TANDY = 89
  205. Global Const ML_TOSHIBA1000SE = 90
  206. Global Const ML_TOSHIBA1000XE = 91
  207. Global Const ML_TOSHIBA1000 = 92
  208. Global Const ML_TOSHIBA1200XE = 93
  209. Global Const ML_TOSHIBA1200 = 94
  210. Global Const ML_TOSHIBA1600 = 95
  211. Global Const ML_TOSHIBA3100SX = 96
  212. Global Const ML_TOSHIBA3100 = 97
  213. Global Const ML_TOSHIBA3200SX = 98
  214. Global Const ML_TOSHIBA3200 = 99
  215. Global Const ML_TOSHIBA3300SL = 100
  216. Global Const ML_TOSHIBA5100 = 101
  217. Global Const ML_TOSHIBA5200 = 102
  218. Global Const ML_TOSHIBA5300 = 103
  219. Global Const ML_TOSHIBA = 104
  220. Global Const ML_TANDON = 105
  221. Global Const ML_UNISYS = 106
  222. Global Const ML_WANG = 107
  223. Global Const ML_WYSE = 108
  224. Global Const ML_XEROX = 109
  225. Global Const ML_ZENITH = 110
  226. Global Const ML_ZEOS = 111
  227.  
  228.  
  229.  
  230. '*--------------------------------------------------------------------------*'
  231. '*  BIOS Info Defines                                                       *'
  232. '*--------------------------------------------------------------------------*'
  233. Declare Function GetBIOSDate Lib "SYSINFO.DLL" (ByVal cBIOSDate As String) As Integer
  234.  
  235. '* GetBIOSDate return values *'
  236.  
  237. 'Global Const SISDK_FAIL = -1
  238. 'Global Const SISDK_SUCCESS = 0
  239.  
  240.  
  241. Declare Function GetBIOSManufacturer Lib "SYSINFO.DLL" (nBIOSManufacturer As Integer) As Integer
  242.  
  243. '* GetBIOSManufacturer return values *'
  244.  
  245. 'Global Const SISDK_FAIL = -1
  246. 'Global Const SISDK_SUCCESS = 0
  247. Global Const BT_AMI = 1
  248. Global Const BT_PHOENIX = 2
  249. Global Const BT_AWARD = 3
  250. Global Const BT_COMPAQ = 4
  251. Global Const BT_TOSHIBA = 5
  252. Global Const BT_ZENITH = 6
  253. Global Const BT_IBM = 7
  254.  
  255.  
  256. Declare Function GetBIOSLowArea Lib "SYSINFO.DLL" (ByVal cBIOSLowArea As String) As Integer
  257. Declare Function GetBIOSHighArea Lib "SYSINFO.DLL" (ByVal cBIOSHighArea As String) As Integer
  258.  
  259.  
  260.  
  261. '*--------------------------------------------------------------------------*'
  262. '*  Bus Info Defines                                                        *'
  263. '*--------------------------------------------------------------------------*'
  264. Declare Function GetBusType Lib "SYSINFO.DLL" () As Integer
  265.  
  266. '* GetBusType return values *'
  267.  
  268. Global Const BUS_MCA = 1
  269. Global Const BUS_ISA = 2
  270. Global Const BUS_EISA = 3
  271.  
  272.  
  273.  
  274. '*--------------------------------------------------------------------------*'
  275. '*  Mouse Info Defines                                                      *'
  276. '*--------------------------------------------------------------------------*'
  277. Declare Function GetMouseInterface Lib "SYSINFO.DLL" (nMouseInterface As Integer) As Integer
  278.  
  279. '* GetMouseInterface return values *'
  280.  
  281. Global Const MI_NODOSMOUSEDRIVER = -2
  282. 'Global Const SISDK_SUCCESS = 0
  283.  
  284. '* nMouseInterface return codes *'
  285.  
  286. Global Const MI_BUS = 1
  287. Global Const MI_SERIAL = 2
  288. Global Const MI_INPORT = 3
  289. Global Const MI_PS2 = 4
  290. Global Const MI_HP = 5
  291.  
  292.  
  293. Declare Function GetWindowsMouseDriverType Lib "SYSINFO.DLL" () As Integer
  294. Declare Function GetDOSMouseDriverType Lib "SYSINFO.DLL" (nDOSMouseDriverType As Integer) As Integer
  295. Declare Function GetDOSMouseDriverMajorVersion Lib "SYSINFO.DLL" (nDOSMouseDriverMajorVersion As Integer) As Integer
  296. Declare Function GetDOSMouseDriverMinorVersion Lib "SYSINFO.DLL" (nDOSMouseDriverMinorVersion As Integer) As Integer
  297. Declare Function GetMouseIRQ Lib "SYSINFO.DLL" (nMouseIRQ As Integer) As Integer
  298.  
  299. '* Other mouse function return values *'
  300.  
  301. Global Const MD_NOWINDOWSMOUSEDRIVER = -3
  302. Global Const MD_NODOSMOUSEDRIVER = -2
  303. 'Global Const SISDK_SUCCESS = 0
  304.  
  305. '* Other mouse return codes *'
  306.  
  307. Global Const MD_MICROSOFT = 1
  308. Global Const MD_HP = 2
  309. Global Const MD_LOGITECH = 3
  310. Global Const MD_OLIVETTIORATANDT = 4
  311. Global Const MD_MOUSESYSTEMS = 5
  312.  
  313.  
  314.  
  315. '*--------------------------------------------------------------------------*'
  316. '*  DOS Version Defines                                                     *'
  317. '*--------------------------------------------------------------------------*'
  318. Declare Function GetDOSMajorVersion Lib "SYSINFO.DLL" () As Integer
  319. Declare Function GetDOSMinorVersion Lib "SYSINFO.DLL" () As Integer
  320.  
  321.  
  322.  
  323. '*--------------------------------------------------------------------------*'
  324. '*  LASTDRIVE                                                               *'
  325. '*--------------------------------------------------------------------------*'
  326. Declare Function GetLASTDRIVE Lib "SYSINFO.DLL" () As Integer
  327.  
  328.  
  329.  
  330. '*--------------------------------------------------------------------------*'
  331. '*  Video Card Type                                                         *'
  332. '*--------------------------------------------------------------------------*'
  333. Declare Function GetVideoCardDriverType Lib "SYSINFO.DLL" (ByVal cVideoCardDriverType As String) As Integer
  334. Declare Function GetVideoCardDriverMinorVersion Lib "SYSINFO.DLL" () As Integer
  335. Declare Function GetVideoCardDriverMajorVersion Lib "SYSINFO.DLL" () As Integer
  336. Declare Function GetVideoCardPixelWidth Lib "SYSINFO.DLL" () As Integer
  337. Declare Function GetVideoCardPixelHeight Lib "SYSINFO.DLL" () As Integer
  338. Declare Function GetNumVideoCardColors Lib "SYSINFO.DLL" () As Long
  339.  
  340.  
  341.  
  342. '*--------------------------------------------------------------------------*'
  343. '*  CPU Type                                                                *'
  344. '*--------------------------------------------------------------------------*'
  345. Declare Function GetCPUType Lib "SYSINFO.DLL" () As Integer
  346.  
  347. '* GetCPUType return values *'
  348.  
  349. Global Const CPU_80286 = 2
  350. Global Const CPU_80386 = 3
  351. Global Const CPU_80486 = 4
  352.  
  353.  
  354.  
  355. '*--------------------------------------------------------------------------*'
  356. '*  Windows Mode                                                            *'
  357. '*--------------------------------------------------------------------------*'
  358. Declare Function GetWindowsMode Lib "SYSINFO.DLL" () As Integer
  359.  
  360. '* GetWindowsMode return values *'
  361.  
  362. Global Const MO_STANDARD = 1
  363. Global Const MO_ENHANCED = 2
  364.  
  365.  
  366.  
  367. '*--------------------------------------------------------------------------*'
  368. '*  Network Computer Name                                                   *'
  369. '*--------------------------------------------------------------------------*'
  370. Declare Function GetNetBIOSComputerName Lib "SYSINFO.DLL" (ByVal cNetBIOSComputerName As String) As Integer
  371.  
  372. '* GetNetBIOSComputerName return values *'
  373.  
  374. Global Const NET_NONETWORK = -2
  375. 'Global Const SISDK_SUCCESS = 0
  376.  
  377.  
  378.  
  379. '*--------------------------------------------------------------------------*'
  380. '*  Network Type                                                            *'
  381. '*--------------------------------------------------------------------------*'
  382. Declare Function GetNetworkType Lib "SYSINFO.DLL" (nNetworkType As Integer) As Integer
  383.  
  384. '* GetNetworkType return values *'
  385.  
  386. Global Const NW_NONETWORK = -2
  387. 'Global Const SISDK_FAIL = -1
  388. 'Global Const SISDK_SUCCESS = 0
  389. Global Const NW_3PLUSOPEN = 1
  390. Global Const NW_3PLUSSHARE = 2
  391. Global Const NW_LANTASTIC = 3
  392. Global Const NW_BANYANVINES = 4
  393. Global Const NW_IBMLANSERVER = 5
  394. Global Const NW_IBMPCLAN = 6
  395. Global Const NW_MSLANMANAGER = 7
  396. Global Const NW_MSNETWORK = 8
  397. Global Const NW_NETWARE = 9
  398. Global Const NW_DECPATHWORKS = 10
  399. Global Const NW_TCS10NET = 11
  400.  
  401.  
  402.  
  403. '*--------------------------------------------------------------------------*'
  404. '*  Windows Free Memory                                                     *'
  405. '*--------------------------------------------------------------------------*'
  406. Declare Function GetWindowsFreeMemoryKB Lib "SYSINFO.DLL" () As Long
  407.  
  408.  
  409.  
  410. '*--------------------------------------------------------------------------*'
  411. '*  CoProcessor Type                                                        *'
  412. '*--------------------------------------------------------------------------*'
  413. Declare Function GetCoProcessorType Lib "SYSINFO.DLL" () As Integer
  414.  
  415. '* GetCoProcessorType return values *'
  416.  
  417. Global Const CPR_BUILTIN = -2
  418. Global Const CPR_NOCOPRO = -1
  419. Global Const CPR_80287 = 1
  420. Global Const CPR_80387 = 2
  421.  
  422.  
  423.  
  424. '*--------------------------------------------------------------------------*'
  425. '*  CPU Speed                                                               *'
  426. '*--------------------------------------------------------------------------*'
  427. Declare Function GetCPUMHz Lib "SYSINFO.DLL" () As Integer
  428.  
  429.  
  430.  
  431. '*--------------------------------------------------------------------------*'
  432. '*  Windows Version                                                         *'
  433. '*--------------------------------------------------------------------------*'
  434. Declare Function GetWindowsMajorVersion Lib "SYSINFO.DLL" () As Integer
  435. Declare Function GetWindowsMinorVersion Lib "SYSINFO.DLL" () As Integer
  436.  
  437.  
  438.  
  439.  
  440.  
  441.  
  442.