| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Нажатие на копку
Ромн © (2003-05-21 12:25:00)Как сделать так, чтобы моя прога отлавливала выскакивающий messagebox, вызванный другой прогой и нажимать на нем кнопку "ОК"
Kirlog (2003-05-26 12:18:00) [1]Лови рабочий примерчик:
Это модуль, где содержится класс, отлавливающий и закрывающий подобные окошки:
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; //
Song (2003-05-23 08:42:00) [2]А вторая - послать сообщение BM_CLICK кнопке, чтобы эмулировать нажатие.
Ромн (2003-05-22 10:50:00) [3]Первая строчка понятна, поймать хук, а вторая ?
Song (2003-05-21 15:47:00) [4]WH_CBT
BM_CLICK
| |
