用Delphi編程模擬鼠標操作

本實例介紹如何在自己的程序裡面模擬鼠標的常用操作
　　
　　首先啟動一個新的項目在空白的窗體上添加個TButton組件添加組件後的窗體如圖所示
　　 　
　　 圖 添加組件後的窗體
　　
　　這個按鈕分別用於模仿鼠標的個動作——移動鼠標到指定位置左鍵單擊左鍵雙擊和右鍵單擊
　　
　　下面以鼠標左鍵單擊為例來說明如何模擬鼠標操作
　　
　　procedure TFormbtnLClickClick(Sender: TObject);
　　begin
　　SetCursorPos();
　　mouse_event(MOUSEEVENTF_LEFTDOWN);
　　mouse_event(MOUSEEVENTF_LEFTUP);
　　end;
　　
　　首先需要通過SetCursorPos函數來設置需要單擊的坐標然後通過mouse_event (MOUSEEVENTF_LEFTDOWN)語句在()坐標處按下鼠標左鍵最後不要忘了通過mouse_event(MOUSEEVENTF_LEFTUP)語句釋放鼠標左鍵
　　
　　雙擊的操作可以通過兩個連續的單擊來實現鼠標移動的操作可以通過指定mouse_event 函數的第個參數MOUSEEVENTF_MOVE第個和第個參數為左邊來實現右鍵單擊和左鍵單擊的原理一致只不過mouse_event函數中的參數分別替換為MOUSEEVENTF_RIGHTDOWN和MOUSEEVENTF_RIGHTUP
　　
　　程序代碼如下
　　
　　unit Unit;
　　interface
　　
　　uses
　　Windows Messages SysUtils Variants Classes Graphics Controls Forms
　　Dialogs StdCtrls;
　　type
　　TForm = class(TForm)
　　btnMove: TButton;
　　btnLClick: TButton;
　　btnLDClick: TButton;
　　btnRClick: TButton;
　　procedure btnMoveClick(Sender: TObject);
　　procedure btnLClickClick(Sender: TObject);
　　procedure btnLDClickClick(Sender: TObject);
　　procedure btnRClickClick(Sender: TObject);
　　private
　　{ Private declarations }
　　public
　　{ Public declarations }
　　end;
　　
　　var
　　Form: TForm;
　　implementation
　　{$R *dfm}
　　
　　procedure TFormbtnMoveClick(Sender: TObject);
　　begin
　　mouse_event(MOUSEEVENTF_MOVE);
　　end;
　　
　　procedure TFormbtnLClickClick(Sender: TObject);
　　begin
　　SetCursorPos();
　　mouse_event(MOUSEEVENTF_LEFTDOWN);
　　mouse_event(MOUSEEVENTF_LEFTUP);
　　end;
　　
　　procedure TFormbtnLDClickClick(Sender: TObject);
　　begin
　　SetCursorPos();
　　mouse_event(MOUSEEVENTF_LEFTDOWN);
　　mouse_event(MOUSEEVENTF_LEFTUP);
　　mouse_event(MOUSEEVENTF_LEFTDOWN);
　　mouse_event(MOUSEEVENTF_LEFTUP);
　　end;
　　
　　procedure TFormbtnRClickClick(Sender: TObject);
　　begin
　　SetCursorPos();
　　mouse_event(MOUSEEVENTF_RIGHTDOWN);
　　mouse_event(MOUSEEVENTF_RIGHTUP);
　　end;
　　end
　　
　　保存文件然後按F鍵運行程序程序運行的初始畫面如圖所示
　　
　　 圖 程序運行的初始畫面
　　
　　通過單擊窗體上的移動鼠標左鍵單擊左鍵雙擊和右鍵單擊按鈕可以分別完成模擬移動鼠標到指定位置左鍵單擊左鍵雙擊和右鍵單擊等操作
　　
　　本程序介紹了如何在程序中模擬鼠標的常用操作這一點在遠程監控軟件中非常重要通過mouse_event函數就可以實現遠程的鼠標管理和操作
From:http://tw.wingwit.com/Article/program/Delphi/201311/24687.html