Закрытие критической ошибки

[AppData]

Правильно ли я закрываю критическую ошибку?

procedure TForm1.Timer1Timer(Sender: TObject);
var
  h : THandle;
begin
  h := FindWindow('application.exe - Ошибка приложения', nil);
  if h <> 0 then
    SendMessage(FindWindowEx(h, 0, 'Button', nil), WM_CHAR,  Ord(VK_RETURN), 0);
end;

там только одна кнопка OK. чтобы каждый раз не нажимать! Хотел написать данную утилиту которая помогла бы мне!

[Stilet]

А может проще в винде отключить вывод таких ошибок?
Я правильно понимаю - допилить самоу прогу, что лажает, не представляется возможным из-за отсутствия исходников?

[AppData]

Stilet, чужая программа. не лечиться так как вирусом был заражон! переустановка не возможна. а после закрытие данной ПО. все работет на ура!

[саша40]

Так удали её нафиг!

[AppData]

Она мне просто необходима) Kerio WinRoute

[Stilet]

переустановка не возможна

Это еще почему?

[AppData]

это нужно все настройки переделыввать

[саша40]

Сообщение от AppData

Она мне просто необходима) Kerio WinRoute

Wi-FI- роутер? Переустанови программу с диска. Такими действиями ты всё равно сделать нечего не сможешь. Лучше перенастройку сделать, чем без дела просто сидеть.

[AppData]

легко сказать, когда я уже пытался у меня ничего не вышло! поэтому выход и решение!.

procedure TForm1.Timer1Timer(Sender: TObject);
var
  h : THandle;
begin
  h := FindWindow('application.exe - Ошибка приложения', nil);
  if h <> 0 then
    SendMessage(FindWindowEx(h, 0, 'Button', nil), WM_CHAR,  Ord(VK_RETURN), 0);
end;

[Stilet]

Не уверен что это решение самое надежное...
Я бы напрягся и переустановил.