home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_tools / vbabk / vba_bkma.txt < prev    next >
Text File  |  1994-07-03  |  5KB  |  71 lines
  1. 'Call the following function FIRST with the supplied Key to surpress the About Messages
  2. 'Any About Box in your application must contain the String returned as a condition of the License.
  3. Declare Function About Lib "vba_BKMA.dll" Alias "vbaAbout_vba_BKMA" (ByVal Key As Long) As String
  4. '-----------------------------
  5. 'General Functions
  6. Declare Function WinDIR Lib "vba_BKMA.dll" Alias "vbaWinDir" () As String
  7. Declare Function SysDIR Lib "vba_BKMA.dll" Alias "vbaSysDir" () As String
  8. Declare Function TmpDrv Lib "vba_BKMA.dll" Alias "vbaTmpDrv" () As String
  9. Declare Function TmpFile Lib "vba_BKMA.dll" Alias "vbaTmpFile" () As String
  10. Declare Function DrvType Lib "vba_BKMA.dll" Alias "vbaDrvType" (ByVal DriveLetter$) As Integer
  11. Declare Function DosVersion Lib "vba_BKMA.dll" Alias "vbaDosVersion" () As String
  12. Declare Function WinVersion Lib "vba_BKMA.dll" Alias "vbaWinVersion" () As String
  13. Declare Function dosEnv Lib "vba_BKMA.dll" Alias "vbaDosEnv" (ByVal i%) As String
  14. Declare Function CPUMode Lib "vba_BKMA.dll" Alias "vbaCPUMode" () As String
  15. 'vbaMathCoprocessor
  16. Declare Function MathCoprocessor Lib "vba_BKMA.dll" Alias "vbaMathCoprocessor" () As Integer
  17. Declare Function CPU Lib "vba_BKMA.dll" Alias "vbaCPU" () As String
  18. '---------------Constanst for FileVersion
  19. Global Const FV_Version = 1
  20. Global Const FV_ProductVersion = 2
  21. Declare Function FileVersion Lib "vba_BKMA.dll" Alias "vbaFileVersion" (ByVal FileName$, ByVal info%) As String
  22. '
  23. Global Const M_UserFreePercent = 1
  24. Global Const M_GDIFreePercent = 2
  25. Declare Function WMemory Lib "vba_BKMA.dll" Alias "vbaMemory" (ByVal info%) As Integer
  26. Global Const PM_LargestFreeBlock = 1
  27. Global Const PM_MaxPagesAvailable = 2
  28. Global Const PM_MaxPagesLockable = 3
  29. Global Const PM_TotalLinearSpace = 4
  30. Global Const PM_TotalUnlockedPages = 5
  31. Global Const PM_FreePages = 6
  32. Global Const PM_TotalPages = 7
  33. Global Const PM_FreeLinearSpace = 8
  34. Global Const PM_SwapFilePages = 9
  35. Global Const PM_PageSize = 10
  36. Declare Function PageMemory Lib "vba_BKMA.dll" Alias "vbaPageMemory" (ByVal info%) As Integer
  37. Declare Function ModuleLocation Lib "vba_BKMA.dll" Alias "vbaModuleLocation" (ByVal fn$) As String
  38. '
  39. Declare Sub ResetStopWatch Lib "vba_BKMA.dll" Alias "vbaResetStopWatch" ()
  40. Declare Function StopWatch Lib "vba_BKMA.dll" Alias "vbaStopWatch" () As Long
  41. '============================================================
  42. 'Ini Functions
  43. 'Get values
  44. Declare Function WinIniGet Lib "vba_BKMA.Dll" Alias "vbaWinIniGet" (ByVal Section$, ByVal lpszEntry$) As String
  45. Declare Function WinIniGetAll Lib "vba_BKMA.Dll" Alias "vbaWinIniGetAll" (ByVal Section$) As String
  46. Declare Function IniGet Lib "vba_BKMA.Dll" Alias "vbaIniGet" (ByVal Section$, ByVal lpszEntry$, ByVal FileName$) As String
  47. Declare Function IniGetAll Lib "vba_BKMA.Dll" Alias "vbaIniGetAll" (ByVal Section$, ByVal FileName$) As String
  48. 'Insert into Ini
  49. Declare Function WinIniPut Lib "vba_BKMA.Dll" Alias "vbaWinIniPut" (ByVal Section$, ByVal Entry$, ByVal Value$) As Integer
  50. Declare Function IniPut Lib "vba_BKMA.Dll" Alias "vbaIniPut" (ByVal Section$, ByVal Entry$, ByVal Value$, ByVal FileName$) As Integer
  51. 'Flush any Cache
  52. Declare Sub WinIniFlush Lib "vba_BKMA.Dll" Alias "vbaWinIniFlush" ()
  53. Declare Sub IniFlush Lib "vba_BKMA.Dll" Alias "vbaIniFlush" (ByVal FileName$)
  54.  
  55. Declare Sub WinIniDel Lib "vba_BKMA.Dll" Alias "vbaWinIniDel" (ByVal Section$, ByVal Entry$)
  56. Declare Sub IniDel Lib "vba_BKMA.Dll" Alias "vbaIniDel" (ByVal Section$, ByVal Entry$, ByVal FileName$)
  57. 'Be very careful with the next one!
  58. Declare Sub IniWinDelSect Lib "vba_BKMA.Dll" Alias "vbaWinIniDelSect" (ByVal Section$)
  59. Declare Sub IniDelSect Lib "vba_BKMA.Dll" Alias "vbaIniDelSect" (ByVal Section$, ByVal FileName$)
  60.  
  61. 'Warning: String sent is REQUIRED to end with TWO \0\0 (i.e. chr$(0)+Chr$(0))
  62. Declare Function ParseSz Lib "vba_BKMA.Dll" Alias "vbaParseSz" (ByVal txt$, ByVal lineno%) As String
  63. 'Warning: Search stops at End OR first chr$(0)
  64. Declare Function ParseCR Lib "vba_BKMA.Dll" Alias "vbaParseCR" (ByVal txt$, ByVal lineno%) As String
  65. Declare Function Empty Lib "vba_BKMA.Dll" Alias "vbaEmpty" (ByVal txt$) As Integer
  66. Declare Function CountStr Lib "vba_BKMA.Dll" Alias "vbaCountStr" (ByVal txt$, ByVal CountChar$) As Integer
  67. Declare Function NthRow Lib "vba_BKMA.Dll" Alias "vbaNthRow" (ByVal txt$, ByVal nth%) As String
  68. Declare Function NthCol Lib "vba_BKMA.Dll" Alias "vbaNthCol" (ByVal txt$, ByVal nth%) As String
  69. Declare Function AllTrim Lib "vba_BKMA.Dll" Alias "vbaAlltrim" (ByVal txt$) As String
  70.  
  71.