home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_tools
/
vbabk
/
vba_bkma.txt
< prev
next >
Wrap
Text File
|
1994-07-03
|
5KB
|
71 lines
'Call the following function FIRST with the supplied Key to surpress the About Messages
'Any About Box in your application must contain the String returned as a condition of the License.
Declare Function About Lib "vba_BKMA.dll" Alias "vbaAbout_vba_BKMA" (ByVal Key As Long) As String
'-----------------------------
'General Functions
Declare Function WinDIR Lib "vba_BKMA.dll" Alias "vbaWinDir" () As String
Declare Function SysDIR Lib "vba_BKMA.dll" Alias "vbaSysDir" () As String
Declare Function TmpDrv Lib "vba_BKMA.dll" Alias "vbaTmpDrv" () As String
Declare Function TmpFile Lib "vba_BKMA.dll" Alias "vbaTmpFile" () As String
Declare Function DrvType Lib "vba_BKMA.dll" Alias "vbaDrvType" (ByVal DriveLetter$) As Integer
Declare Function DosVersion Lib "vba_BKMA.dll" Alias "vbaDosVersion" () As String
Declare Function WinVersion Lib "vba_BKMA.dll" Alias "vbaWinVersion" () As String
Declare Function dosEnv Lib "vba_BKMA.dll" Alias "vbaDosEnv" (ByVal i%) As String
Declare Function CPUMode Lib "vba_BKMA.dll" Alias "vbaCPUMode" () As String
'vbaMathCoprocessor
Declare Function MathCoprocessor Lib "vba_BKMA.dll" Alias "vbaMathCoprocessor" () As Integer
Declare Function CPU Lib "vba_BKMA.dll" Alias "vbaCPU" () As String
'---------------Constanst for FileVersion
Global Const FV_Version = 1
Global Const FV_ProductVersion = 2
Declare Function FileVersion Lib "vba_BKMA.dll" Alias "vbaFileVersion" (ByVal FileName$, ByVal info%) As String
'
Global Const M_UserFreePercent = 1
Global Const M_GDIFreePercent = 2
Declare Function WMemory Lib "vba_BKMA.dll" Alias "vbaMemory" (ByVal info%) As Integer
Global Const PM_LargestFreeBlock = 1
Global Const PM_MaxPagesAvailable = 2
Global Const PM_MaxPagesLockable = 3
Global Const PM_TotalLinearSpace = 4
Global Const PM_TotalUnlockedPages = 5
Global Const PM_FreePages = 6
Global Const PM_TotalPages = 7
Global Const PM_FreeLinearSpace = 8
Global Const PM_SwapFilePages = 9
Global Const PM_PageSize = 10
Declare Function PageMemory Lib "vba_BKMA.dll" Alias "vbaPageMemory" (ByVal info%) As Integer
Declare Function ModuleLocation Lib "vba_BKMA.dll" Alias "vbaModuleLocation" (ByVal fn$) As String
'
Declare Sub ResetStopWatch Lib "vba_BKMA.dll" Alias "vbaResetStopWatch" ()
Declare Function StopWatch Lib "vba_BKMA.dll" Alias "vbaStopWatch" () As Long
'============================================================
'Ini Functions
'Get values
Declare Function WinIniGet Lib "vba_BKMA.Dll" Alias "vbaWinIniGet" (ByVal Section$, ByVal lpszEntry$) As String
Declare Function WinIniGetAll Lib "vba_BKMA.Dll" Alias "vbaWinIniGetAll" (ByVal Section$) As String
Declare Function IniGet Lib "vba_BKMA.Dll" Alias "vbaIniGet" (ByVal Section$, ByVal lpszEntry$, ByVal FileName$) As String
Declare Function IniGetAll Lib "vba_BKMA.Dll" Alias "vbaIniGetAll" (ByVal Section$, ByVal FileName$) As String
'Insert into Ini
Declare Function WinIniPut Lib "vba_BKMA.Dll" Alias "vbaWinIniPut" (ByVal Section$, ByVal Entry$, ByVal Value$) As Integer
Declare Function IniPut Lib "vba_BKMA.Dll" Alias "vbaIniPut" (ByVal Section$, ByVal Entry$, ByVal Value$, ByVal FileName$) As Integer
'Flush any Cache
Declare Sub WinIniFlush Lib "vba_BKMA.Dll" Alias "vbaWinIniFlush" ()
Declare Sub IniFlush Lib "vba_BKMA.Dll" Alias "vbaIniFlush" (ByVal FileName$)
Declare Sub WinIniDel Lib "vba_BKMA.Dll" Alias "vbaWinIniDel" (ByVal Section$, ByVal Entry$)
Declare Sub IniDel Lib "vba_BKMA.Dll" Alias "vbaIniDel" (ByVal Section$, ByVal Entry$, ByVal FileName$)
'Be very careful with the next one!
Declare Sub IniWinDelSect Lib "vba_BKMA.Dll" Alias "vbaWinIniDelSect" (ByVal Section$)
Declare Sub IniDelSect Lib "vba_BKMA.Dll" Alias "vbaIniDelSect" (ByVal Section$, ByVal FileName$)
'Warning: String sent is REQUIRED to end with TWO \0\0 (i.e. chr$(0)+Chr$(0))
Declare Function ParseSz Lib "vba_BKMA.Dll" Alias "vbaParseSz" (ByVal txt$, ByVal lineno%) As String
'Warning: Search stops at End OR first chr$(0)
Declare Function ParseCR Lib "vba_BKMA.Dll" Alias "vbaParseCR" (ByVal txt$, ByVal lineno%) As String
Declare Function Empty Lib "vba_BKMA.Dll" Alias "vbaEmpty" (ByVal txt$) As Integer
Declare Function CountStr Lib "vba_BKMA.Dll" Alias "vbaCountStr" (ByVal txt$, ByVal CountChar$) As Integer
Declare Function NthRow Lib "vba_BKMA.Dll" Alias "vbaNthRow" (ByVal txt$, ByVal nth%) As String
Declare Function NthCol Lib "vba_BKMA.Dll" Alias "vbaNthCol" (ByVal txt$, ByVal nth%) As String
Declare Function AllTrim Lib "vba_BKMA.Dll" Alias "vbaAlltrim" (ByVal txt$) As String