Button Handle

[ikurt07]

Çalışan bir uygulamadaki... butonun handle nasıl alınır..

Kod: Tümünü seç

var
hnd:Thandle;
w_type:Array[0..99] of Char;
w_name:Array[0..99] of Char;
w_Class:Array[0..99] of Char;
begin
 hnd:=0;
 hnd:=WindowFromPoint(Mouse.CursorPos);
 GetWindowText(hnd,w_name,1000);
 GetWindowText(hnd,w_Class,1000);
 Edit3.Text := StrPas(w_Class);
 Edit2.Text := inttostr(hnd);

Bu şekilde alabiliyoruz ancak.. bunu otomatik olarak nasıl yapabiliriz.

[aLonE CoDeR]

FindWindow ve FindWindowEx apilerini araştır forumda da konuşulmuştu.

Kolay gele..

[ikurt07]

Formu ve Deiğer formlarıda araştırdım ...
denediğim bazı kodlar var ama bir türü çalıştıramadım.

Kod: Tümünü seç

var
 hApp,hButton:Thandle;
begin
hApp:=Findwindow(nil,'Program');
if hApp<>0 then begin
 hbutton:=FindWindowEx(hApp,hApp,'Button','Kapat');
 if hbutton<>0 then begin
   showmessage('a');
   sendmessage(hbutton,bm_click,0,0);
 end;

[mrmarman]

Merhaba..

bkz. viewtopic.php?t=18465#108426