X

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

AutoPlay Media Studio & Generate AIO Tutorials

Collapse
 
  • Page of 1
  • Filter
  • Time
  • Show
Clear All
new posts
  • espritmarin
    espritmarin
    Thread Author
    Free Membership
    • Oct 2020 
    • 306 
    • 290 
    • 183 
    #1




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

    نقوم بضغط الخطوط بامتداد 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();
    Register to view the link
    Last edited by espritmarin; December 21, 2020, 19:45. Reason: تعديل الكود
    Tags: fonts, الي, دفعة, للونداوز, نسخ, واحدة
    • 1 like
  • old_school
    old_school
    Free Membership
    • Nov 2018 
    • 52 
    • 46 
    • 5 
    #2
    dude
    as well as copying / extracting to the destination folder, the fonts must be registered
    • 1 like
    Comment
    • espritmarin
      #2.1
      espritmarin commented
      December 24, 2020, 22:29
      Editing a comment
      نبهتني الي امر مهم سأجد حلا ان شاء الله
  • espritmarin
    espritmarin
    Thread Author
    Free Membership
    • Oct 2020 
    • 306 
    • 290 
    • 183 
    #3
    سأضع الحل غدا ان شاء الله
    Comment
    • espritmarin
      espritmarin
      Thread Author
      Free Membership
      • Oct 2020 
      • 306 
      • 290 
      • 183 
      #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
      • 1 like
      Comment
      • espritmarin
        espritmarin
        Thread Author
        Free Membership
        • Oct 2020 
        • 306 
        • 290 
        • 183 
        #5
        و هذا فيديو اثباث

        Comment
        • old_school
          old_school
          Free Membership
          • Nov 2018 
          • 52 
          • 46 
          • 5 
          #6
          ok now your code is complete.......




          here a simple fonts tool






          Code:
          https://mega.nz/file/dFxHHCxR#VUjD13uQO4CMZt4KmrcaHQhjwGziM8hRqcCeoEl_cwU
          • 1 like
          Comment
          • espritmarin
            #6.1
            espritmarin commented
            December 27, 2020, 21:00
            Editing a comment
            عمل مميز و احترافي هل تستطيع تصدير الاسطوانة APZ
            هل تعاملت مع الخطوط مضغوطة لكي يكون الحجم صغير
            فكرة مميزة ان تضغ الخطوط في ليست بوكس ما شاء الله عليك اخي
            انت بارع
            ياريت ترفع لنا الاسطوانة بصيغة APZ
        • old_school
          old_school
          Free Membership
          • Nov 2018 
          • 52 
          • 46 
          • 5 
          #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
            #7.1
            espritmarin commented
            December 27, 2020, 21:09
            Editing a comment
            ليس بمشكل أخي كنت بالفعل تحمل امثلة فيما سبق
            أردت فقط ان اري سكريبت يمكنني عمل مثل اسطوانتك
            اردت فقط تبادل الخبرة معك فأنا اعشق الاتوبلاي من ناحية التعامل مع ملفات
            شكرا اخي
        • espritmarin
          espritmarin
          Thread Author
          Free Membership
          • Oct 2020 
          • 306 
          • 290 
          • 183 
          #8
          غدا ان شاء الله
          Comment
          • espritmarin
            espritmarin
            Thread Author
            Free Membership
            • Oct 2020 
            • 306 
            • 290 
            • 183 
            #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
              abuahd
              Free Membership
              • Mar 2019 
              • 108 
              • 41 
              • 0 
              #10
              شكرا جزيلا
              • 1 like
              Comment
              Previous template Next
              نسخ الخطوط دفعة واحدة الي مجلد Fonts للونداوز
              Collapse
              Trending
              Collapse
              Working...
              X