الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

?What is HOOK ?How can I hook the mouse

مغلق
بدأه رمضان في 3 نوفمبر 2001 · 4 رد · 962 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

أخى من قال لك أن الكود يظهر بشكل ردئ جدا فى هذا المنتدى

يبدو أنك لم تشاهد مثال به كود فى المنتدى :(

أو أنك لا تعرف كيف تكتب الكود فى المنتدى ولكن كان يجب عليك أن تسأل عن كيفية كتابة الكود :)

<span style='font-size:10pt;line-height:100%'>عموما هذا هو الكود الذى أشرت إليه</span> 

< 1 > DLL Project source code : 
library mousehook;
uses
WinProcs,
main in 'main.pas';
{$R *.res}
exports
GetMonitorMouseMoveMsg,
InstallHook,
RemoveHook,
IsHookSet,
MouseHookCallBack;
{$IFDEF WIN32}
{ ---Shared data management . ---}
procedure AllocSharedData;
var Init: boolean;
begin
if hMapObject = 0 then
  begin
{ --- Create a named file mapping object to save the global variable , for more details see the SDK help. ---}
    hMapObject := CreateFileMapping(
    THandle($FFFFFFFF),                                                             // use paging file.
    NIL,                                                                      %

      
تم تعديل هذه المشاركة بواسطة romanof في 31 يناير 2008 في 11:55

      

      
اللهم أغفر لنا ولوالدينا ومعلمينا وأساتذتنا ومشايخنا وكل من له فضل علينا

    

  

    
    

      
#2
        
        

      
بسم الله الرحمن الرحيم
الاخ رمضان 
مشكور على المساعدة في وضع الـ source code.
كما ذكرت سيادتكم يبدو انني المخطئ وانني لا اعرف كيف أكتب الكود فى المنتدى.
يبدو أن لم تشاهد الـ CODE بعد ان قمت بنشره فهناك العديد من الاخطاء ما يزيد عن 100 خطاء : ظهور { ; ) (  في غير مواقعها مما يؤدي الى التغيير بين بداية الجملة و نهايتها , وغيرها من المشاكل ...
على العموم أشكرك جدآ على المجهود الذي بذلته .
:)

      
      

      
هناك حتى الأحلام أصبحت ممنوعة ...
إنه لعار أن ننتمي لهكذا أوطان ... لكن ... ربما العار أن نكون نحن أبناء لتلكم أوطان .. من يدري ؟!!
ليعلم أولئك ... إنّ الشعوب إنْ هي استيقظت تسحق ظُلامََهَا ...
There, even in dreams u r wanted
To be a programmer, how a nice dream it was
Leaving ...
أعيدوا لإسمي لونه المفضل

    

  

    
    

      
#3
        
        

      
لقد تم إصلاح الكود   :P 
ولكن لى سؤال الا يمكنك شرح هذا الكود باللغة العربية وذلك لمن لايتقنون الانجليزية ؟ 

      
      

      
اللهم أغفر لنا ولوالدينا ومعلمينا وأساتذتنا ومشايخنا وكل من له فضل علينا

    

  

    
    

      
#4
        
        

      
السلام عليكم
مشكور أخي على إعادة كتابة الـ code . الان أستطيع كتابة الـ code بالشكل الصحيح , و العتب ليس عليكم العتب على ms وعدم دعمها للغة العربية بشكل جيد .
بالنسبة للـ code فأنا مستعد لشرحه إن كان هناك من يود ذلك و لو أني أعتقد أن المكتوب باللغة الإنجليزية سهل الفهم , و المشكلة أن هناك مصطلحات القيام بترجمتها يفقدها معناها ( بصراحة أنا أعرف المصطلحات وما تعنيه باللغتين الإنجليزية و الصينية و لم أقتنع بالترجمة العربية :) :)  ) .

      
      

      
هناك حتى الأحلام أصبحت ممنوعة ...
إنه لعار أن ننتمي لهكذا أوطان ... لكن ... ربما العار أن نكون نحن أبناء لتلكم أوطان .. من يدري ؟!!
ليعلم أولئك ... إنّ الشعوب إنْ هي استيقظت تسحق ظُلامََهَا ...
There, even in dreams u r wanted
To be a programmer, how a nice dream it was
Leaving ...
أعيدوا لإسمي لونه المفضل

    

  

    
    

      
#5
        
        

      
أخى tmaaa 
لم أقصد ترجمة وإنما أقصد شرح بمعنى 
FillChar(SharedData^, SizeOf(TSharedData), 0);
لماذا هذا الكود ؟ وما هى الوسائط المطلوبة ؟ ومتى يستخدم 
انا لا أقصد هذا الكود ذاته وإنما أقصد كل الدوال والإجراءات الموجودة فى الكود الذى وضعته
وأعانك الله ونفعنا بعلمك ومجهودك

      
      

      
اللهم أغفر لنا ولوالدينا ومعلمينا وأساتذتنا ومشايخنا وكل من له فضل علينا

    

  

    
    
 هذا الموضوع مغلق.

    
 مواضيع مشابهة