*************************************************************************
* Function GetIni
* 
* This function returns the value of variable in an INI file
* Parm 1: INI file name
* Parm 2: Section name
* Parm 3: Variable name
*************************************************************************
Function GetIni
LPARAMETERS tcIniFile, tcSection, tcVarName
LOCAL lcReturn, lcStr, lnLength

lcStr = space(256)

DECLARE INTEGER GetPrivateProfileString IN WIN32API STRING lpAppName, STRING lpKeyName, STRING lpDefault, STRING @ lpReturnedString, INTEGER nSize, STRING lpFileName

lnLength = GetPrivateProfileString(TRIM(tcSection), TRIM(tcVarName), "", @ lcStr, LEN(lcStr), TRIM(tcIniFile))

lcReturn = LEFT(lcStr, lnLength)

RETURN lcReturn