SetCursorPos(x,y); //滑鼠移動
 
procedure mc;  //滑鼠點擊
begin
  mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);// click down
  mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);// click down
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
  var p : tpoint;
begin
    GetCursorPos(P);
    Caption := IntToStr(P.x) + ' : ' + IntToStr(P.y);
end;
 
 
抓滑鼠底下視窗的HWND
timer
var p:tpoint;
begin
  getcursorpos(p);
  caption:=inttostr(windowfrompoint(P));
arrow
arrow
    全站熱搜
    創作者介紹
    創作者 抓狂小白 的頭像
    抓狂小白

    抓狂小白的程式筆記

    抓狂小白 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