Hope you find these useful (took me five mins):
Kev
[This message has been edited by K Peel (edited 08-16-99).]
Code:
$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).]
Comment