زرا لتثبيت الخط

[محمود مسعد العربي]

بسم الله الرحمن الرحيم
مطلوب زر لتثبيت خط واحد او مجموعه خطوط دفعه واحده

[ياسرهتهت]

بسم الله الرحمن الرحيم

اخي العزيز ضع مجلد اسمة (Font) في مجلد (Docs)
وضع فيه الخط او الخطوط المراد نسخها

ادرج زر يحتوي على الكود التالي

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);

اجعل الاسطوانة تعمل كمسئول ( Administrator )


موفق بإذن الله ... لك مني أجمل تحية .

[محمود مسعد العربي]

جزاك الله خيرا

تم تثبيت خط واحد فقط
الملف في المرفقا لو تكرمت وقمت بمراجعته

[محمد سامر]

موفق بإذن الله ... لك مني أجمل تحية .

[ياسرهتهت]

جزاك الله خيرا

تم تثبيت خط واحد فقط
الملف في المرفقا لو تكرمت وقمت بمراجعته
--------------------------------
بسم الله الرحمن الرحيم
اخي العزيز لم اجد خطأ في الملف وعندي يعمل بشكل جيد ؟

عندي لك حل اخر
حمل هذة الملف من هذا الرابط
http://up.top4top.net/downloadf-210fohh1-rar.html

بعد تحميل الملف ستجد بعد فك الضغط ملف تنفيذي صغير بـــــ font.exe
(هو عبارة عن الخطوط التي ارفقتها انت في الملف السابق)

فقط ضع هذا الملف font.exe في مجلد Docs

ويمكنك ادراج هذا الكود في زر او في الحدث On Preload او ............الخ

File.Run("AutoPlay\\Docs\\font.exe", "", "AutoPlay\\Docs", SW_SHOWNORMAL, false);

وسيتم تثبيت الخطوط بشكل صامت ....... المهم ان تكون الاسطوانة administrator

موفق بإذن الله ... لك مني أجمل تحية .

[محمود مسعد العربي]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
تعمل بنجاح
جزاك الله خيرا

[محمد بن أحمد أبو حذيفة]

--------------------------------
بسم الله الرحمن الرحيم
اخي العزيز لم اجد خطأ في الملف وعندي يعمل بشكل جيد ؟

عندي لك حل اخر
حمل هذة الملف من هذا الرابط
http://up.top4top.net/downloadf-210fohh1-rar.html

بعد تحميل الملف ستجد بعد فك الضغط ملف تنفيذي صغير بـــــ font.exe
(هو عبارة عن الخطوط التي ارفقتها انت في الملف السابق)

فقط ضع هذا الملف font.exe في مجلد docs

ويمكنك ادراج هذا الكود في زر او في الحدث on preload او ............الخ

file.run("autoplay\\docs\\font.exe", "", "autoplay\\docs", sw_shownormal, false);

وسيتم تثبيت الخطوط بشكل صامت ....... المهم ان تكون الاسطوانة administrator

موفق بإذن الله ... لك مني أجمل تحية .



بارك الله فيك
كيف تم همل الخطوط بهذا الشكل

[ياسرهتهت]

بارك الله فيك
كيف تم همل الخطوط بهذا الشكل

------------------------------------
بسم الله الرحمن الرحيم
هذة هي الطريقة اخي محمد

http://www.abc4web.net/vb/showthread.php?t=30241

موفق بإذن الله ... لك مني أجمل تحية .

[محمد بن أحمد أبو حذيفة]

------------------------------------
بسم الله الرحمن الرحيم
هذة هي الطريقة اخي محمد

http://www.abc4web.net/vb/showthread.php?t=30241

موفق بإذن الله ... لك مني أجمل تحية .

موفق بإذن الله ... لك مني أجمل تحية .