home *** CD-ROM | disk | FTP | other *** search
/ Dan Appleman's Visual Bas…s Guide to the Win32 API / Dan.Applmans.Visual.Basic.5.0.Programmers.Guide.To.The.Win32.API.1997.Ziff-Davis.Press.CD / VB5PG32.mdf / classlib / desaware / samplev5 / sysinfo / sysinfo.bas next >
Encoding:
BASIC Source File  |  1997-02-17  |  22.1 KB  |  525 lines
  1. Attribute VB_Name = "SYSINFO1"
  2. Option Explicit
  3.  
  4. ' Sysinfo.txt sample program
  5. ' Copyright (c) 1992-1995 by Desaware
  6. ' Constants based on file api32.txt
  7.  
  8. '-------------------------------
  9. '   API Type Definitions
  10. '-------------------------------
  11.  
  12. Public Type SYSTEM_INFO
  13.         dwOemID As Long
  14.         dwPageSize As Long
  15.         lpMinimumApplicationAddress As Long
  16.         lpMaximumApplicationAddress As Long
  17.         dwActiveProcessorMask As Long
  18.         dwNumberOfProcessors As Long
  19.         dwProcessorType As Long
  20.         dwAllocationGranularity As Long
  21.         wProcessorLevel As Integer
  22.         wProcessorRevision As Integer
  23. End Type
  24.  
  25. Public Type OSVERSIONINFO ' 148 bytes
  26.         dwOSVersionInfoSize As Long
  27.         dwMajorVersion As Long
  28.         dwMinorVersion As Long
  29.         dwBuildNumber As Long
  30.         dwPlatformId As Long
  31.         szCSDVersion As String * 128
  32. End Type
  33.  
  34. Type FILETIME
  35.         dwLowDateTime As Long
  36.         dwHighDateTime As Long
  37. End Type
  38.  
  39. Public Const MAX_DEFAULTCHAR = 2
  40. Public Const MAX_LEADBYTES = 12
  41.  
  42. Type CPINFO
  43.         MaxCharSize As Long                    '  max length (Byte) of a char
  44.         DefaultChar(MAX_DEFAULTCHAR) As Byte   '  default character
  45.         LeadByte(MAX_LEADBYTES) As Byte        '  lead byte ranges
  46. End Type
  47.  
  48. Public Const KL_NAMELENGTH = 9
  49.  
  50. ' Chapter 6 demonstration program
  51.  
  52. #If Win32 Then
  53. Declare Function CreateCaret Lib "user32" (ByVal hwnd As Long, ByVal hBitmap As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
  54. Declare Function GetCaretBlinkTime Lib "user32" () As Long
  55. Declare Function GetACP Lib "kernel32" () As Long
  56. Declare Function GetOEMCP Lib "kernel32" () As Long
  57. Declare Function GetCPInfo Lib "kernel32" (ByVal CodePage As Long, lpCPInfo As CPINFO) As Long
  58. ' Obsolete: Declare Function GetKBCodePage Lib "user32" () As Long
  59. Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long
  60. Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
  61. Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
  62. Declare Function GetDoubleClickTime Lib "user32" () As Long
  63. Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long
  64. Declare Function SetKeyboardState Lib "user32" (lppbKeyState As Byte) As Long
  65. Declare Function GetKeyboardType Lib "user32" (ByVal nTypeFlag As Long) As Long
  66. Declare Function GetKeyNameText Lib "user32" Alias "GetKeyNameTextA" (ByVal lParam As Long, ByVal lpBuffer As String, ByVal nSize As Long) As Long
  67. Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long
  68. Declare Function GetMessageTime Lib "user32" () As Long
  69. Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
  70. Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)
  71. Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
  72. Declare Function GetTickCount Lib "kernel32" () As Long
  73. Declare Function GetVersion Lib "kernel32" () As Long
  74. Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
  75. Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long
  76. Declare Function SetCaretBlinkTime Lib "user32" (ByVal wMSeconds As Long) As Long
  77. Declare Function SetDoubleClickTime Lib "user32" (ByVal wCount As Long) As Long
  78. Declare Function ShowCaret Lib "user32" (ByVal hwnd As Long) As Long
  79. Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
  80. #Else   ' Win16 here.
  81. Declare Function GetKeyState% Lib "User" (ByVal nVirtKey%)
  82. Declare Function GetKeyboardState% Lib "User" (LpKeyState As Any)
  83. Declare Function GetFreeSpace& Lib "Kernel" (ByVal wFlags%)
  84. Declare Function GetFreeSystemResources% Lib "User" (ByVal fuSysResource%)
  85. Declare Function GetCaretBlinkTime% Lib "User" ()
  86. Declare Function GetCurrentTime& Lib "User" ()
  87. Declare Function GetTickCount& Lib "User" ()
  88. Declare Function GetMessageTime& Lib "User" ()
  89. Declare Function GetDoubleClickTime% Lib "User" ()
  90. Declare Function GetTimerResolution& Lib "User" ()
  91. Declare Function GetWinFlags& Lib "Kernel" ()
  92. Declare Function GetVersion& Lib "Kernel" ()
  93. Declare Function GetSysColor& Lib "User" (ByVal nIndex%)
  94. Declare Function GetSystemMetrics% Lib "User" (ByVal nIndex%)
  95. Declare Function SystemParametersInfo% Lib "User" (ByVal uAction%, ByVal uParam%, lpvParam As Any, ByVal fuWinIni%)
  96. Declare Function SystemParametersInfoByval% Lib "User" Alias "SystemParametersInfo" (ByVal uAction%, ByVal uParam%, ByVal lpvParam As Any, ByVal fuWinIni%)
  97. Declare Sub CreateCaret Lib "User" (ByVal hwnd%, ByVal hBitmap%, ByVal nWidth%, ByVal nHeight%)
  98. Declare Sub ShowCaret Lib "User" (ByVal hwnd%)
  99. Declare Sub SetCaretBlinkTime Lib "User" (ByVal wMSeconds%)
  100. Declare Function GetKeyNameText% Lib "Keyboard" (ByVal lParam&, ByVal lpBuffer$, ByVal nSize%)
  101. Declare Function MapVirtualKey% Lib "Keyboard" (ByVal wCode%, ByVal wMapType%)
  102.  
  103. #End If
  104.  
  105. '-------------------------------------------------------
  106. '           API constants
  107. '-------------------------------------------------------
  108.  
  109. Global Const GFSR_SYSTEMRESOURCES = 0
  110. Global Const GFSR_GDIRESOURCES = 1
  111. Global Const GFSR_USERRESOURCES = 2
  112. Global Const WF_PMODE = &H1
  113. Global Const WF_CPU286 = &H2
  114. Global Const WF_CPU386 = &H4
  115. Global Const WF_CPU486 = &H8
  116. Global Const WF_STANDARD = &H10
  117. Global Const WF_WIN286 = &H10
  118. Global Const WF_ENHANCED = &H20
  119. Global Const WF_WIN386 = &H20
  120. Global Const WF_CPU086 = &H40
  121. Global Const WF_CPU186 = &H80
  122. Global Const WF_LARGEFRAME = &H100
  123. Global Const WF_SMALLFRAME = &H200
  124. Global Const WF_80x87 = &H400
  125. Global Const VK_LBUTTON = &H1
  126. Global Const VK_RBUTTON = &H2
  127. Global Const VK_CANCEL = &H3
  128. Global Const VK_MBUTTON = &H4
  129. Global Const VK_BACK = &H8
  130. Global Const VK_TAB = &H9
  131. Global Const VK_CLEAR = &HC
  132. Global Const VK_RETURN = &HD
  133. Global Const VK_SHIFT = &H10
  134. Global Const VK_CONTROL = &H11
  135. Global Const VK_MENU = &H12
  136. Global Const VK_PAUSE = &H13
  137. Global Const VK_CAPITAL = &H14
  138. Global Const VK_ESCAPE = &H1B
  139. Global Const VK_SPACE = &H20
  140. Global Const VK_PRIOR = &H21
  141. Global Const VK_NEXT = &H22
  142. Global Const VK_END = &H23
  143. Global Const VK_HOME = &H24
  144. Global Const VK_LEFT = &H25
  145. Global Const VK_UP = &H26
  146. Global Const VK_RIGHT = &H27
  147. Global Const VK_DOWN = &H28
  148. Global Const VK_SELECT = &H29
  149. Global Const VK_PRINT = &H2A
  150. Global Const VK_EXECUTE = &H2B
  151. Global Const VK_SNAPSHOT = &H2C
  152. Global Const VK_INSERT = &H2D
  153. Global Const VK_DELETE = &H2E
  154. Global Const VK_HELP = &H2F
  155. Global Const VK_NUMPAD0 = &H60
  156. Global Const VK_NUMPAD1 = &H61
  157. Global Const VK_NUMPAD2 = &H62
  158. Global Const VK_NUMPAD3 = &H63
  159. Global Const VK_NUMPAD4 = &H64
  160. Global Const VK_NUMPAD5 = &H65
  161. Global Const VK_NUMPAD6 = &H66
  162. Global Const VK_NUMPAD7 = &H67
  163. Global Const VK_NUMPAD8 = &H68
  164. Global Const VK_NUMPAD9 = &H69
  165. Global Const VK_MULTIPLY = &H6A
  166. Global Const VK_ADD = &H6B
  167. Global Const VK_SEPARATOR = &H6C
  168. Global Const VK_SUBTRACT = &H6D
  169. Global Const VK_DECIMAL = &H6E
  170. Global Const VK_DIVIDE = &H6F
  171. Global Const VK_F1 = &H70
  172. Global Const VK_F2 = &H71
  173. Global Const VK_F3 = &H72
  174. Global Const VK_F4 = &H73
  175. Global Const VK_F5 = &H74
  176. Global Const VK_F6 = &H75
  177. Global Const VK_F7 = &H76
  178. Global Const VK_F8 = &H77
  179. Global Const VK_F9 = &H78
  180. Global Const VK_F10 = &H79
  181. Global Const VK_F11 = &H7A
  182. Global Const VK_F12 = &H7B
  183. Global Const VK_F13 = &H7C
  184. Global Const VK_F14 = &H7D
  185. Global Const VK_F15 = &H7E
  186. Global Const VK_F16 = &H7F
  187. Global Const VK_NUMLOCK = &H90
  188. Global Const VK_SCROLL = &H91
  189. Global Const WM_USER = &H400
  190. Global Const COLOR_SCROLLBAR = 0
  191. Global Const COLOR_BACKGROUND = 1
  192. Global Const COLOR_ACTIVECAPTION = 2
  193. Global Const COLOR_INACTIVECAPTION = 3
  194. Global Const COLOR_MENU = 4
  195. Global Const COLOR_WINDOW = 5
  196. Global Const COLOR_WINDOWFRAME = 6
  197. Global Const COLOR_MENUTEXT = 7
  198. Global Const COLOR_WINDOWTEXT = 8
  199. Global Const COLOR_CAPTIONTEXT = 9
  200. Global Const COLOR_ACTIVEBORDER = 10
  201. Global Const COLOR_INACTIVEBORDER = 11
  202. Global Const COLOR_APPWORKSPACE = 12
  203. Global Const COLOR_HIGHLIGHT = 13
  204. Global Const COLOR_HIGHLIGHTTEXT = 14
  205. Global Const COLOR_BTNFACE = 15
  206. Global Const COLOR_BTNSHADOW = 16
  207. Global Const COLOR_GRAYTEXT = 17
  208. Global Const COLOR_BTNTEXT = 18
  209. Global Const COLOR_INACTIVECAPTIONTEXT = 19
  210. Global Const COLOR_BTNHIGHLIGHT = 20
  211. Public Const COLOR_3DDKSHADOW = 21
  212. Public Const COLOR_3DLIGHT = 22
  213. Public Const COLOR_INFOBK = 24
  214. Public Const COLOR_INFOTEXT = 23
  215.  
  216. Public Const SM_CXSCREEN = 0
  217. Public Const SM_CYSCREEN = 1
  218. Public Const SM_CXVSCROLL = 2
  219. Public Const SM_CYHSCROLL = 3
  220. Public Const SM_CYCAPTION = 4
  221. Public Const SM_CXBORDER = 5
  222. Public Const SM_CYBORDER = 6
  223. Public Const SM_CXDLGFRAME = 7
  224. Public Const SM_CYDLGFRAME = 8
  225. Public Const SM_CYVTHUMB = 9
  226. Public Const SM_CXHTHUMB = 10
  227. Public Const SM_CXICON = 11
  228. Public Const SM_CYICON = 12
  229. Public Const SM_CXCURSOR = 13
  230. Public Const SM_CYCURSOR = 14
  231. Public Const SM_CYMENU = 15
  232. Public Const SM_CXFULLSCREEN = 16
  233. Public Const SM_CYFULLSCREEN = 17
  234. Public Const SM_CYKANJIWINDOW = 18
  235. Public Const SM_MOUSEPRESENT = 19
  236. Public Const SM_CYVSCROLL = 20
  237. Public Const SM_CXHSCROLL = 21
  238. Public Const SM_DEBUG = 22
  239. Public Const SM_SWAPBUTTON = 23
  240. Public Const SM_RESERVED1 = 24
  241. Public Const SM_RESERVED2 = 25
  242. Public Const SM_RESERVED3 = 26
  243. Public Const SM_RESERVED4 = 27
  244. Public Const SM_CXMIN = 28
  245. Public Const SM_CYMIN = 29
  246. Public Const SM_CXSIZE = 30
  247. Public Const SM_CYSIZE = 31
  248. Public Const SM_CXFRAME = 32
  249. Public Const SM_CYFRAME = 33
  250. Public Const SM_CXMINTRACK = 34
  251. Public Const SM_CYMINTRACK = 35
  252. Public Const SM_CXDOUBLECLK = 36
  253. Public Const SM_CYDOUBLECLK = 37
  254. Public Const SM_CXICONSPACING = 38
  255. Public Const SM_CYICONSPACING = 39
  256. Public Const SM_MENUDROPALIGNMENT = 40
  257. Public Const SM_PENWINDOWS = 41
  258. Public Const SM_DBCSENABLED = 42
  259. Public Const SM_CMOUSEBUTTONS = 43
  260. Public Const SM_CXFIXEDFRAME = SM_CXDLGFRAME
  261. Public Const SM_CYFIXEDFRAME = SM_CYDLGFRAME
  262. Public Const SM_CXSIZEFRAME = SM_CXFRAME
  263. Public Const SM_CYSIZEFRAME = SM_CYFRAME
  264. Public Const SM_SECURE = 44
  265. Public Const SM_CXEDGE = 45
  266. Public Const SM_CYEDGE = 46
  267. Public Const SM_CXMINSPACING = 47
  268. Public Const SM_CYMINSPACING = 48
  269. Public Const SM_CXSMICON = 49
  270. Public Const SM_CYSMICON = 50
  271. Public Const SM_CYSMCAPTION = 51
  272. Public Const SM_CXSMSIZE = 52
  273. Public Const SM_CYSMSIZE = 53
  274. Public Const SM_CXMENUSIZE = 54
  275. Public Const SM_CYMENUSIZE = 55
  276. Public Const SM_ARRANGE = 56
  277. Public Const SM_CXMINIMIZED = 57
  278. Public Const SM_CYMINIMIZED = 58
  279. Public Const SM_CXMAXTRACK = 59
  280. Public Const SM_CYMAXTRACK = 60
  281. Public Const SM_CXMAXIMIZED = 61
  282. Public Const SM_CYMAXIMIZED = 62
  283. Public Const SM_NETWORK = 63
  284. Public Const SM_CLEANBOOT = 67
  285. Public Const SM_CXDRAG = 68
  286. Public Const SM_CYDRAG = 69
  287. Public Const SM_SHOWSOUNDS = 70
  288. Public Const SM_CXMENUCHECK = 71
  289. Public Const SM_CYMENUCHECK = 72
  290. Public Const SM_SLOWMACHINE = 73
  291. Public Const SM_MIDEASTENABLED = 74
  292. Public Const SM_CMETRICS = 75
  293.  
  294.  
  295. #If Win32 Then
  296. Public Const VER_PLATFORM_WIN32_NT& = 2
  297. Public Const VER_PLATFORM_WIN32_WINDOWS& = 1
  298. #End If
  299.  
  300. Public Const SPI_GETACCESSTIMEOUT& = 60
  301. Public Const SPI_GETANIMATION& = 72
  302. Public Const SPI_GETBEEP& = 1
  303. Public Const SPI_GETBORDER& = 5
  304. Public Const SPI_GETDEFAULTINPUTLANG& = 89
  305. Public Const SPI_GETDRAGFULLWINDOWS& = 38
  306. Public Const SPI_GETFASTTASKSWITCH& = 35
  307. Public Const SPI_GETFILTERKEYS& = 50
  308. Public Const SPI_GETFONTSMOOTHING& = 74
  309. Public Const SPI_GETGRIDGRANULARITY& = 18
  310. Public Const SPI_GETHIGHCONTRAST& = 66
  311. Public Const SPI_GETICONMETRICS& = 45
  312. Public Const SPI_GETICONTITLELOGFONT& = 31
  313. Public Const SPI_GETICONTITLEWRAP& = 25
  314. Public Const SPI_GETKEYBOARDDELAY& = 22
  315. Public Const SPI_GETKEYBOARDPREF& = 68
  316. Public Const SPI_GETKEYBOARDSPEED& = 10
  317. Public Const SPI_GETLOWPOWERACTIVE& = 83
  318. Public Const SPI_GETLOWPOWERTIMEOUT& = 79
  319. Public Const SPI_GETMENUDROPALIGNMENT& = 27
  320. Public Const SPI_GETMOUSE& = 3
  321. Public Const SPI_GETMINIMIZEDMETRICS& = 43
  322. Public Const SPI_GETMOUSEKEYS& = 54
  323. Public Const SPI_GETMOUSETRAILS& = 94
  324. Public Const SPI_GETNONCLIENTMETRICS& = 41
  325. Public Const SPI_GETPOWEROFFACTIVE& = 84
  326. Public Const SPI_GETPOWEROFFTIMEOUT& = 80
  327. Public Const SPI_GETSCREENREADER& = 70
  328. Public Const SPI_GETSCREENSAVEACTIVE& = 16
  329. Public Const SPI_GETSCREENSAVETIMEOUT& = 14
  330. Public Const SPI_GETSERIALKEYS& = 62
  331. Public Const SPI_GETSHOWSOUNDS& = 56
  332. Public Const SPI_GETSOUNDSENTRY& = 64
  333. Public Const SPI_GETSTICKYKEYS& = 58
  334. Public Const SPI_GETTOGGLEKEYS& = 52
  335. Public Const SPI_GETWINDOWSEXTENSION& = 92
  336. Public Const SPI_GETWORKAREA& = 48
  337. Public Const SPI_ICONHORIZONTALSPACING& = 13
  338. Public Const SPI_ICONVERTICALSPACING& = 24
  339. Public Const SPI_LANGDRIVER& = 12
  340. Public Const SPI_SCREENSAVERRUNNING& = 97
  341. Public Const SPI_SETACCESSTIMEOUT& = 61
  342. Public Const SPI_SETANIMATION& = 73
  343. Public Const SPI_SETBEEP& = 2
  344. Public Const SPI_SETBORDER& = 6
  345. Public Const SPI_SETCURSORS& = 87
  346. Public Const SPI_SETDEFAULTINPUTLANG& = 90
  347. Public Const SPI_SETDESKPATTERN& = 21
  348. Public Const SPI_SETDESKWALLPAPER& = 20
  349. Public Const SPI_SETDOUBLECLICKTIME& = 32
  350. Public Const SPI_SETDOUBLECLKHEIGHT& = 30
  351. Public Const SPI_SETDOUBLECLKWIDTH& = 29
  352. Public Const SPI_SETDRAGFULLWINDOWS& = 37
  353. Public Const SPI_SETDRAGHEIGHT& = 77
  354. Public Const SPI_SETDRAGWIDTH& = 76
  355. Public Const SPI_SETFASTTASKSWITCH& = 36
  356. Public Const SPI_SETFILTERKEYS& = 51
  357. Public Const SPI_SETFONTSMOOTHING& = 75
  358. Public Const SPI_SETGRIDGRANULARITY& = 19
  359. Public Const SPI_SETHANDHELD& = 78
  360. Public Const SPI_SETHIGHCONTRAST& = 67
  361. Public Const SPI_SETICONMETRICS& = 46
  362. Public Const SPI_SETICONS& = 88
  363. Public Const SPI_SETICONTITLELOGFONT& = 34
  364. Public Const SPI_SETICONTITLEWRAP& = 26
  365. Public Const SPI_SETKEYBOARDDELAY& = 23
  366. Public Const SPI_SETKEYBOARDPREF& = 69
  367. Public Const SPI_SETKEYBOARDSPEED& = 11
  368. Public Const SPI_SETLANGTOGGLE& = 91
  369. Public Const SPI_SETLOWPOWERACTIVE& = 85
  370. Public Const SPI_SETLOWPOWERTIMEOUT& = 81
  371. Public Const SPI_SETMENUDROPALIGNMENT& = 28
  372. Public Const SPI_SETMINIMIZEDMETRICS& = 44
  373. Public Const SPI_SETMOUSE& = 4
  374. Public Const SPI_SETMOUSEBUTTONSWAP& = 33
  375. Public Const SPI_SETMOUSEKEYS& = 55
  376. Public Const SPI_SETMOUSETRAILS& = 93
  377. Public Const SPI_SETNONCLIENTMETRICS& = 42
  378. Public Const SPI_SETPENWINDOWS& = 49
  379. Public Const SPI_SETPOWEROFFACTIVE& = 86
  380. Public Const SPI_SETPOWEROFFTIMEOUT& = 82
  381. Public Const SPI_SETSCREENREADER& = 71
  382. Public Const SPI_SETSCREENSAVEACTIVE& = 17
  383. Public Const SPI_SETSCREENSAVETIMEOUT& = 15
  384. Public Const SPI_SETSERIALKEYS& = 63
  385. Public Const SPI_SETSHOWSOUNDS& = 57
  386. Public Const SPI_SETSOUNDSENTRY& = 65
  387. Public Const SPI_SETSTICKYKEYS& = 59
  388. Public Const SPI_SETTOGGLEKEYS& = 53
  389. Public Const SPI_SETWORKAREA& = 47
  390. Public Const SPIF_UPDATEINIFILE = 1
  391. Public Const SPIF_SENDWININICHANGE = 2
  392.  
  393. #If Win32 Then
  394. Public Const EWX_LOGOFF = 0
  395. Public Const EWX_SHUTDOWN = 1
  396. Public Const EWX_REBOOT = 2
  397. Public Const EWX_FORCE = 4
  398. Public Const EWX_POWEROFF = 8
  399.  
  400. Public Const PROCESSOR_INTEL_386 = 386
  401. Public Const PROCESSOR_INTEL_486 = 486
  402. Public Const PROCESSOR_INTEL_PENTIUM = 586
  403. Public Const PROCESSOR_MIPS_R4000 = 4000
  404. Public Const PROCESSOR_ALPHA_21064 = 21064
  405.  
  406. Public Const LOCALE_SYSTEM_DEFAULT = &H800
  407. Public Const LOCALE_USER_DEFAULT = &H400
  408.  
  409. Public Const LOCALE_ILANGUAGE = &H1         '  language id
  410. Public Const LOCALE_SLANGUAGE = &H2         '  localized name of language
  411. Public Const LOCALE_SENGLANGUAGE = &H1001      '  English name of language
  412. Public Const LOCALE_SABBREVLANGNAME = &H3         '  abbreviated language name
  413. Public Const LOCALE_SNATIVELANGNAME = &H4         '  native name of language
  414. Public Const LOCALE_ICOUNTRY = &H5         '  country code
  415. Public Const LOCALE_SCOUNTRY = &H6         '  localized name of country
  416. Public Const LOCALE_SENGCOUNTRY = &H1002      '  English name of country
  417. Public Const LOCALE_SABBREVCTRYNAME = &H7         '  abbreviated country name
  418. Public Const LOCALE_SNATIVECTRYNAME = &H8         '  native name of country
  419. Public Const LOCALE_IDEFAULTLANGUAGE = &H9         '  default language id
  420. Public Const LOCALE_IDEFAULTCOUNTRY = &HA         '  default country code
  421. Public Const LOCALE_IDEFAULTCODEPAGE = &HB         '  default code page
  422.  
  423. Public Const LOCALE_SLIST = &HC         '  list item separator
  424. Public Const LOCALE_IMEASURE = &HD         '  0 = metric, 1 = US
  425.  
  426. Public Const LOCALE_SDECIMAL = &HE         '  decimal separator
  427. Public Const LOCALE_STHOUSAND = &HF         '  thousand separator
  428. Public Const LOCALE_SGROUPING = &H10        '  digit grouping
  429. Public Const LOCALE_IDIGITS = &H11        '  number of fractional digits
  430. Public Const LOCALE_ILZERO = &H12        '  leading zeros for decimal
  431. Public Const LOCALE_SNATIVEDIGITS = &H13        '  native ascii 0-9
  432.  
  433. Public Const LOCALE_SCURRENCY = &H14        '  local monetary symbol
  434. Public Const LOCALE_SINTLSYMBOL = &H15        '  intl monetary symbol
  435. Public Const LOCALE_SMONDECIMALSEP = &H16        '  monetary decimal separator
  436. Public Const LOCALE_SMONTHOUSANDSEP = &H17        '  monetary thousand separator
  437. Public Const LOCALE_SMONGROUPING = &H18        '  monetary grouping
  438. Public Const LOCALE_ICURRDIGITS = &H19        '  # local monetary digits
  439. Public Const LOCALE_IINTLCURRDIGITS = &H1A        '  # intl monetary digits
  440. Public Const LOCALE_ICURRENCY = &H1B        '  positive currency mode
  441. Public Const LOCALE_INEGCURR = &H1C        '  negative currency mode
  442.  
  443. Public Const LOCALE_SDATE = &H1D        '  date separator
  444. Public Const LOCALE_STIME = &H1E        '  time separator
  445. Public Const LOCALE_SSHORTDATE = &H1F        '  short date format string
  446. Public Const LOCALE_SLONGDATE = &H20        '  long date format string
  447. Public Const LOCALE_STIMEFORMAT = &H1003      '  time format string
  448. Public Const LOCALE_IDATE = &H21        '  short date format ordering
  449. Public Const LOCALE_ILDATE = &H22        '  long date format ordering
  450. Public Const LOCALE_ITIME = &H23        '  time format specifier
  451. Public Const LOCALE_ICENTURY = &H24        '  century format specifier
  452. Public Const LOCALE_ITLZERO = &H25        '  leading zeros in time field
  453. Public Const LOCALE_IDAYLZERO = &H26        '  leading zeros in day field
  454. Public Const LOCALE_IMONLZERO = &H27        '  leading zeros in month field
  455. Public Const LOCALE_S1159 = &H28        '  AM designator
  456. Public Const LOCALE_S2359 = &H29        '  PM designator
  457.  
  458. Public Const LOCALE_SDAYNAME1 = &H2A        '  long name for Monday
  459. Public Const LOCALE_SDAYNAME2 = &H2B        '  long name for Tuesday
  460. Public Const LOCALE_SDAYNAME3 = &H2C        '  long name for Wednesday
  461. Public Const LOCALE_SDAYNAME4 = &H2D        '  long name for Thursday
  462. Public Const LOCALE_SDAYNAME5 = &H2E        '  long name for Friday
  463. Public Const LOCALE_SDAYNAME6 = &H2F        '  long name for Saturday
  464. Public Const LOCALE_SDAYNAME7 = &H30        '  long name for Sunday
  465. Public Const LOCALE_SABBREVDAYNAME1 = &H31        '  abbreviated name for Monday
  466. Public Const LOCALE_SABBREVDAYNAME2 = &H32        '  abbreviated name for Tuesday
  467. Public Const LOCALE_SABBREVDAYNAME3 = &H33        '  abbreviated name for Wednesday
  468. Public Const LOCALE_SABBREVDAYNAME4 = &H34        '  abbreviated name for Thursday
  469. Public Const LOCALE_SABBREVDAYNAME5 = &H35        '  abbreviated name for Friday
  470. Public Const LOCALE_SABBREVDAYNAME6 = &H36        '  abbreviated name for Saturday
  471. Public Const LOCALE_SABBREVDAYNAME7 = &H37        '  abbreviated name for Sunday
  472. Public Const LOCALE_SMONTHNAME1 = &H38        '  long name for January
  473. Public Const LOCALE_SMONTHNAME2 = &H39        '  long name for February
  474. Public Const LOCALE_SMONTHNAME3 = &H3A        '  long name for March
  475. Public Const LOCALE_SMONTHNAME4 = &H3B        '  long name for April
  476. Public Const LOCALE_SMONTHNAME5 = &H3C        '  long name for May
  477. Public Const LOCALE_SMONTHNAME6 = &H3D        '  long name for June
  478. Public Const LOCALE_SMONTHNAME7 = &H3E        '  long name for July
  479. Public Const LOCALE_SMONTHNAME8 = &H3F        '  long name for August
  480. Public Const LOCALE_SMONTHNAME9 = &H40        '  long name for September
  481. Public Const LOCALE_SMONTHNAME10 = &H41        '  long name for October
  482. Public Const LOCALE_SMONTHNAME11 = &H42        '  long name for November
  483. Public Const LOCALE_SMONTHNAME12 = &H43        '  long name for December
  484. Public Const LOCALE_SABBREVMONTHNAME1 = &H44        '  abbreviated name for January
  485. Public Const LOCALE_SABBREVMONTHNAME2 = &H45        '  abbreviated name for February
  486. Public Const LOCALE_SABBREVMONTHNAME3 = &H46        '  abbreviated name for March
  487. Public Const LOCALE_SABBREVMONTHNAME4 = &H47        '  abbreviated name for April
  488. Public Const LOCALE_SABBREVMONTHNAME5 = &H48        '  abbreviated name for May
  489. Public Const LOCALE_SABBREVMONTHNAME6 = &H49        '  abbreviated name for June
  490. Public Const LOCALE_SABBREVMONTHNAME7 = &H4A        '  abbreviated name for July
  491. Public Const LOCALE_SABBREVMONTHNAME8 = &H4B        '  abbreviated name for August
  492. Public Const LOCALE_SABBREVMONTHNAME9 = &H4C        '  abbreviated name for September
  493. Public Const LOCALE_SABBREVMONTHNAME10 = &H4D        '  abbreviated name for October
  494. Public Const LOCALE_SABBREVMONTHNAME11 = &H4E        '  abbreviated name for November
  495. Public Const LOCALE_SABBREVMONTHNAME12 = &H4F        '  abbreviated name for December
  496. Public Const LOCALE_SABBREVMONTHNAME13 = &H100F
  497.  
  498. Public Const LOCALE_SPOSITIVESIGN = &H50        '  positive sign
  499. Public Const LOCALE_SNEGATIVESIGN = &H51        '  negative sign
  500. Public Const LOCALE_IPOSSIGNPOSN = &H52        '  positive sign position
  501. Public Const LOCALE_INEGSIGNPOSN = &H53        '  negative sign position
  502. Public Const LOCALE_IPOSSYMPRECEDES = &H54        '  mon sym precedes pos amt
  503. Public Const LOCALE_IPOSSEPBYSPACE = &H55        '  mon sym sep by space from pos amt
  504. Public Const LOCALE_INEGSYMPRECEDES = &H56        '  mon sym precedes neg amt
  505. Public Const LOCALE_INEGSEPBYSPACE = &H57        '  mon sym sep by space from neg amt
  506.  
  507. #End If
  508.  
  509.  
  510. '---------------------------------------------------
  511.  
  512. '              Application Global Variables
  513.  
  514. '---------------------------------------------------
  515.  
  516. ' Holder for the original caret blink time
  517. Global OriginalCaretBlinkTime%
  518.  
  519. ' Holder for version information. Set on form load
  520. Global myVer As OSVERSIONINFO
  521.  
  522. Sub Main()
  523.    SysInfo.Show
  524. End Sub
  525.