Dapatkan string dari file .INI
var
strHasil:pchar;
mulai
DapatkanStringProfil Pribadi(
´windows´,//Nama judul di []
´NullPort´,//=Nama sebelum nomor
´NIL´,//Jika string tidak ditemukan, nilai default akan dikembalikan
strResult,//Penyimpanan karakter yang diperoleh
100, //Dapatkan panjang karakter maksimum yang diperbolehkan
´c:/forwin95/win.ini´//Nama file yang dipanggil
);
edit1.text:=strResult;//Menampilkan string yang diperoleh
Dapatkan bilangan bulat dari file .INI
edit1.teks:=inttostr(DapatkanPrivateProfileInt(
´intl´,//Nama judul di []
´iCountry´,//=nama sebelum nomor
0, //Jika tidak ada bilangan bulat yang ditemukan, nilai default akan dikembalikan
´c:/forwin95/win.ini´//Nama file yang dipanggil
));
Tulis string ke file .INI
TulisStringProfil Pribadi(
´windows´,//Nama judul di []
´load´,//Untuk menulis string sebelum tanda "="
´accca´,//Data yang akan ditulis
´c:/forwin95/win.ini´//Nama file yang dipanggil
);
Tulis bilangan bulat ke file .INI
TulisBagianProfil Pribadi(
´windows´,//Nama judul di []
´baca=100´,//Data yang akan ditulis
´c:/forwin95/win.ini´//Nama file yang dipanggil
);
Cara di atas adalah dengan memanggil fungsi API. Berikut metode lain untuk memanggil file .INI tanpa menggunakan API.
Cara mendapatkan karakter
varMyIni:TIniFile;
mulai
MyIni:=TIniFile.Create(´WIN.INI´);//Nama file yang dipanggil
edit1.teks:=IniIni.ReadString(´Desktop´,´Wallpaper´,´´);//
Dapatkan karakter
akhir;
Cara menulis karakter ke file .INI
varMyIni:TIniFile;
mulai
MyIni:=TIniFile.Create(´WIN.INI´);//Nama file yang dipanggil
DelphiIni.WriteString(´Desktop´,´Wallpaper´,´c:/a.bmp´);
akhir;
Tentu saja ini sangat mudah untuk dipecahkan, Anda dapat menggunakan XOR untuk melakukan operasi XOR, atau membalikkannya
Nilai... Tergantung bagaimana Anda menerapkannya. Singkatnya, artikel ini hanyalah titik awal.