Simple INI file routines

[K Peel]

Hope you find these useful (took me five mins):

$Compile Exe
$Include "WIN32API.INC"

%STD_LEN = 255

Function GetINI (ByVal IniFile As String, ByVal sSection As String, ByVal sKey As String, ByVal sDefault As String) Export As String
 Local zText As Asciiz * 255
 GetPrivateProfileString ByCopy sSection, ByCopy sKey, ByCopy sDefault, zText, SizeOf(zText), ByCopy IniFile
 Function = zText
End Function


Function SetINI (ByVal IniFile As String, ByVal sSection As String, ByVal sKey As String, ByVal sValue As String) As Long
 Function = WritePrivateProfileString (ByCopy sSection, ByCopy sKey, ByCopy sValue, ByCopy IniFile)
End Function

Kev

[This message has been edited by K Peel (edited 08-16-99).]

[K Peel]

Just for extended information, if you want to access the file other than with the GetPrivateProfileString, enter the text:

 ' Flush the API INI buffer, change 'MyFile.ini' to your filename.
 SetIni "MyFile.ini", "", "", ""

After much trial & error, I discovered that Windows "caches" the file on access, denying other functions write access.

Cheerz,


-------------
Kev G Peel
KGP Software
Bridgwater, UK.
mailto:[email protected][email protected]</A>