علي قد حالي
14-04-2016, 02:33 AM
السلام عليكم ورحمة الله وبركاته :abc_091:
اشار الاخ ثامر ابو بلقيس الي الاضافة memory في مشاركته تلك http://www.abc4web.net/vb/showpost.php?p=264538&postcount=64
و اريد تفعيل هذه الاضافة ولكني لا اعرف كيف ولا من اين احصل عليها :abc_070:
عندما اضغط علي more plugins في برنامج الاوتوبلاي عندي يحيلني الي صفحة المنتدي نفسه :abc_070:
ممكن مساعدة :abc_023:
ياسرهتهت
14-04-2016, 05:53 AM
بسم الله الرحمن الرحيم
تفضل اخي الكريم
http://www.softfd.com/images/download-logo.png (http://up.top4top.net/downloadf-1044bvx1-rar.html)
موفق بإذن الله ... لك مني أجمل تحية .
علي قد حالي
14-04-2016, 07:14 AM
بسم الله الرحمن الرحيم
تفضل اخي الكريم
http://www.softfd.com/images/download-logo.png (http://up.top4top.net/downloadf-1044bvx1-rar.html)
موفق بإذن الله ... لك مني أجمل تحية .
حياك الله أخي الحبيب ياسر تم التحميل بارك الله فيك و جزاك الله خيرا :abc_138: :abc_138:
هل الإضافة MemoryEx التي وضعت انت رابطها تختلف عن الإضافة Memory التي اشار لها الحبيب ثامر في مشاركته ؟
لإني قمت بإضافتها ثم وضعت الاكواد تماما كما ذكر فظهر لي هذا الخطأ (الصورة بالمرفقات ) :abc_088:
وهذه مشاركة الأخ ثامر التي تحتوي علي الاكواد
http://www.abc4web.net/vb/showpost.php?p=264538&postcount=64
قبل مواصلة مجموعة أخرى ضخمة المتعلقة بمنصة الوينداوز
كنت بصدد إعداد تجميعية وأحتجت لمنع المستخدم من الخروج من حدود التجميعية فأحببت
أن أقرأ لك هذا الكود الجميل و توفيره هنااا لاستغلاله
1 - ماذا لو يكون مشروعنا يتميز بأنه flat و ننزع الاختيار movable
وفعل الاضافة Memory
2 - نزرع في globbal functions
function EnableWindow(nHWND, bEnable)
local nEnable=0
if bEnable then nEnable = 1 end
DLL.CallFunction("user32.dll", "EnableWindow", nHWND..","..nEnable, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
end
function MouseClipping()
_RECT = Memory.CreateStructure("long, long, long, long");
Memory.SetStructureData(_RECT, 1, 0, nLeft, "");--left
Memory.SetStructureData(_RECT, 2, 0, nTop, "");--top
Memory.SetStructureData(_RECT, 3, 0, nRight, "");--right
Memory.SetStructureData(_RECT, 4, 0, nBottom, "");--bottom
DLL.CallFunction(_SystemFolder.."\\User32.dll", "ClipCursor", _RECT, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
Memory.FreeStructure(_RECT);
end
function Screen_coordinates()
nLeft = 0;
nTop = 0;
nRight = System.GetDisplayInfo().Width;
nBottom = System.GetDisplayInfo().Height;
end
function Do_clipping()
Input.SetText ("Input_left", nLeft);
Input.SetText ("Input_top", nTop);
Input.SetText ("Input_right", nRight);
Input.SetText ("Input_bottom", nBottom);
Page.StartTimer(250);
Label.SetText ("Label4", "Press Alt+F4 to disable clipping.");
Ex_it = 1;
end
3 - في on show
nHWND = Application.GetWndHandle();
nLeft = Window.GetPos (nHWND).X;
nTop = Window.GetPos (nHWND).Y;
nRight = Window.GetSize (nHWND).Width+nLeft;
nBottom = Window.GetSize (nHWND).Height+nTop;
Do_clipping();
4 - في on timer
nActiveHWND = String.ToNumber(DLL.CallFunction(_SystemFolder.."\\User32.dll", "GetActiveWindow", "", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL))
if nActiveHWND == nHWND then
else
EnableWindow(nHWND, true);
end
MouseClipping();
--عاين مشروعك حينها تكتشف أنه كان من الأحسن وضع زر للمغادرة :abc_025:
السلام عليكم ورحمة الله تعالى و بركاته
ياسرهتهت
14-04-2016, 08:37 AM
بسم الله الرحمن الرحيم
اسف جدا اخي الكريم ليست نفسها
حمل
http://www.softfd.com/images/download-logo.png (http://up.top4top.net/downloadf-104mc0h1-rar.html)
لاتنسي تفعيل البلجن
http://e.top4top.net/p_104jln31.png
موفق بإذن الله ... لك مني أجمل تحية .
علي قد حالي
14-04-2016, 09:18 AM
بسم الله الرحمن الرحيم
اسف جدا اخي الكريم ليست نفسها
حمل
http://www.softfd.com/images/download-logo.png (http://up.top4top.net/downloadf-104mc0h1-rar.html)
لاتنسي تفعيل البلجن
http://e.top4top.net/p_104jln31.png
موفق بإذن الله ... لك مني أجمل تحية .
لا اسف ابدا أخي الحبيب :abc_138:
بل أنا من يشكرك مرتين فجزاك الله خيرا
أسأل الله أن يكتب لنا ولك السعادة و العفو و العافية في الدنيا و الآخرة :abc_152: