
هناك عدة طرق لنسخ الخطوط أو اضافتها اليك هذه الطريقة
نقوم بضغط الخطوط بامتداد zip و لنسميها fonts اختر اي اسم
علي ان لا تكون الخطوط داخل مجلد
تابع الشرح

نفتح مشروع جديد


لاتنسي اعطاء صلاحية المدير لأسطوانتك

الكود المستعمل
Code:
path = Shell.GetFolder(SHF_FONTS); StatusDlg.Show(MB_ICONNONE, false); Zip.Extract("AutoPlay\\Docs\\fonts.zip", {"*.*"}, path, true, true, "", ZIP_OVERWRITE_NEVER, nil); StatusDlg.Hide();