FUNCTION IniWrite(sInFileName$, sSection$, sKey$, sValue$)
	'Get the fullpathname (ini functions need a full path)
	LOCAL sFileName AS STRING	
	LOCAL sFilePart AS CHAR PTR
	GetFullPathName(sInFileName, MAX_PATH, sFileName, &sFilePart)
	LOCAL iRes AS INTEGER
	iRes =  WritePrivateProfileString(sSection, sKey, sValue, sFileName)
	IF iRes THEN WritePrivateProfileString(NULL, NULL, NULL, sFileName) 'Flush
	FUNCTION = iRes
END FUNCTION