Узнать когда закроется программа

[NoName_emaNoN]

Добрый день!

У меня такой вопрос: Из своей программы я запускаю ещё одну, exe файл. Нужно узнать когда она отработает, и после её закрытия выполнить определённое действие.

Если есть готовые наработки, буду рад.

[Alex Cones]

Мой Watcher. Следит за открытым проектом в Lazarus и архивирует его после закрытия среды.

program Watcher;

uses
  ShellAPI, {SysUtils,} Windows;

Var
 Look   : Boolean = FALSE;
 Gotcha : Boolean = FALSE;
 Hand   : Integer;
Begin
 While True Do
  Begin
   (* Search for Lazarus *)
   Hand := 0;
   Hand := FindWindow('Window','Lazarus IDE v0.9.28.2 бета - Finder.lpi');
   Gotcha := (Hand <> 0);
   If (Look) And Not(Gotcha) Then
    Begin
     ShellExecute(0,'Open','D:\Programs\7-Zip\Arc.bat', Nil, Nil, SW_HIDE);
     Look := FALSE;
    End
   Else
    If Not(Look) And (Gotcha) Then
     Begin
      Look := TRUE;
     End;
   Sleep(10 * 1000);
  End;
End.

[W0LF]

http://pblog.ru/lab/?p=231
или проверять наличия окна вашего exe... Если окно есть - значит прога еще работает, а если нет, тогда выполняйте свое действие...

[JTG]

var pi: PROCESS_INFORMATION;

CreateProcess(...)
WaitForSingleObject(pi.hProcess, INFINITE);

Можно в отдельном потоке, как здесь (бинарник не запускай, там win32.induc )

[NoName_emaNoN]

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

var pi: PROCESS_INFORMATION;

CreateProcess(...)
WaitForSingleObject(pi.hProcess, INFINITE);

Можно в отдельном потоке, как здесь (бинарник не запускай, там win32.induc )

Спасибо большое! С CreateProcess так и не разобрался, но функция очень мощная видимо, спасибо!

Реализовал методом по ссылке http://pblog.ru/lab/?p=231, спасибо большое!

[Пепел Феникса]

у меня же недавно тема была...

[Grag]

Вот кусочек кода из одной моей программки... Ищется файлик по шаблону и запускается, затем отслеживается окончание работы запущенной программы...

var
  SlExe:TStringList;
  hSnapshoot: THandle;
  pe32: TProcessEntry32;
  jmap:integer;

Begin
  SlExe:=TStringList.Create;
  SlExe.Duplicates:=dupIgnore;
  FileMap:='';
  FindMap.Criteria.Files.FileName:='*.exe';  //задаю шаблон поиска файлов
  //задаю каталог поиска программы *Map.exe
  FindMap.Criteria.Files.Location:=ExeDir;
  //устанавливаю аттрибуты поиска
  FindMap.Criteria.Attribute.Attributes:=
  FindMap.Criteria.Attribute.Attributes-[ffHidden];
  fndMap:=false;
  FindMap.Execute;
  if fndMap then
    begin
      MainForm.WindowState:=wsMinimized;
      ShellExecute(MainForm.Handle,nil,PChar(FileMap),nil,nil,SW_RESTORE);
      FileMap:=UpperCase(ExtractFileName(FileMap))
    end;
  while fndMap do
    begin
      Sleep(2000);
      SlExe.Clear;
      SlExe.Sorted:=false;
      hSnapshoot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
      pe32.dwSize := SizeOf(TProcessEntry32);
      if (Process32First(hSnapshoot, pe32)) then
        repeat
          Application.ProcessMessages;
          SlExe.Add(UpperCase(StrPas(pe32.szExeFile)))
        until not Process32Next(hSnapshoot,pe32);
      CloseHandle(hSnapshoot);
      SlExe.Sorted:=true;
      fndMap:=SlExe.Find(FileMap,jmap)
    end;
  SlExe.Free;
  MainForm.WindowState:=wsMaximized;
End;

Для поиска требуемой программы использую сторонний коипонент FindFile, но это к задаче не относится...

[Smitt&Wesson]

Можно через дескриптор оконного интерфейса HANDLE. Или через ловушку виндовс.
Функция объявлена след. образом:
HHOOK SetWindowsHookEx(int idHook, HOOKPROC lpfn, HINSTANCE hmod, DWORD dwThreadId);
И куча флагов к ней.