إضافة و نسخ الخطوط الخاصّة لمجلّد خطوط الوينداوز

كود :

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