إعـــــــلان

**عبود عبود عبود عبود** · 11-09-2013, 10:42 AM

أضف تصنيف ما يتم البحث عنة بمعنى إمتداد الشيئ المبحوث عنة لآنك تتعامل مع ملفات files

فلا يصح أن تبحث عن كل ما هو موجود فى فولدر English بدون ما تذكر إمتدادة .

و أضف شرط لتنفيذ التكرار فى حالة العثور على الملفات المطلوبة .

فكر قليلا كيف يتم ذلك أو ضع ملف مفتوح للتعديل علية

**Haitham.2012 Haitham.2012** · 11-09-2013, 11:29 AM

بعد السطر الخاص بالنسخ .. ضع هذا الكود ( في نفس دالة التكرار الخاصه بعملية النسخ )

كود:

split = String.SplitPath(y);

System.RegisterFont(Shell.GetFolder(SHF_FONTS), split.Filename..split.Extension, true);

**القنـاص المصرى القنـاص المصرى** · 11-09-2013, 01:14 PM

المشاركة الأصلية بواسطة عبود عبود مشاهدة المشاركة

أضف تصنيف ما يتم البحث عنة بمعنى إمتداد الشيئ المبحوث عنة لآنك تتعامل مع ملفات files

فلا يصح أن تبحث عن كل ما هو موجود فى فولدر English بدون ما تذكر إمتدادة .

و أضف شرط لتنفيذ التكرار فى حالة العثور على الملفات المطلوبة .

فكر قليلا كيف يتم ذلك أو ضع ملف مفتوح للتعديل علية

صحيح لابد اغير نمط البحث ليبحث عن ttf فقط

**القنـاص المصرى القنـاص المصرى** · 11-09-2013, 01:44 PM

المشاركة الأصلية بواسطة Haitham.2012 مشاهدة المشاركة

بعد السطر الخاص بالنسخ .. ضع هذا الكود ( في نفس دالة التكرار الخاصه بعملية النسخ )

كود:

split = String.SplitPath(y);

System.RegisterFont(Shell.GetFolder(SHF_FONTS), split.Filename..split.Extension, true);

تم يا اخ هيثم التعديل حسب ماقلتلى وما اشتغلت للاسف
والملف المفتوح بالمرفقات

وياريت توضحلى انا عاوز افهم حضرتك عملت ايه لانه مش عاوز اطبق وخلاص
دلوقتى احنا عندنا جدول فيه اسماء حضرتك فصلته باستخدام الامر spilt
طيب ليه فصلنا ليه منعملوش زى محضرتك استدعيته مرة واحدة فى مثال نسخ الملفات ؟

الملفات المرفقة

fonts.rar (3.38 ميجابايت, 43 مشاهدات)

**القنـاص المصرى القنـاص المصرى** · 11-09-2013, 06:12 PM

تم حل المشكلة جزاكم الله خيرا

**Haitham.2012 Haitham.2012** · 11-09-2013, 07:03 PM

ال split علشان نتطلع اسم الملف وامتداده ايا كان ... وكمان لأني خليت امر تسجيل الخط يكون من المكان الاصلي لملف الخط وهو مجلد ال Fonts و ليس مجلد اسطوانتك

بس ياريت تقول ازاي حليت المشكله علشان غيرك يستفيد

بالتوفيق

**القنـاص المصرى القنـاص المصرى** · 11-09-2013, 07:32 PM

جزاك الله كل خير الخطأ كان بسب انى عند اضافة المسار فى اول كود
لم ادرج // بل اضفت / واحدة فأدت الى تعطيل الكود
-------------------------------------------------------------
هناك مشكلة فليس هناك اخطأ الا عند تنصيب الخطوط فعند التنصيب يخبرنى بأنها انتهت ولكن عندما اتحقق من مجلد الخطوط لا اجد انه تم تنصيبهم
الكود المستخدم فى الزر

كود:

