X

نسخ الخطوط دفعة واحدة الي مجلد Fonts للونداوز

AutoPlay Media Studio and Generate All In One Tutorials

 
  • Filter
  • Time
  • Show
Clear All
new posts
  • espritmarin
    Thread Author
    Free Membership
    • Oct 2020 
    • 379 
    • 280 
    • 179 





    هناك عدة طرق لنسخ الخطوط أو اضافتها اليك هذه الطريقة

    نقوم بضغط الخطوط بامتداد zip و لنسميها fonts اختر اي اسم
    علي ان لا تكون الخطوط داخل مجلد

    تابع الشرح



    نفتح مشروع جديد








    لاتنسي اعطاء صلاحية المدير لأسطوانتك



    الكود المستعمل

    Code:
    path = Shell.GetFolder(SHF_FONTS);
    StatusDlg.Show(MB_ICONNONE, false);
    Zip.Extract("AutoPlay\\Docs\\fonts.zip", {"*.*"}, path, true, true, "", ZIP_OVERWRITE_NEVER, nil);
    StatusDlg.Hide();
    Last edited by espritmarin; 21.12.2020, 07:45 PM. Reason: تعديل الكود
  • old_school
    Free Membership
    • Nov 2018 
    • 52 
    • 46 

    #2
    dude
    as well as copying / extracting to the destination folder, the fonts must be registered
    Comment

    • espritmarin
      espritmarin commented
      Editing a comment
      نبهتني الي امر مهم سأجد حلا ان شاء الله
  • espritmarin
    Thread Author
    Free Membership
    • Oct 2020 
    • 379 
    • 280 
    • 179 

    #3
    سأضع الحل غدا ان شاء الله
    Comment
    • espritmarin
      Thread Author
      Free Membership
      • Oct 2020 
      • 379 
      • 280 
      • 179 

      #4
      Originally posted by old_school View Post
      dude
      as well as copying / extracting to the destination folder, the fonts must be registered
      تم الوصول الي حل

      Code:
      path = Shell.GetFolder(SHF_FONTS);
      zip_contents = Zip.GetContents("AutoPlay\\Docs\\Fonts.zip", true);
      zip_contents_display = Table.Concat(zip_contents, "\r\n", 1, TABLE_ALL);
      
      
      StatusDlg.Show();
      -- Extract the contents of the Zip file.
      Zip.Extract("AutoPlay\\Docs\\Fonts.zip", {"*.*"}, path, true, true, "", ZIP_OVERWRITE_ALWAYS, nil);
      
      
      -- Hide the status dialog.
      StatusDlg.Hide();
      
      
      
      
      for j in pairs (zip_contents)do
      path_parts = String.SplitPath(zip_contents[j])
      
      
      System.RegisterFont(path.."\"..path_parts.Filename..path_parts.Extension,path_p arts.Filename, true);
      
      end
      Comment
      • espritmarin
        Thread Author
        Free Membership
        • Oct 2020 
        • 379 
        • 280 
        • 179 

        #5
        و هذا فيديو اثباث

        Comment
        • old_school
          Free Membership
          • Nov 2018 
          • 52 
          • 46 

          #6
          ok now your code is complete.......




          here a simple fonts tool






          Code:
          https://mega.nz/file/dFxHHCxR#VUjD13uQO4CMZt4KmrcaHQhjwGziM8hRqcCeoEl_cwU
          Comment

          • espritmarin
            espritmarin commented
            Editing a comment
            عمل مميز و احترافي هل تستطيع تصدير الاسطوانة APZ
            هل تعاملت مع الخطوط مضغوطة لكي يكون الحجم صغير
            فكرة مميزة ان تضغ الخطوط في ليست بوكس ما شاء الله عليك اخي
            انت بارع
            ياريت ترفع لنا الاسطوانة بصيغة APZ
        • old_school
          Free Membership
          • Nov 2018 
          • 52 
          • 46 

          #7
          some time ago I uploaded examples in apz format in this forum
          but now it has become paid and I only upload files in exe form .....
          sorry.........
          Comment

          • espritmarin
            espritmarin commented
            Editing a comment
            ليس بمشكل أخي كنت بالفعل تحمل امثلة فيما سبق
            أردت فقط ان اري سكريبت يمكنني عمل مثل اسطوانتك
            اردت فقط تبادل الخبرة معك فأنا اعشق الاتوبلاي من ناحية التعامل مع ملفات
            شكرا اخي
        • espritmarin
          Thread Author
          Free Membership
          • Oct 2020 
          • 379 
          • 280 
          • 179 

          #8
          غدا ان شاء الله
          Comment
          • espritmarin
            Thread Author
            Free Membership
            • Oct 2020 
            • 379 
            • 280 
            • 179 

            #9
            Originally posted by old_school View Post
            ok now your code is complete.......




            here a simple fonts tool






            Code:
            https://mega.nz/file/dFxHHCxR#VUjD13uQO4CMZt4KmrcaHQhjwGziM8hRqcCeoEl_cwU
            عاينت اسطوانتك انها احترافية
            ماهي طريقتك لحمايتها الحماية قوية
            Comment
            • abuahd
              Free Membership
              • Mar 2019 
              • 135 
              • 40 

              #10
              شكرا جزيلا
              Comment
              Working...
              X