FreeBasic

Данный пример демонстрирует работу с функциями GetPrivateProfileString и WritePrivateProfileString. Функции очень удобны для работы с текстовыми файлами формата INI. Благодаря этим функциям, не нужно думать об инициализации и освобождении всяких хенлов...

Платформа: Windows
Автор: Jojo

#INCLUDE "windows.bi"
#DEFINE DefaultGroup Mid ( Command ( 0 ) , Instrrev ( Command ( 0 ) , "\" ) + 1 ) ' Standardgruppe, wenn kein Gruppenname ubergeben wird. In diesem Beispiel entspricht sie dem Namen der EXE-Datei.

'Benotigte Funktionen
Function GetValue ( Key As String , Default As String = "" , Group As String = DefaultGroup , Filename As String = Command ( 0 ) + ".ini" ) As String
    Dim TmpRetStr As String * 1280
    Dim RetVal As Long
    RetVal = GetPrivateProfileString ( Group , Key , Default & Chr ( 0 ) , TmpRetStr , Len ( TmpRetStr ) , Filename )
    Return Left ( TmpRetStr , RetVal )
End Function

Sub SetValue ( Key As String , Value As String , Group As String = DefaultGroup , Filename As String = Command ( 0 ) + ".ini" )
    WritePrivateProfileString Group , Key , Value , Filename
End Sub

' Testwerte aus der Standard-Gruppe. Dazu muss in der INI-Datei eine Gruppe mit dem Namen der Exe-Datei (zB [MeinProgramm.exe]) existieren, bzw. diese wird durch SetValue direkt angelegt.
' Mit einer zuvor leeren INI-Datei sollte die Ausgabe also "Blau", "Rot" sein.
Print GetValue ( "Farbe" , "Blau" )
SetValue ( "Farbe" , "Rot" )
Print GetValue ( "Farbe" )
SetValue ( "Farbe" , "" )

' Testwerte aus einer anderen Gruppe
SetValue ( "Farbe" , "Andere Farbe" , "UnterGruppe" )
Print GetValue ( "Farbe" , , "UnterGruppe" )
Sleep