• <sub id="h4knl"><ol id="h4knl"></ol></sub>
    <sup id="h4knl"></sup>
      <sub id="h4knl"></sub>

      <sub id="h4knl"><ol id="h4knl"><em id="h4knl"></em></ol></sub><s id="h4knl"></s>
      1. <strong id="h4knl"></strong>

      2. 在應用程序中跟蹤MOUSE的坐標

        時間:2024-06-09 15:13:44 計算機網絡畢業論文 我要投稿
        • 相關推薦

        在應用程序中跟蹤MOUSE的坐標

        在應用程序中跟蹤MOUSE的坐標

        第一步,建一DLL,DELPHI中NEW-》DLL SAVE AS GETKEYlibrary getKey;uses
        SysUtils,
        Windows,
        HookMain in hookmain.pas;exports
        OpenGetKeyHook,
        CloseGetKeyHook,
        GetPublicP;begin
        NextHook := 0;
        procSaveExit := ExitProc;
        DLLproc := @DLLMain;
        ExitProc := @HookExit;
        DLLMain(DLL_PROCESS_ATTACH);
        end.第二步,建一UNIT ,HOOK MAIN。關鍵在于CreateFileMapping 和 消息 WM_NCMouseMove, WM_MOUSEMOVE:unit HookMain; interface
        uses Windows, Messages, Dialogs, SysUtils; //type DataBuf = Array of DWORD;
        type mydata=record
        data1:array of DWORD;
        data2:TMOUSEHOOKSTRUCT;
        end;
        var hObject : Thandle;
        pMem : Pointer;
        NextHook: Hhook;
        procSaveExit: Pointer; function HookHandler(iCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; export;
        function OpenGetKeyHook(sender : HWND;MessageID : WORD) : BOOL; export;
        function CloseGetKeyHook: BOOL; export;
        function GetPublicP : Pointer;stdcall; export;
        Procedure DLLMain(dwReason:Dword); far;
        procedure HookExit; far; implementation Procedure UnMapMem;
        begin
        if Assigned(pMem) then
        begin
        UnMapViewOfFile(pMem);
        pMem := Nil
        end;
        end; Procedure MapMem;
        begin
        hObject := CreateFileMapping($FFFFFFFF,Nil,Page_ReadWrite,0,$FFFF,pChar(_IOBuffer));
        if hObject = 0 then Raise Exception.Create(創建公用數據的Buffer不成? ;
        pMem := MapViewOfFile(hObject,FILE_MAP_WRITE,0,0,SizeOf(mydata));
        // 1 or SizeOf(DataBuf) ????
        // 創建SizeOf(DataBuf)的數據區
        if not Assigned(pMem) then
        begin
        UnMapMem;
        Raise Exception.Create(創建公用數據的映射關系不成功!);
        end;
        end;
        Procedure DLLMain(dwReason:Dword); far;
        begin
        Case dwReason of
        DLL_PROCESS_ATTACH :
        begin
        pMem := nil;
        hObject := 0;
        MapMem; //以下的公有數據,如tHWND,tMessageID將直接使用本Buf.
        End;
        DLL_PROCESS_DETACH : UnMapMem;
        DLL_THREAD_ATTACH,
        DLL_THREAD_DETACH :; //缺省
        end;
        end; procedure HookExit; far;
        begin
        CloseGetKeyHook;
        ExitProc := procSaveExit;
        end;function GetPublicP : Pointer;export;
        begin //這里引出了公用數據區的指針,你可以在你的應用程序中自由操作它。但建議去掉此接口。
        Result := pMem;
        end;function HookHandler(iCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; export;
        begin
        Result := 0;
        If iCode $#@60; 0
        Then Result := CallNextHookEx(NextHook, iCode, wParam, lParam);
        // This is probably closer to what you would want to do...
        Case wparam of
        WM_LBUTTONDOWN:
        begin
        end;
        WM_LBUTTONUP:
        begin
        end;
        WM_LBUTTONDBLCLK:
        begin
        end;
        WM_RBUTTONDOWN:
        begin
        messagebeep(1);
        end;
        WM_RBUTTONUP:
        begin
        end;
        WM_RBUTTONDBLCLK:
        begin
        end;
        WM_MBUTTONDOWN:
        begin
        end;
        WM_MBUTTONUP:
        begin
        end;
        WM_MBUTTONDBLCLK:

        下一頁

        【在應用程序中跟蹤MOUSE的坐標】相關文章:

        跟蹤審計中存在題目及對策12-08

        視頻圖像中的車輛檢測跟蹤和分類03-18

        坐標系在化學教學中的運用的方式分析03-16

        Blackfin系統引導過程中的多應用程序管理03-07

        淺析極坐標系與坐標旋轉11-30

        實時操作系統VxWorks在跟蹤雷達系統中的應用03-18

        電源跟蹤技術03-19

        成本管理的戰略坐標03-07

        基于XML的智能應用程序的研究03-07

        光學3D坐標測量技術在大齒輪在位測量中的應用03-07

        国产高潮无套免费视频_久久九九兔免费精品6_99精品热6080YY久久_国产91久久久久久无码
      3. <sub id="h4knl"><ol id="h4knl"></ol></sub>
        <sup id="h4knl"></sup>
          <sub id="h4knl"></sub>

          <sub id="h4knl"><ol id="h4knl"><em id="h4knl"></em></ol></sub><s id="h4knl"></s>
          1. <strong id="h4knl"></strong>

          2. 伊人大杳蕉一本v视频 | 亚洲男男gvv在线播放 | 亚洲性一级在线观看 | 日本中出中文在线视频 | 日本黄线在线视频免费看 | 亚洲一本之道精品乱码 |