SendMessage(<font color="Red">Хэндл кнопки Messagebox'а</font>, BM_SETSTATE,
1
,
0
);
Sleep(
100
procedure
TForm1
.
Timer1Timer(Sender: TObject);
var
wnd : HWND;
begin
wnd := FindWindow(
'#32770'
'ЗАГОЛОВОК_ТВОЕГО_МЕССАДЖБОКСА'
if
wnd <>
then
SendMessage(wnd, WM_CLOSE,
end
;
Сайт
Форум
FAQ
Соглашения
Прочее