fonts = File.Find("AutoPlay\\Docs\\Fonts\\English", "*.ttf", false, false, nil, nil);
for i,y in pairs (fonts) do
	split = String.SplitPath(y);
	System.RegisterFont(Shell.GetFolder(SHF_FONTS), split.Filename..split.Extension, true);
	Label.SetText("current_num", i);

	end

**عبود عبود عبود عبود** · 11-09-2013, 07:38 PM

كيف يا أخى ؟ هل تعتقد أن الكود سوف ينفذ شيئ لم يطلب منة أصلا ؟

كيف سيقوم بالنسخ و أمر النسخ لم يوضع ؟

**القنـاص المصرى القنـاص المصرى** · 11-09-2013, 09:09 PM

المشاركة الأصلية بواسطة عبود عبود مشاهدة المشاركة

كيف يا أخى ؟ هل تعتقد أن الكود سوف ينفذ شيئ لم يطلب منة أصلا ؟

كيف سيقوم بالنسخ و أمر النسخ لم يوضع ؟

يا اخ عبود انا اريد تنصيب الخطوط على الجهاز دفعة واحدة فكيف سيتم هذا الامر

**القنـاص المصرى القنـاص المصرى** · 11-09-2013, 09:10 PM

من المفترض لكى تحدث عملية التنصيب ان يتم تنصيب الخط عبر هذا الامر
System.RegisterFont
ام انك تريد ان تنوه انه لن يمكن تنصيب الخطوط الا بعد نسخها الى النظام ؟

**azizsoft azizsoft** · 12-09-2013, 01:17 AM

المشاركة الأصلية بواسطة القنـاص المصرى مشاهدة المشاركة

من المفترض لكى تحدث عملية التنصيب ان يتم تنصيب الخط عبر هذا الامر
System.RegisterFont

السلام عليكم ورحمة الله وبركاته

يجب تحديد مسار مجلد خطوط الوندوز وتخزينه في متغير كما يلي :

كود:

FontsFolder = Shell.GetFolder(SHF_FONTS);

عملية تنصيب الخط تتم بالأمر التالي :

كود:

File.Copy("AutoPlay\\Docs\\اسم الخط.ttf", FontsFolder, false, false, false, true);

ملاحظة :

من المعلوم أن عملية تنصيب خطوط من التجميعة تختلف من نظام الى أخر فمثلا تنصيب خط بنظام اكس بي
أمر سهل لكن يختلف الأمر مع انظمة تشغيل فيستا فما فوق 7 و 8
أعتقد أنه اذا تم ادراج الاكواد السابقة بالطريقة الصحيحة لن ييتم نسخ الخطوط بما أن وندوز 7 يتطلب امتياز التشغيل
كمسؤول حتى ان قمت بتفغيل Require Administrator من الاعدادات المتقدمة للمشروع.

عموما أرفقت لك ملف مفتوح والكود مدرج بالزر لتنصيب خط اسمه abuhijlah bold للاستفادة وننتظر اخواننا
ان كانت هناك حلول اخرى .

وفقكم الله

الملفات المرفقة

اضافة خط لمجلد وندوز 7.rar (69.8 كيلوبايت, 33 مشاهدات)

**القنـاص المصرى القنـاص المصرى** · 12-09-2013, 01:26 AM

جزاك الله خيرا اخ عزيز
طيب واذا كنت ارغب بتنصيب عدة خطوط معا مثل 200 خط فليس من المعقول ان استخدم الكود 200 مرة
ياريت اذا كان بأمكانك التعديل على الكود لتنصيب اكثر من خط فى مسار معين اكون ممنون ليك وجزاك الله كل خير على مشاركتك الطيبة

**القنـاص المصرى القنـاص المصرى** · 12-09-2013, 06:43 AM

المشاركة الأصلية بواسطة azizsoft مشاهدة المشاركة

السلام عليكم ورحمة الله وبركاته

يجب تحديد مسار مجلد خطوط الوندوز وتخزينه في متغير كما يلي :

كود:

FontsFolder = Shell.GetFolder(SHF_FONTS);

عملية تنصيب الخط تتم بالأمر التالي :

