熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

用Delphi編程模擬鼠標操作

2013-11-23 17:29:52  來源: 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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.