31-03-20, 09:29 PM
(آخر تعديل لهذه المشاركة : 31-03-20, 10:13 PM {2} بواسطة عبد العزيز البسكري.)
السّلام عليكم و رحمة الله و بركاته
أعزّائي .. بعيدا عن تعقيدات التشغيل كمسؤول و متاهاته
من خلال الستيب فاكتوري
قد يكون للواحد خطوط خاصّة تمّ إعتمادها بالمشروع و يريد تضمينها ضمن ملفات التحزيم ثم نسخها بمجلّد خطوط الوينداوز بكل سلاسة
الطريقة مجرّبة على وينداوز 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
قناتنا على اليوتوب