كود:

File.Copy("AutoPlay\\Docs\\اسم الخط.ttf", FontsFolder, false, false, false, true);

ملاحظة :

من المعلوم أن عملية تنصيب خطوط من التجميعة تختلف من نظام الى أخر فمثلا تنصيب خط بنظام اكس بي
أمر سهل لكن يختلف الأمر مع انظمة تشغيل فيستا فما فوق 7 و 8
أعتقد أنه اذا تم ادراج الاكواد السابقة بالطريقة الصحيحة لن ييتم نسخ الخطوط بما أن وندوز 7 يتطلب امتياز التشغيل
كمسؤول حتى ان قمت بتفغيل Require Administrator من الاعدادات المتقدمة للمشروع.

عموما أرفقت لك ملف مفتوح والكود مدرج بالزر لتنصيب خط اسمه abuhijlah bold للاستفادة وننتظر اخواننا
ان كانت هناك حلول اخرى .

وفقكم الله

من المعلوم أن عملية تنصيب خطوط من التجميعة تختلف من نظام الى أخر فمثلا تنصيب خط بنظام اكس بي
أمر سهل لكن يختلف الأمر مع انظمة تشغيل فيستا فما فوق 7 و 8

يا استاذ عزيز كلامك صحيح اذا قمنا بتطبيقه على تنصيب مجموعة من الخطوط مرة واحدة بمعنى انى اضعله امر يسحب خطوط من مجلد
ويثبتها بالنظام تلقائيا
وكلام حضرتك خاطئ (مع احترامى لك) اذا اعتمدنا على نظام التثبيت الفردى اللى هو عبر الكود الاتى

كود:

font = "AutoPlay\\Docs\\FS_DIWANY.TTF"
System.RegisterFont(font, "FS Diwany", true);
Dialog.Message("Notice", "Done", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

وهذه هى المشكلة لان الطريقة واحدة فى التثبيت ولكن النظام لايقبله

**azizsoft azizsoft** · 12-09-2013, 06:14 PM

المشاركة الأصلية بواسطة القنـاص المصرى مشاهدة المشاركة

يا استاذ عزيز كلامك صحيح اذا قمنا بتطبيقه على تنصيب مجموعة من الخطوط مرة واحدة بمعنى انى اضعله امر يسحب خطوط من مجلد
ويثبتها بالنظام تلقائيا
وكلام حضرتك خاطئ (مع احترامى لك) اذا اعتمدنا على نظام التثبيت الفردى اللى هو عبر الكود الاتى

كود:

font = "AutoPlay\\Docs\\FS_DIWANY.TTF"
System.RegisterFont(font, "FS Diwany", true);
Dialog.Message("Notice", "Done", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

وهذه هى المشكلة لان الطريقة واحدة فى التثبيت ولكن النظام لايقبله

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

مرحبا

بداية يا طيب الكود المشار اليه اعلاه الذي ادرجته ينقصه أمر النسخ

ثانيا أنت لم تفهم ما أقصد ؟

الكود الذي تبحث عنه الخاص بنسخ جملة من الخطوط الى مجلد الفونت بنظام التشغيل هو الاتي :

[HTML]
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_nam e.Filename..get_font_name.Extension, get_font_name.Filename, true);

end

end

Dialog.Message("تنبيه", "تـــــم تـثـبـيـــت الـخــطــــوط", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON2);

[/HTML]

ادرج هذا الكود بزر واضف جملة من الخطوط بمجلد Font بالمشروع وقم بالتجربة ثم تأكد من العملية
شخصيا قمت في السابق بتجربة هذا الأمر ولم تتم عملية النسخ الا بعد أن غيرت اعدادات اليوزر اكونت لنظام التشغيل 7
كما هو مبين بالصور وتم النسخ بعد ذلك .

وهذا ما أقصده سابقا .

بالتوفيق

إعـــــــلان

تنصيب دفعة من الخطوط مرة واحدة

تنصيب دفعة من الخطوط مرة واحدة

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك