Нажатие на копку

← →
Ромн (2003-05-21 12:25) [0]

Как сделать так, чтобы моя прога отлавливала выскакивающий messagebox, вызванный другой прогой и нажимать на нем кнопку "ОК"

← →
Song © (2003-05-21 15:47) [1]

WH_CBT
BM_CLICK

← →
Ромн (2003-05-22 10:50) [2]

Первая строчка понятна, поймать хук, а вторая ?

← →
Song © (2003-05-23 08:42) [3]

А вторая - послать сообщение BM_CLICK кнопке, чтобы эмулировать нажатие.

← →
Kirlog (2003-05-26 12:18) [4]

Лови рабочий примерчик:

Это модуль, где содержится класс, отлавливающий и закрывающий подобные окошки:

unit NagTerm;

interface
uses extCtrls, windows, sysutils, messages;
Type

TNagTerminator=Class
private
Tim:TTimer;
AutoStop:Boolean;
WinName:String;
ButName:String;
Procedure TimHandle(Sender:Tobject);
Procedure NagNot;
protected
public
constructor Create(_WinName,_ButName:String;_AutoStop:Boolean);
Procedure Stop();
Procedure Start(_WinName,_ButName:String;_AutoStop:Boolean);
end;

implementation
var LocalWinName:String;
LocalButName:String;
DHandle:HWND;
OkHandle:HWND;

function EnumProc2 (Wd: HWnd; Param: LongInt): Boolean; stdcall; //

Нажатие на копку Найти похожие ветки