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

تقليص
لا يوجد إعلان حتى الآن.

مساعدة بشأن نسخ الخطوط لمجلد الخطوط

تقليص
هذا الموضوع مغلق.
X
X
تقليص
 
  • الصفحة لـ 1
  • تصفية - فلترة
  • الوقت
  • عرض
إلغاء تحديد الكل
مشاركات جديدة
السابق template التالي
  • #1

    مساعدة بشأن نسخ الخطوط لمجلد الخطوط

    السلام عليكم ورحمة الله وبركاته
    لدي استفسار أتمنى من الإخوة في هذا المجال يفيدوني
    أريد صنع زر ينسخ مجموعة من الخطوط الموجودة في إحدى مجلدات الإسطوانة لمجلد الخطوط في نظام التشغيل عند المستخدم للإسطوانة
    جربت أكثر من كود وكلهم لم يحققوا نتيجة صحيحة
    جربت هذا الكود
    كود:
    confirmation = Dialog.Message(" رسالة تأكيد ", "هل أنت متأكد من نسخ جميع الخطوط إلى جهازك؟", MB_YESNO, MB_ICONINFORMATION, MB_DEFBUTTON1);
    if confirmation == 6 then
       File.Copy("AutoPlay\\Docs\\Font\\*.*", _WindowsFolder .. "\\Fonts", false);
   else
     Application.ExitScript();
   end
    وهذا أيضاً
    كود:
    path = Shell.GetFolder(SHF_FONTS);
sFile = File.Find("AutoPlay\\Docs\\Font", "*.*", false, false, nil, nil);
for j in sFile do 
StatusDlg.Show(MB_ICONNONE, false);
File.Copy(sFile{j}, path, true, true, false, true, nil);
StatusDlg.Hide();
end
    حتى الأكواد التي تنسخ ملف خط واحد فقط وليس مجموعة خطوط بمجلد لا تعمل أيضاً
    مع العلم أعمل على نظام تشغيل 8.1
    أنتظر مساعدة جهابذة هذا التخصص
    وجزاكم الله خيراً
    الكلمات الدلالية: الخطوط, بشأن, لأحلى, مساعدة, نسخ
  • #2
    المشاركة الأصلية بواسطة قسوره مشاهدة المشاركة
    السلام عليكم ورحمة الله وبركاته
    لدي استفسار أتمنى من الإخوة في هذا المجال يفيدوني
    أريد صنع زر ينسخ مجموعة من الخطوط الموجودة في إحدى مجلدات الإسطوانة لمجلد الخطوط في نظام التشغيل عند المستخدم للإسطوانة
    جربت أكثر من كود وكلهم لم يحققوا نتيجة صحيحة
    جربت هذا الكود
    كود:
    confirmation = Dialog.Message(" رسالة تأكيد ", "هل أنت متأكد من نسخ جميع الخطوط إلى جهازك؟", MB_YESNO, MB_ICONINFORMATION, MB_DEFBUTTON1);
    if confirmation == 6 then
       File.Copy("AutoPlay\\Docs\\Font\\*.*", _WindowsFolder .. "\\Fonts", false);
   else
     Application.ExitScript();
   end
    وهذا أيضاً
    كود:
    path = Shell.GetFolder(SHF_FONTS);
