Récupérer la chaîne du fichier .INI
var
strResult:pchar;
commencer
GetPrivateProfileString(
'windows',//Le nom du titre entre []
'NullPort',//=Le nom avant le numéro
'NIL',//Si la chaîne n'est pas trouvée, la valeur par défaut renvoyée
strResult,//Stockage des caractères obtenus
100, //Obtenir la longueur maximale autorisée des caractères
´c:/forwin95/win.ini´//Le nom du fichier appelé
);
edit1.text:=strResult;//Afficher la chaîne obtenue
Récupérer un entier à partir du fichier .INI
edit1.text:=inttostr(GetPrivateProfileInt(
´intl´,//Le nom du titre dans []
'iCountry',//=nom avant le numéro
0, //Si aucun entier n'est trouvé, la valeur par défaut renvoyée
´c:/forwin95/win.ini´//Le nom du fichier appelé
));
Écrire la chaîne dans le fichier .INI
WritePrivateProfileString(
'windows',//Le nom du titre entre []
´load´,//Pour écrire la chaîne avant le signe "="
'accca',//Données à écrire
´c:/forwin95/win.ini´//Le nom du fichier appelé
);
Écrire des entiers dans le fichier .INI
WritePrivateProfileSection(
'windows',//Le nom du titre entre []
´read=100´,//Données à écrire
´c:/forwin95/win.ini´//Le nom du fichier appelé
);
La méthode ci-dessus consiste à appeler la fonction API. Voici une autre méthode pour obtenir les caractères du fichier .INI sans utiliser l'API.
varMonIni:TIniFile;
commencer
MyIni:=TIniFile.Create(´WIN.INI´);//Le nom du fichier appelé
edit1.text:=MyIni.ReadString(´Desktop´,´Wallpaper´,´´);//Obtenir des caractères
fin;
Comment écrire des caractères dans un fichier .INI
varMonIni:TIniFile;
commencer
MyIni:=TIniFile.Create(´WIN.INI´);//Le nom du fichier appelé
DelphiIni.WriteString(´Desktop´,´Wallpaper´,´c:/a.bmp´);
fin;