تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
إضافة و نسخ الخطوط الخاصّة لمجلّد خطوط الوينداوز
#1
السّلام عليكم و رحمة الله و بركاته
أعزّائي .. بعيدا عن تعقيدات التشغيل كمسؤول و متاهاته
من خلال الستيب فاكتوري
قد يكون للواحد خطوط خاصّة تمّ إعتمادها بالمشروع و يريد تضمينها ضمن ملفات التحزيم ثم نسخها بمجلّد خطوط الوينداوز بكل سلاسة
الطريقة مجرّبة على وينداوز 8 - 7 - Xp

ملاحظة : الرسالة ( تمّت بنجاح ... إلخ ) .. تمّ وضعها فقط للتأكّد .. يمكن توقيفها
ملف السكريبت
كود :
local os = System.GetOSVersionInfo();
local user = System.GetUserInfo();
if (user.IsAdmin) then
if ((String.ToNumber(os.MajorVersion) >= 6 and not user.IsVistaAdminLimitedToken) or String.ToNumber(os.MajorVersion) <= 5) then
local FontsFolder = Shell.GetFolder(SHF_FONTS);

File.Copy(_TempLaunchFolder .. "\\Digiface.TTF", FontsFolder, false, false, false, true);
File.Copy(_TempLaunchFolder .. "\\AL-Dorrh.ttf", FontsFolder, false, false, false, true);
File.Copy(_TempLaunchFolder .. "\\ArabicUITextSemiBold.otf", FontsFolder, false, false, false, true);

local error = Application.GetLastError();
if (error ~= 0) then
Dialog.Message("خطأ", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION);
else

System.RegisterFont(FontsFolder .. "\\Digiface.TTF", "Digiface", true);
System.RegisterFont(FontsFolder .. "\\AL-Dorrh.ttf", "AL-Dorrh", true);
System.RegisterFont(FontsFolder .. "\\ArabicUITextSemiBold.otf", "ArabicUITextSemiBold", true);

error = Application.GetLastError();
if (error ~= 0) then
Dialog.Message("خطأ", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION);
else
Dialog.Message("تنبيه", "! تمّت بنجاح عمليّة تثبيت الخط بمجلّد النّظام", MB_OK, MB_ICONINFORMATION);
end
end
else
Dialog.Message("خطأ", "يجب تشغيل البرنامج كمسؤول \ r \ n أو قم بتغيير إعدادات النظام العام", MB_OK, MB_ICONSTOP);
end
else
Dialog.Message("خطأ", "لا يمكن تثبيت الخطوط الخاصّة إلاّ بتشغيل المنظومة كمسؤول", MB_OK, MB_ICONSTOP);
end
قناتنا على اليوتوب
الرد }}}
#2
جزاك الله كل الخير و بارك فيك
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري
#3
عبدالعزيز البسكري
ماشاء الله تركتك وكنت تسأل عن ابسط الامور وعدت لاجدك تقدم الدروس
موفق ان شاء الله
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مقال] إضافة تقارير Crystal report إلى فيجوال 2010 اسامه الهرماوي 3 5,304 05-10-21, 01:38 PM
آخر رد: mohameddahab867
  [مقال] إضافة خاصية التحجيم التلقائي - AutoSize - إلى أداة مربع النص - TextBox sooriaty03 10 12,034 21-03-21, 09:53 PM
آخر رد: عبد الهادي بهاب
  طريقة إضافة اختصار للصنف في شاشة المبيعات ملهمـ 5 5,905 14-07-20, 12:24 PM
آخر رد: ابراهيم ايبو
  إضافة نغمات إفتتاحيّة أثناء تسطيب البرنامج عبد العزيز البسكري 11 7,249 23-01-19, 08:35 PM
آخر رد: عبد العزيز البسكري
  الإصدار الاول من إضافة الرسائل ( Msge ) والصور مجانآ ali.alfoly 12 6,098 25-05-13, 01:10 PM
آخر رد: shaker.soft
  تعلم إضافة ألعاب الفلاش و مقاطع الفيديو الفلاشية إلى برنامجك Aly El-Haddad 1 2,916 13-04-13, 06:46 PM
آخر رد: Sajad
  معلومة : خطوط BarCode RaggiTech 0 2,858 06-10-12, 10:59 PM
آخر رد: RaggiTech
  عمل ملف Setup لتنصيب برنامجك + إضافة برامج أساسية ظمن عملية التنصيب(شرح بالصور) RaggiTech 0 6,917 05-10-12, 02:25 AM
آخر رد: RaggiTech
  درس -- تعلم إضافة الضبابية للصور - بواسطة فلتر ال Blur - مع مثال توضيحي RaggiTech 0 2,455 03-10-12, 02:03 PM
آخر رد: RaggiTech
  تعقب إضافة وإزالة الأقراص المرتبطة عبر منفذ Usb RaggiTech 2 2,637 03-10-12, 09:25 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم