Перезапуск приложения после падения

[Shouldercannon]

Есть приложение консольного типа, оно имеет окно и кнопку на панели задач. Это приложение иногда закрывается после ошибки ничего не выводя. Нужно делать проверку каждые 30 мин на наличие работы данного приложения и если оно упало то запустить и оповестить об это. Как такое сделать?

[Arigato]

Из списка процессов можно проверять, запущен ли нужный ехешник или нет.

[Shouldercannon]

Как вариант хорошь. Только как сделать сие?

[raxp]

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

[xakkkkker]

Вот функция которая определяет запущен ли процесс. В качестве параметра передаешь ей имя процесса.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, tlhelp32;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


function IsRunning( sName : string ) : boolean;
var
han : THandle;
ProcStruct : PROCESSENTRY32; // from "tlhelp32" in uses clause
sID : string;
begin
Result := false;
// Get a snapshot of the system 
han := CreateToolhelp32Snapshot( TH32CS_SNAPALL, 0 );
if han = 0 then
   exit;
// Loop thru the processes until we find it or hit the end
ProcStruct.dwSize := sizeof( PROCESSENTRY32 );
if Process32First( han, ProcStruct ) then
   begin
     repeat
       sID := ExtractFileName( ProcStruct.szExeFile );
      // Check only against the portion of the name supplied, ignoring case
      if uppercase( copy( sId, 1, length( sName ) ) ) = uppercase( sName ) then
         begin
          // Report we found it
           Result := true;
           Break;
         end;
     until not Process32Next( han, ProcStruct );
   end;
// clean-up
CloseHandle( han );
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsRunning (Edit1.Text) then ShowMessage('ES');
end;

end.

В таймере каждые 30 минут проверяешь запущен твой процесс, если нет то запускаешь его. (Наверно как запустить программу сам напишешь).
И не забудь подключить uses tlhelp32