VPF::ожидание завершения внешнего приложения

BaldHeaded

Дата 5.4.2013, 10:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 19.1.2006

Репутация: нет
Всего: нет

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

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 (ссылка)

(нет голосов)

Загрузка ...

НЭТ БИЛЭТ

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 7
Всего: 41

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

--------------------

умную мысль держи при себе, а дурной - поделись с другими

BaldHeaded

Дата 5.4.2013, 10:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 19.1.2006

Репутация: нет
Всего: нет

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

Чучмек

Дата 5.4.2013, 11:26 (ссылка)

(нет голосов)

Загрузка ...

НЭТ БИЛЭТ

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 7
Всего: 41

Код


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;

Это сообщение отредактировал(а) Чучмек - 5.4.2013, 11:27

--------------------

умную мысль держи при себе, а дурной - поделись с другими

BaldHeaded

Дата 5.4.2013, 12:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 19.1.2006

Репутация: нет
Всего: нет

спасибо!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »