'========================================

Function zGen_GetIni(sIniFile, sSection, sKey, sDefault)

	Dim iRet, sReturnString

	Extern.Declare micLong, "GetPrivateProfileString", "kernel32.dll", "GetPrivateProfileStringA", micString, micString, micString, micString + micByRef, micDWord, micString 

	iRet = Extern.GetPrivateProfileString( sSection, sKey, sDefault, sReturnString, 256, sIniFile )

	If iRet > 0 Then
		zGen_GetIni = sReturnString
	Else
		zGen_GetIni = sDefault
	End If

End Function

'========================================