用滑鼠坐標抓 滑鼠底下的視窗的HWND
元件HWND也抓的到
通常是寫在timer理
 
var p:tpoint;
    c:array[0..254]of char;
    s:array[0..254] of char;
begin
  getcursorpos(p);
  //抓HWND
  caption:=inttostr(windowfrompoint(P));   
  //抓class name  按鈕會顯示TButton 視窗會顯示TForm
  getclassname(strtoint(caption),c,255);    
   //抓標題 按鈕會顯示按紐文字 視窗會顯示標題
  SendMessage(windowfrompoint(P), WM_GetText, 255, integer(@s[0])); 
  edit2.Text:=s;
  edit1.Text:=c;
 

// 找出指定視窗的 Handle

hWindow := FindWindow('notepad',nil); 

// 找出焦點視窗的 Handle

hWindow := GetForegroundWindow;

arrow
arrow
    全站熱搜
    創作者介紹
    創作者 抓狂小白 的頭像
    抓狂小白

    抓狂小白的程式筆記

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

    E-mail轉寄