Zeichenfolge aus der .INI-Datei abrufen
var
strResult:pchar;
beginnen
GetPrivateProfileString(
´windows´,//Der Name des Titels in []
´NullPort´,//=Der Name vor der Nummer
´NIL´,//Wenn die Zeichenfolge nicht gefunden wird, wird der Standardwert zurückgegeben
strResult,//Speichern Sie die erhaltenen Zeichen
100, //Ermitteln Sie die maximal zulässige Zeichenlänge
´c:/forwin95/win.ini´//Der aufgerufene Dateiname
);
edit1.text:=strResult;//Anzeige der erhaltenen Zeichenfolge
Holen Sie sich eine Ganzzahl aus der .INI-Datei
edit1.text:=inttostr(GetPrivateProfileInt(
´intl´,//Der Name des Titels in []
´iCountry´,//=Name vor Nummer
0, //Wenn keine Ganzzahl gefunden wird, wird der Standardwert zurückgegeben
´c:/forwin95/win.ini´//Der aufgerufene Dateiname
));
Schreiben Sie eine Zeichenfolge in die .INI-Datei
WritePrivateProfileString(
´windows´,//Der Name des Titels in []
´load´,//Um den String vor dem „=“-Zeichen zu schreiben
´accca´,//Zu schreibende Daten
´c:/forwin95/win.ini´//Der aufgerufene Dateiname
);
Ganzzahlen in die .INI-Datei schreiben
WritePrivateProfileSection(
´windows´,//Der Name des Titels in []
´read=100´,//Zu schreibende Daten
´c:/forwin95/win.ini´//Der aufgerufene Dateiname
);
Die obige Methode besteht darin, die API-Funktion aufzurufen. Hier ist eine weitere Methode, um Zeichen aus der INI-Datei abzurufen, ohne die API zu verwenden.
varMyIni:TIniFile;
beginnen
MyIni:=TIniFile.Create(´WIN.INI´);//Der aufgerufene Dateiname
edit1.text:=MyIni.ReadString(´Desktop´,´Wallpaper´,´´);//Zeichen abrufen
Ende;
So schreiben Sie Zeichen in eine INI-Datei
varMyIni:TIniFile;
beginnen
MyIni:=TIniFile.Create(´WIN.INI´);//Der aufgerufene Dateiname
DelphiIni.WriteString(´Desktop´,´Wallpaper´,´c:/a.bmp´);
Ende;