FUNCTION IniDelete OPTIONAL(sInFileName$, sSection$, sKey$ = "")
	'Get the fullpathname (ini functions need a full path)
	LOCAL sFileName AS STRING	
	LOCAL sFilePart AS CHAR PTR
	GetFullPathName(sInFileName, MAX_PATH, sFileName, &sFilePart)
	'If there are only 2 parameters then assume we want to delete entire section
	LOCAL iRes AS INTEGER
	IF sKey = "" THEN
		'Delete entire section
		iRes = WritePrivateProfileString(sSection, NULL, NULL, sFileName)
		IF iRes THEN WritePrivateProfileString(NULL, NULL, NULL, sFileName) 'FLUSH
	ELSE
	'Delete key
		iRes = WritePrivateProfileString(sSection, sKey, NULL, sFileName)
		IF iRes THEN WritePrivateProfileString(NULL, NULL, NULL, sFileName) 'FLUSH
	ENDIF
	FUNCTION = iRes
END FUNCTION