Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > ожидание завершения внешнего приложения

Автор: BaldHeaded 5.4.2013, 10:28

доброе время суток.

delphi xe3
win7 x64

используется следующий код ожидания завершения внешнего приложения:

Код


ZeroMemory(@sei, SizeOf(sei));
    sei.cbSize := SizeOf(TShellExecuteInfo);
    sei.Wnd := Application.Handle;
    sei.fMask := SEE_MASK_NOCLOSEPROCESS;
    sei.lpVerb := PChar('open');
    sei.lpFile := PChar('calc.exe');
    sei.nShow := SW_NORMAL;
   if ShellExecuteEx(@sei) then
   begin
     repeat
       Application.ProcessMessages;
       GetExitCodeProcess(sei.hProcess, ExitCode);
     until (ExitCode <> STILL_ACTIVE) or  Application.Terminated;
   end;

и все бы хорошо, только если вместо calc.exe подставить control.exe, то никакого ожидания нет - программа выполняется дальше.
как сделать, чтобы панель управления тоже ждать пришлось?

Автор: Чучмек 5.4.2013, 10:51

А что ты хотел? control.exe открывает панель управления и на этом свою работу заканчивает.
"Панель управления" принадлежит процессу Explorer.exe

Автор: BaldHeaded 5.4.2013, 10:54

как дождаться закрытия окна панели управления?

Автор: Чучмек 5.4.2013, 11:26

Код


var
  h:cardinal;
  i:integer;
begin
  h:=FindWindow('CabinetWClass','Панель управления');
  if h=0 then
    begin
      ShellExecute(0,nil,'control.exe',nil,nil,0);
      i:=20;
      repeat
        h:=FindWindow('CabinetWClass','Панель управления');
        sleep(100);
        Application.ProcessMessages;
      until (h<>0) or (i=0);
      if h=0 then ShowMessage('Не дождался окна')else
        while IsWindow(h) and not Application.Terminated do
          begin
            Sleep(100);
            Application.ProcessMessages;
          end;
      if Application.Terminated then messagebox(0,'Надоело ждать','',0) else ShowMessage('Окно закрыто');
    end else
    begin
      ShowMessage('Окно открыто без нас');
      SetForegroundWindow(h);
    end;
end;

Автор: BaldHeaded 5.4.2013, 12:35

спасибо!