örneğin bir setup programında next,I agree'yi işaretlemek ve sonreki nextler en sonundada finishe basmak gibi standart işlemler var yapmak istediğim bu butonlara tek buttonclick ile yapmak..Şimdi aşağıdaki kod ile.
Kod: Tümünü seç
var
hApp,hButton,hcheckbox:Thandle;
begin
hApp:=Findwindow(nil,'Installing IconXP 3.10');
hbutton:=FindWindowEx(hApp,0,'Button','&Next >'); {İlk ekrandaki next butonuna basar}
sendmessage(hbutton,bm_click,0,0);
hcheckbox:=FindWindowEx(hApp,0,'Button','I &agree with the above terms and conditions');
sendmessage(hcheckbox,bm_click,0,0);
hbutton:=FindWindowEx(hApp,0,'Button','&Next >'); {İkinci ekrandaki next butonuna basar}
sendmessage(hcheckbox,bm_click,0,0);