File "ini.inc"

Path: /ShuffleGUI/inc/ini.inc
File size: 1.33 KB
MIME-type:
Charset: utf-8

Download  
Open Back 
'------------------------------------------------------------------------------
' returns a string from ini file
'------------------------------------------------------------------------------
FUNCTION GetIniS (BYVAL inifile AS STRING, BYVAL sSection AS STRING, BYVAL sKey AS STRING) EXPORT AS STRING
    LOCAL zText AS ASCIIZ * 255 * 255
    GetPrivateProfileString BYCOPY sSection, BYCOPY sKey, "", zText, SIZEOF(zText), (inifile)
    FUNCTION = zText
END FUNCTION

'------------------------------------------------------------------------------
' returns a number from ini file
'------------------------------------------------------------------------------
FUNCTION GetIniV (BYVAL inifile AS STRING, BYVAL sSection AS STRING, BYVAL sKey AS STRING) EXPORT AS LONG
    LOCAL zText AS ASCIIZ * 255 * 255
    GetPrivateProfileString BYCOPY sSection, BYCOPY sKey, "0", zText, SIZEOF(zText), (inifile)
    FUNCTION = VAL(zText)
END FUNCTION

'------------------------------------------------------------------------------
' sets a string in ini file
'------------------------------------------------------------------------------
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, (inifile))
END FUNCTION