Почему не робит этот кусок кода

← →
maxim2 (2002-11-20 11:30) [0]

procedure TForm2.Timer1Timer(Sender: TObject);
var
H : HWND;
begin
H := FindWindow (nil, "Завершение работы программы");
If H <> 0 then SendMessage (H, WM_CLOSE, 0, 0);
end;
end.

в чем проблема почему не закрывает

← →
Слесарь Матерящийся (2002-11-20 11:37) [1]

Либо CloseWindow() -- может тоже не сработать, либо
WM_SYSCOMMAND с SC_CLOSE.

← →
Слесарь Матерящийся (2002-11-20 11:38) [2]

Да. Если это окно системы, то точно не сработает.

Почему не робит этот кусок кода Найти похожие ветки