محمد فرحات
01-02-2014, 06:26 PM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
اخواني المحترفين عندي مشروع واستخدمت فيه اضافة List Box وقمت باختيار خط معين داخل الليست بوكس كما بالصورة
http://im31.gulfup.com/sMc5x.png
اريد تثبيت هذا الخط عند بداية تشغيل الاسطوانة
http://im31.gulfup.com/kOPRs.png
وكنت استخدمت هذا الكود من دروس الاستاذ كريم ولكنه يقوم بنسخ الخط وليس تثبيته فنظام ويندوز 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
السلام عليكم ورحمة الله وبركاته
اخواني المحترفين عندي مشروع واستخدمت فيه اضافة List Box وقمت باختيار خط معين داخل الليست بوكس كما بالصورة
http://im31.gulfup.com/sMc5x.png
اريد تثبيت هذا الخط عند بداية تشغيل الاسطوانة
http://im31.gulfup.com/kOPRs.png
وكنت استخدمت هذا الكود من دروس الاستاذ كريم ولكنه يقوم بنسخ الخط وليس تثبيته فنظام ويندوز 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