sFile = File.Find("AutoPlay\\Docs\\Font", "*.*", false, false, nil, nil);
for j in sFile do 
StatusDlg.Show(MB_ICONNONE, false);
File.Copy(sFile{j}, path, true, true, false, true, nil);
StatusDlg.Hide();
end
    حتى الأكواد التي تنسخ ملف خط واحد فقط وليس مجموعة خطوط بمجلد لا تعمل أيضاً
    مع العلم أعمل على نظام تشغيل 8.1
    أنتظر مساعدة جهابذة هذا التخصص
    وجزاكم الله خيراً
    السلام عليكم ورحمة الله وبركاته
    اولا لابد من جعل البرنامج يعمل كمسئول [gdwl]Run As Administrator[/gdwl]

    كما بالصور


    ثم



    ثم تضع هذا الكود فى زر او فى الحدث On Preload اذا اردت الخطوط تتثبت تلقائيا بدون تدخل المستخدم

    كود PHP:
    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); 
    وبعد ذلك تضع الخطوط فى مجلد باسم Font مع مراعاة اسماء الخطوط
    تكون باللغة الانجليزية او ارقام ممنوع استخدام الاسماء العربية
    وتضع هذا المجلد داخل مجلد Docs الواضح فى الصورة التالية



    وبعدها اعمل معاينة وسيتم تثبيت الخطوط تم تجربة الكود قبل ارساله ويعمل 100%
    على ويندوز 10 + ويندوز 8.1 + ويندوز 7
    الكود يثبت الخطوط الموجودة فى المجلد المذكور Font مهما كان عددها او اسمائها المهم باللغة الإنجليزية
    تقبل تحياتى
    التعديل الأخير تم بواسطة وليد شوكلاته; الساعة 07-02-2020, 10:18 AM.

    تعليق

    • #3
      المشاركة الأصلية بواسطة قسوره مشاهدة المشاركة
      السلام عليكم ورحمة الله وبركاته
      لدي استفسار أتمنى من الإخوة في هذا المجال يفيدوني
      أريد صنع زر ينسخ مجموعة من الخطوط الموجودة في إحدى مجلدات الإسطوانة لمجلد الخطوط في نظام التشغيل عند المستخدم للإسطوانة
      جربت أكثر من كود وكلهم لم يحققوا نتيجة صحيحة
      وجزاكم الله خيراً
      ممكن يفيدك الموضوع

      http://sites.ienajah.com/vb2/showthread.php?t=27619

      تعليق

      • #4
        أحسن الله إليك وبارك فيك ونفع بك أخي الكريم
        جزاك الله خيراً
        كنت أصنع كل شئ بالإنجليزية لكن المفترض وضع صلاحيات المستخدم كما تفضلت
        الكود يعمل بفضل الله ،ظننته لا يعمل لأني وجدت بعض الخطوط لم تُنسخ وبعضها نُسخ فظننت أن المشكلة بإسم ملف الخط لأنه يحوي أرقام أو رموز كالشرطة فحذفتها ولم ينجح الأمر ثم انتبهت أن الملفات هذه بصيغة otf وليس ttf المشار لها بالكود فاجتهدت لإضافة الإمتداد للكود لكن لم ينجح الأمر
        فهل ثمة طريقة أخي الكريم لجعل الإمتدادين في الكود ليتم نسخ الخطوط كلها ؟
        شاكر لك تعاونك الطيب

        تعليق

        • #5
          المشاركة الأصلية بواسطة عبد الهادي بهاب مشاهدة المشاركة
          ممكن يفيدك الموضوع

          http://sites.ienajah.com/vb2/showthread.php?t=27619
          جزاك الله خيراً أخي الكريم ونفع بك
          رغم أنني بحثت لكني لم أصل لهذا الموضوع سلمت يمينك
          واستفدت منه لإضافة كود رسالة النهاية بعد النسخ لكود الأخ وليد جزاه الله خيراً
          الله يبارك فيكم جميعاً وشاكر لكم تعاونكم الطيب واستجابتكم السريعة

          تعليق

          • #6
            المشاركة الأصلية بواسطة قسوره مشاهدة المشاركة
            لكن لم ينجح الأمر
            فهل ثمة طريقة أخي الكريم لجعل الإمتدادين في الكود ليتم نسخ الخطوط كلها ؟
            هل مازالت المشكل ؟

            تعليق

            • #7
              ممكن تكرر الكود مرتين مع تغغير النطاق
              او نضيف الاختيار الثاني
              مثلا

              كود PHP:

              fontFolder               = Shell.GetFolder(SHF_FONTS);
              exten = {"*.ttf","*.otf"};
              for               i,ext in pairs(exten)do
              find_fonts = File.Find("AutoPlay\\Docs\\Font", ext, 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
              end
              Dialog              .Message("ÊäÈíå", "ÊÜÜÜã ÊÜËÜÈÜíÜÜÊ ÇáÜÎÜØÜÜæØ ÈÜäÜÌÜÇÍ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON2); 
              جرب بالتوفيق

              تعليق

              • #8
                المشاركة الأصلية بواسطة عبد الهادي بهاب مشاهدة المشاركة
                ممكن تكرر الكود مرتين مع تغغير النطاق
                او نضيف الاختيار الثاني
                مثلا

                كود PHP:

                fontFolder                 = Shell.GetFolder(SHF_FONTS);
                exten = {"*.ttf","*.otf"};
                for                 i,ext in pairs(exten)do
                find_fonts = File.Find("AutoPlay\\Docs\\Font", ext, 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
                end
                Dialog                .Message("ÊäÈíå", "ÊÜÜÜã ÊÜËÜÈÜíÜÜÊ ÇáÜÎÜØÜÜæØ ÈÜäÜÌÜÇÍ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON2); 
                جرب بالتوفيق

                الله يرضى عنك ويسعدك بالدارين أخي الكريم
                تم بفضل الله نسخ الملفات التي تحمل الإمتدادين بهذا الكود
                لي استفسار أخر وجزاك الله خيراً
                الآن وضعت مقطع مرئي بامتداد "wmv" كمقطع ترحيبي قبل الولوج للإسطوانة
                ولكن هناك مشكلة المقطع حوالي 11 ثانية بعد انتهاء الثوان القليلة هذه يتم الولوج للإسطوانة تلقائياً مع أني مفعّل خيار الضغط لتخطي المقطع إلا أنه لا يثبت بل بمجرد إنتهاء ال11 ثانية يدخل فوراً للإسطوانة وهذا لا أريده لأن المقطع به تنبيه للإسطوانة لابد المستخدم يراه وينفذه قبل الولوج للإسطوانة
                جربت هذا الكود الذي به عداد انتظار ولكن دون فائدة مازال الولوج للإسطوانة تلقائيَا
                كود:
                Dialog.SplashVideo("AutoPlay\\Videos\\start.wmv", 139333, true);
                ولكي أحل تلك المشكلة إضطررت لزيادة وقت المقطع ل7 دقائق تقريباً وإعادة تصديره مع العلم أنه صورة ثابتة مع صوت بالخلفية لكن الحجم صار مبالغ فيه من نصف ميجا ل 34 ميجا تقريباً للملف الترحيبي هذا ولا يمكن ضغطه حتى لا يقل دقة الصورة التي هي بالفعل ضعيفة الدقة بسبب هذا الإمتداد
                فهل ثمة كود يجعل المقطع ال11 ثانية يثبت بعد إنتهاء مدته ويكون به خيار الضغط لتخطي المقطع بعد إنتهاءه وثبوته
                وأعتذر على الإطالة وجزاك الله خيراً

                تعليق

                • #9
                  المشاركة الأصلية بواسطة قسوره مشاهدة المشاركة

                  الله يرضى عنك ويسعدك بالدارين أخي الكريم
                  تم بفضل الله نسخ الملفات التي تحمل الإمتدادين بهذا الكود
                  لي استفسار أخر وجزاك الله خيراً
                  الآن وضعت مقطع مرئي بامتداد "wmv" كمقطع ترحيبي قبل الولوج للإسطوانة
                  ولكن هناك مشكلة المقطع حوالي 11 ثانية بعد انتهاء الثوان القليلة هذه يتم الولوج للإسطوانة تلقائياً مع أني مفعّل خيار الضغط لتخطي المقطع إلا أنه لا يثبت بل بمجرد إنتهاء ال11 ثانية يدخل فوراً للإسطوانة وهذا لا أريده لأن المقطع به تنبيه للإسطوانة لابد المستخدم يراه وينفذه قبل الولوج للإسطوانة
                  جربت هذا الكود الذي به عداد انتظار ولكن دون فائدة مازال الولوج للإسطوانة تلقائيَا
                  كود:
                  Dialog.SplashVideo("AutoPlay\\Videos\\start.wmv", 139333, true);
                  ولكي أحل تلك المشكلة إضطررت لزيادة وقت المقطع ل7 دقائق تقريباً وإعادة تصديره مع العلم أنه صورة ثابتة مع صوت بالخلفية لكن الحجم صار مبالغ فيه من نصف ميجا ل 34 ميجا تقريباً للملف الترحيبي هذا ولا يمكن ضغطه حتى لا يقل دقة الصورة التي هي بالفعل ضعيفة الدقة بسبب هذا الإمتداد
                  فهل ثمة كود يجعل المقطع ال11 ثانية يثبت بعد إنتهاء مدته ويكون به خيار الضغط لتخطي المقطع بعد إنتهاءه وثبوته
                  وأعتذر على الإطالة وجزاك الله خيراً
                  ممكن نستعمل الخيارات في الشريط الفوق
                  project
                  startup
                  ثم في النافذة نختار الفيديو الترجيبي
                  في الاسفل هناك خيار style
                  عدم تفعيل Allow clic to skip

                  يعني لن تبدا الاسطوانة حتى ينتهي الفيديو

                  جرب و الا سنلجا الى وضع فيديو في الشريحة الاولى و في اسفل نافذة الفيديو اضف زر الدخول الى الشريحة الثانية لكن اجعل الزر
                  لا يظهر حتى نهاية الفيديو

                  تعليق

                  • #10
                    المشاركة الأصلية بواسطة قسوره مشاهدة المشاركة

                    الله يرضى عنك ويسعدك بالدارين أخي الكريم وجزاك الله خيراً
                    جرب هذا الملف ممكن يفيدك

                    https://top4top.io/downloadf-1498fecvx1-rar.html

                    تعليق

                    • #11
                      المشاركة الأصلية بواسطة عبد الهادي بهاب مشاهدة المشاركة
                      ممكن نستعمل الخيارات في الشريط الفوق
                      project
                      startup
                      ثم في النافذة نختار الفيديو الترجيبي
                      في الاسفل هناك خيار style
                      عدم تفعيل allow clic to skip

                      يعني لن تبدا الاسطوانة حتى ينتهي الفيديو

                      جرب و الا سنلجا الى وضع فيديو في الشريحة الاولى و في اسفل نافذة الفيديو اضف زر الدخول الى الشريحة الثانية لكن اجعل الزر
                      لا يظهر حتى نهاية الفيديو
                      شاكر لك جداً تفاعلك هذا أخي الكريم جزاك الله عني خيراً
                      بالنسبة للخيار نعم كنت قد فعلته والنتيجة واحدة للأسف يتم الولوج للإسطوانة مباشرة بعد إنتهاء المقطع دون الحاجة للضغط للتخطي "للعلم للتو من كلامك أخي الكريم علمت أن هذا الخيار لا يجعل المقطع يثبت حتى بعد إنتهاءه بل دوره هو تخطي المقطع قبل نهايته وإلا فإذا انتهى المقطع فسيتم فتح التجميعة بدون الحاجة للضغط"
                      أنا أخي الغالي أريد المقطع بعد أن ينتهي يظل ثابت لا يدخل للإسطوانة إلا بالضغط عليه للتخطي
                      أما عن الزر تقصد أضعه في مونتاج المقطع في آخره؟
                      وإن كان كذلك فالمحصلة واحدة أيضاً ستنتهي ثواني المقطع ويلج للإسطوانة أيضاً
                      لكن إن كنت تقصد عبر البرنامج فأنا مازلت على أبواب هذا التخصص وليس عندي كثير معلومات عنه فياليتك أخي تشرح لي كيف أفعل هذه الطريقة الثانية بالبرنامج بارك الله فيك

                      تعليق

                      • #12
                        المشاركة الأصلية بواسطة قسوره مشاهدة المشاركة
                        شاكر لك جداً تفاعلك هذا أخي الكريم جزاك الله عني خيراً
                        بالنسبة للخيار نعم كنت قد فعلته والنتيجة واحدة للأسف يتم الولوج للإسطوانة مباشرة بعد إنتهاء المقطع دون الحاجة للضغط للتخطي "للعلم للتو من كلامك أخي الكريم علمت أن هذا الخيار لا يجعل المقطع يثبت حتى بعد إنتهاءه بل دوره هو تخطي المقطع قبل نهايته وإلا فإذا انتهى المقطع فسيتم فتح التجميعة بدون الحاجة للضغط"
                        أنا أخي الغالي أريد المقطع بعد أن ينتهي يظل ثابت لا يدخل للإسطوانة إلا بالضغط عليه للتخطي
                        أما عن الزر تقصد أضعه في مونتاج المقطع في آخره؟
                        وإن كان كذلك فالمحصلة واحدة أيضاً ستنتهي ثواني المقطع ويلج للإسطوانة أيضاً
                        لكن إن كنت تقصد عبر البرنامج فأنا مازلت على أبواب هذا التخصص وليس عندي كثير معلومات عنه فياليتك أخي تشرح لي كيف أفعل هذه الطريقة الثانية بالبرنامج بارك الله فيك
                        نعم لقد وضعت لك ملف مفتوح للطريقة الثانية جربها


                        https://top4top.io/downloadf-1498fecvx1-rar.html

                        تعليق

                        • #13
                          المشاركة الأصلية بواسطة عبد الهادي بهاب مشاهدة المشاركة
                          نعم لقد وضعت لك ملف مفتوح للطريقة الثانية جربها


                          https://top4top.io/downloadf-1498fecvx1-rar.html
                          رزقك الله الفردوس الأعلى
                          جزاك الله خيراً أخي الكريم
                          ما قصرت حفظك الله

                          تعليق

                          السابق template التالي

                          مواضيع تهمك

                          تقليص
                          Empty RSS Feed.
                          يعمل...
                          X