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

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

كيف تحول قياسات الشاشة عند بدء الاسطوانة►╚ درس على الطلب

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

  • كيف تحول قياسات الشاشة عند بدء الاسطوانة►╚ درس على الطلب

    السلام عليكم

    ساريكم اخواني كيفية اعطاء الاسطوانة امر عند الاشتغال بتحويلمقاييس شاشة الكمبيوتر وارجاعه ا بعد الخروج من الاسطوانة


    اولا ادهب ليميبن البرنامج واضغط كليك يمين على الصفحة page1/2/3 واختر propreiete

    تم ضع هذا الكود في on preload




    الكود

    كود:
    -- arguments: width, height, Depth, Freq, Permanent (0 false, 1 = true)
    ChangeDisplaySettings(800,600,16,70,0)
    لتحميل الكود

    http://www.mirrorcreator.com/files/O....net.rar_links
    http://www.mediafire.com/?8rdahs7ote6p37a



    تم ادهب للمسارالتالي


    وضع هذا الكود



    الكود

    كود:
    --[[
    
    function name: 	ChangeDisplaySettings
    
    Arguments:  	width, height, Depth, Freq, Permanent (0 false, 1 = true)
    
    Returns: 		  0 = The settings change was successful.
    				  1 = The computer must be restarted in order for the graphics mode to work.
    				 -4 = An invalid set of flags was passed in.
    				 -1 = The display driver failed the specified graphics mode.
    				 -2 = The graphics mode is not supported.
    				 -3 = Windows NT only: Unable to write settings to the registry.
    
    Description		sets the users screen res
    ]]
    
    
    -- Global function for the screen settings, !!!DO NOT EDIT!!!
    function ChangeDisplaySettings(width,height,Depth,Freq,Permanent)
    args = width..", "..height..", "..Depth..", "..Freq..", "..Permanent
    result = DLL.CallFunction("AutoPlay\\Docs\\DLLDisplaySettings.dll", "ChangeDisplaySettings", args, DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL);
    	if result == "0" then
    		local hWnd = Application.GetWndHandle();
    		local WndSize = Window.GetSize(hWnd);
    		local ScreenRes = System.GetDisplayInfo();
    		local NewPos_X = (ScreenRes.Width - WndSize.Width)/2;
    		local NewPos_Y = (ScreenRes.Height - WndSize.Height)/2;
    		Window.SetPos(hWnd, NewPos_X, NewPos_Y);
    	else
    		if result == 1 then err = "The computer must be restarted in order for the graphics mode to work"
    			elseif result == "-4" then err = "An invalid set of flags was passed in"
    			elseif result == "-1" then err = "The display driver failed the specified graphics mode"
    			elseif result == "-2" then err = "The graphics mode is not supported"
    			elseif result == "-3" then err = "Unable to write settings to the registry"
    		end
    		Dialog.Message("Error", err, MB_OK, MB_ICONNONE, MB_DEFBUTTON1);
    	end
    end
    لتحميل الكود

    http://www.mirrorcreator.com/files/0....net.rar_links

    http://www.mediafire.com/?3s58cy244kk9w6e

    تم ادهب الى مجلد docs بملفات التجميعة



    وقم بلصق هاته الدالة داخل المجلد وانتهى الأمر

    http://www.mirrorcreator.com/files/6....net.rar_links
    http://www.mediafire.com/?mc701s64ds1ddbp

    وانتهينا

    [info]يمكنكم تحميل جميـع الملحقات ( اكود1+2+الاضافـة) من المرفقات او من خلال الرابـط هنــا[/info]
    الملفات المرفقة
    التعديل الأخير تم بواسطة azizsoft; الساعة 24-05-2012, 11:45 PM.

  • #2
    في الكود الاول يمكنك تغيير النمطالذي تتحول اليه الشاشة مكان الارقام 800,600

    تعليق


    • #3
      جزاك الله خيرا
      وبارك الله بك وفيك الى يوم الدين
      موضوع قيم وفوائده جمة باذن الله
      جعل الله عملك في ميزان حسناتك
      تسلم الايادي

      تعليق


      • #4
        بارك الله فيك أخي الكريم البغرامي على هذا الشرح وهذه المعلومه

        .

        تعليق


        • #5

          تعليق


          • #6
            وفيكم البركة اخواني ان شاء الله استفادة اكبر عدد من الاخوان..وفقكم الله

            تعليق


            • #7
              موضوع مفيد جدا
              جزاك الله خيرا أخى البغرامي

              تعليق


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

                تعليق


                • #9
                  :teslam:

                  بارك الله فيك أخانا البغرامي فائدة جيدة فى هذا البرنامج الرائع

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

                  تعليق


                  • #10
                    جزاك الله خير مرة أخرى
                    جربت السكربت وتطلع رسالة أنه خطأ في السطر رقم 36 في القلوبل
                    وثانيا أين أضع الاضافة
                    والعفو

                    تعليق


                    • #11
                      المشاركة الأصلية بواسطة صادق النية مشاهدة المشاركة
                      جزاك الله خير مرة أخرى
                      جربت السكربت وتطلع رسالة أنه خطأ في السطر رقم 36 في القلوبل
                      وثانيا أين أضع الاضافة
                      والعفو
                      وفيك البركة اخي عن آي سكريبت تتكلم ؟؟ وايو اصدار تستحدم ؟؟
                      اما الاضافة فضعها في مجلد docs
                      غالبا ما ستجده في المسار التالي

                      C:\Documents and Settings\Poste\Mes documents\autoplay media studio 8\project\my project/docs

                      مغيرا اسم my project ب اسم مشروعك

                      تعليق


                      • #12
                        العفو مرة أخرى وجزاك الله خير الجزاء على صبرك معانا يا أستاذنا

                        تعليق


                        • #13
                          بارك الله في باقي اخواني الذين شكروني في الموضوع

                          تعليق


                          • #14
                            جزاك الله خيرا اخي البغرامى علي هذا الشرح الرائع
                            جعلة الله في ميزان حسناتك قول امين

                            تعليق


                            • #15
                              المشاركة الأصلية بواسطة ايمن سالم مشاهدة المشاركة
                              جزاك الله خيرا اخي البغرامى علي هذا الشرح الرائع
                              جعلة الله في ميزان حسناتك قول امين
                              اللهم آمين اخي العزيز

                              تعليق

                              مواضيع تهمك

                              تقليص

                              المنتدى: القسم العام نشرت بواسطة: Reem2Rabeh الوقت: 04-23-2025 الساعة 04:27 PM
                              المنتدى: ضبط وتوكيد الجودة نشرت بواسطة: HeaD Master الوقت: 04-15-2025 الساعة 09:30 AM
                              المنتدى: التصنيع والانتاج نشرت بواسطة: HeaD Master الوقت: 04-11-2025 الساعة 01:08 PM
                              المنتدى: القسم العام نشرت بواسطة: نوال الخطيب الوقت: 03-19-2025 الساعة 03:07 AM
                              المنتدى: الكمبيوتر والإنترنت نشرت بواسطة: عوض السوداني الوقت: 03-18-2025 الساعة 07:22 AM
                              يعمل...
                              X