รับสตริงจากไฟล์ .INI
var
strResult:pchar;
เริ่ม
รับPrivateProfileString(
`windows`,//ชื่อของชื่อเรื่องใน []
`NullPort´,//=ชื่อที่อยู่หน้าหมายเลข
'NIL',//หากไม่พบสตริง ระบบจะส่งคืนค่าดีฟอลต์กลับคืนมา
strResult,//เก็บอักขระที่ได้รับ
100, //รับความยาวอักขระสูงสุดที่อนุญาต
'c:/forwin95/win.ini'//ชื่อไฟล์ที่ถูกเรียก
-
edit1.text:=strResult;//แสดงสตริงที่ได้รับ
รับจำนวนเต็มจากไฟล์ .INI
edit1.text:=inttostr(GetPrivateProfileInt(
`intl',//ชื่อของชื่อเรื่องใน []
`iCountry´,//=ชื่อก่อนตัวเลข
0, //หากไม่พบจำนวนเต็ม ระบบจะส่งคืนค่าดีฟอลต์กลับคืนมา
'c:/forwin95/win.ini'//ชื่อไฟล์ที่ถูกเรียก
-
เขียนสตริงลงในไฟล์ .INI
เขียนสตริงโปรไฟล์ส่วนตัว(
`windows`,//ชื่อของชื่อเรื่องใน []
'load',//เขียนสตริงหน้าเครื่องหมาย "="
`accca'',//ข้อมูลที่จะเขียน
'c:/forwin95/win.ini'//ชื่อไฟล์ที่ถูกเรียก
-
เขียนจำนวนเต็มลงในไฟล์ .INI
เขียนPrivateProfileSection(
`windows`,//ชื่อของชื่อเรื่องใน []
'read=100',//ข้อมูลที่จะเขียน
'c:/forwin95/win.ini'//ชื่อไฟล์ที่ถูกเรียก
-
วิธีการข้างต้นคือการเรียกใช้ฟังก์ชัน API นี่เป็นอีกวิธีหนึ่งในการเรียกไฟล์ .INI โดยไม่ใช้ API
วิธีรับตัวละคร
varMyIni:TIniFile;
เริ่ม
MyIni:=TIniFile.Create('WIN.INI');//ชื่อไฟล์ที่ถูกเรียก
edit1.text:=MyIni.ReadString('Desktop','Wallpaper','´);//
รับตัวละคร
จบ;
วิธีเขียนอักขระลงในไฟล์ .INI
varMyIni:TIniFile;
เริ่ม
MyIni:=TIniFile.Create('WIN.INI');//ชื่อไฟล์ที่ถูกเรียก
DelphiIni.WriteString('เดสก์ท็อป', 'วอลเปเปอร์', 'c:/a.bmp');
จบ;
แน่นอนว่านี่เป็นเรื่องง่ายมากที่จะถอดรหัส คุณสามารถใช้ XOR เพื่อดำเนินการ XOR หรือกลับด้านก็ได้
ความคุ้มค่า... ขึ้นอยู่กับว่าคุณนำไปใช้อย่างไร กล่าวโดยสรุป บทความนี้เป็นเพียงจุดเริ่มต้นเท่านั้น