code:

---

$nul = WriteProfileString("test.ini","section1", "key", "string"+@CRLF)

---

code:

---

$IniFile = '\\Server\Share\IniFile.ini'
 
Ini9xStyle($IniFile)
 
Function Ini9xStyle($IniFile)
	Dim $PrevLine,$Line,$TmpFile,$FileName
	If InStr($IniFile,'\')
		$FileName = SubStr($IniFile,InStrRev($IniFile,'\') + 1)
	Else
		$FileName = $IniFile
	EndIf
	$TmpFile = %Temp% + '\' + $FileName
	Del $TmpFile
	$RC = Open(1,$IniFile)
	$RC = Open(2,$TmpFile,5)
	$Line = ReadLine(1)
	While Not @Error
		$Line = Trim($Line)
		If Left($Line,1) = '['
			If $PrevLine
				$RC = WriteLine(2,@CRLF)
			EndIf
		EndIf
		If $Line
			$RC = WriteLine(2,$Line + @CRLF)
		EndIf
		$Line = ReadLine(1)
		$PrevLine = $Line
	Loop
	$RC = Close(1)
	$RC = Close(2)
	Copy $TmpFile $IniFile
	Del $TmpFile
EndFunction

---