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 appeler le fichier .INI sans utiliser l'API.
Comment obtenir des personnages
varMonIni:TIniFile;
commencer
MyIni:=TIniFile.Create(´WIN.INI´);//Le nom du fichier appelé
edit1.text:=MyIni.ReadString(´Bureau´,´Wallpaper´,´´);//
Obtenir des personnages
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;
Bien sûr, c'est très facile à craquer, vous pouvez utiliser XOR pour effectuer une opération XOR, ou inverser
Valeur... Cela dépend de la manière dont vous le mettez en œuvre. Bref, cet article n'est qu'un point de départ.