function CallBackProc(H, HMainForm: hwnd): Boolean; stdcall;
var
hChild: hwnd;
begin
Result := True;
if GetParent(H) = HMainForm then begin
hChild := FindWindowEx(H, 0, PChar('Button'), PChar('OK'));
if hChild > 0 then SendMessage(hChild, BM_Click, 0, 0);
end;
var
hChild: hwnd;
begin
Result := True;
if GetParent(H) = HMainForm then begin
hChild := FindWindowEx(H, 0, PChar('Button'), PChar('OK'));
if hChild > 0 then SendMessage(hChild, BM_Click, 0, 0);
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
EnumWindows(@CallBackProc, Self.Handle);
end;