تويت
زرا لتثبيت الخط
بسم الله الرحمن الرحيم
مطلوب زر لتثبيت خط واحد او مجموعه خطوط دفعه واحده
مطلوب زر لتثبيت خط واحد او مجموعه خطوط دفعه واحده
-
-
بسم الله الرحمن الرحيم
اخي العزيز ضع مجلد اسمة (Font) في مجلد (Docs)
وضع فيه الخط او الخطوط المراد نسخها
ادرج زر يحتوي على الكود التالي
اجعل الاسطوانة تعمل كمسئول ( Administrator )كود PHP:Dialog.Message("تنبيه", "سيتم تثبيت الخطوط في جهازك تلقائيا . خلال لحظات", MB_OK, MB_ICONQUESTION, MB_DEFBUTTON2);
fontFolder = Shell.GetFolder(SHF_FONTS);
find_fonts = File.Find("AutoPlay\\Docs\\Font", "*.ttf", true, true, nil, nil);
if find_fonts then
for x,y in pairs (find_fonts) do
get_font_name = String.SplitPath(y);
File.Copy(y, fontFolder, true, true, false, true, nil);
System.RegisterFont(fontFolder.."\\"..get_font_name.Filename..get_font_name.Extension, get_font_name.Filename, true);
end
end
Dialog.Message("تنبيه", "تـــــم تـثـبـيـــت الـخــطــــوط", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON2);
موفق بإذن الله ... لك مني أجمل تحية . -
جزاك الله خيرا
تم تثبيت خط واحد فقط
الملف في المرفقا لو تكرمت وقمت بمراجعتهتعليق
-
موفق بإذن الله ... لك مني أجمل تحية .تعليق
-
--------------------------------المشاركة الأصلية بواسطة محمود مسعد العربي مشاهدة المشاركة
بسم الله الرحمن الرحيم
اخي العزيز لم اجد خطأ في الملف وعندي يعمل بشكل جيد ؟
عندي لك حل اخر
حمل هذة الملف من هذا الرابط
http://up.top4top.net/downloadf-210fohh1-rar.html
بعد تحميل الملف ستجد بعد فك الضغط ملف تنفيذي صغير بـــــ font.exe
(هو عبارة عن الخطوط التي ارفقتها انت في الملف السابق)
فقط ضع هذا الملف font.exe في مجلد Docs
ويمكنك ادراج هذا الكود في زر او في الحدث On Preload او ............الخ
وسيتم تثبيت الخطوط بشكل صامت ....... المهم ان تكون الاسطوانة administratorكود PHP:File.Run("AutoPlay\\Docs\\font.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, false);
موفق بإذن الله ... لك مني أجمل تحية .
تعليق
-
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
تعمل بنجاح
جزاك الله خيراتعليق
-
-
المشاركة الأصلية بواسطة محمد بن أحمد أبو حذيفة مشاهدة المشاركة------------------------------------
بسم الله الرحمن الرحيم
هذة هي الطريقة اخي محمد
http://sites.ienajah.com/vb2/showthread.php?t=30241
موفق بإذن الله ... لك مني أجمل تحية .تعليق
-
تعليق