تويت
استفسار [ عن كيفية تثبيت الخطوط المستخدمة داخل الاسطوانة علي ويندوز 7 ]
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
اخواني المحترفين عندي مشروع واستخدمت فيه اضافة List Box وقمت باختيار خط معين داخل الليست بوكس كما بالصورة
اريد تثبيت هذا الخط عند بداية تشغيل الاسطوانة
وكنت استخدمت هذا الكود من دروس الاستاذ كريم ولكنه يقوم بنسخ الخط وليس تثبيته فنظام ويندوز 7 لا يعتمد علي نسخ الخط فقط ولكن يجب تثبيته حتي يقرأه الويندوز
السلام عليكم ورحمة الله وبركاته
اخواني المحترفين عندي مشروع واستخدمت فيه اضافة List Box وقمت باختيار خط معين داخل الليست بوكس كما بالصورة
اريد تثبيت هذا الخط عند بداية تشغيل الاسطوانة
وكنت استخدمت هذا الكود من دروس الاستاذ كريم ولكنه يقوم بنسخ الخط وليس تثبيته فنظام ويندوز 7 لا يعتمد علي نسخ الخط فقط ولكن يجب تثبيته حتي يقرأه الويندوز
كود:
كود:
confirmation = Dialog.Message(" رسالة تأكيد ", "هل أنت متأكد من نسخ جميع الخطوط إلى جهازك؟", MB_YESNO, MB_ICONINFORMATION, MB_DEFBUTTON1);
if confirmation == 6 then
File.Copy("AutoPlay\\Docs\\Font\\*.*", _WindowsFolder .. "\\Fonts", false);
else
Application.ExitScript();
end
تعليق