الحصول على سلسلة من ملف .INI
فار
strResult:pchar;
يبدأ
GetPrivateProfileString(
´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
قسم ملف التعريف الخاص (
´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(´Desktop´,´Wallpaper´,´c:/a.bmp´);
نهاية؛