Rambler's Top100
"Knowledge itself is power"
F.Bacon
Поиск | Карта сайта | Помощь | О проекте | ТТХ  
 Круглый стол
  
Правила КС
>> Настройки

Фильтр вопросов
>> Новые вопросы
отслеживать по
>> Новые ответы

Избранное

Страница вопросов
Поиск по КС


Специальные проекты:
>> К л ю к в а
>> Г о л о в о л о м к и

Вопрос №

Задать вопрос
Off-topic вопросы

Помощь

 
 К н и г и
 
Книжная полка
 
 
Библиотека
 
  
  
 


Поиск
 
Поиск по КС
Поиск в статьях
Яndex© + Google©
Поиск книг

 
  
Тематический каталог
Все манускрипты

 
  
Карта VCL
ОШИБКИ
Сообщения системы

 
Форумы
 
Круглый стол
Новые вопросы

 
  
Базарная площадь
Городская площадь

 
   
С Л С

 
Летопись
 
Королевские Хроники
Рыцарский Зал
Глас народа!

 
  
ТТХ
Конкурсы
Королевская клюква

 
Разделы
 
Hello, World!
Лицей

Квинтана

 
  
Сокровищница
Подземелье Магов
Подводные камни
Свитки

 
  
Школа ОБЕРОНА

 
  
Арсенальная башня
Фолианты
Полигон

 
  
Книга Песка
Дальние земли

 
  
АРХИВЫ

 
 

Сейчас на сайте присутствуют:
 
 
 01:11 Xenia
 01:09 JAE
 01:06 Green
 01:03 Cep
 01:02 Василий
 01:00 ynow
 00:57 Void
 00:55 Nemo
 00:55 Александр Малыгин
 
 
Во Флориде и в Королевстве сейчас  01:11[Войти] | [Зарегистрироваться]
Ответ на вопрос № 19606

26-12-2003 01:00
Подскажите, плз. Пишу инсталлятор ( на дельфе ). Проблема, надо в ходе инсталляции запускать ряд приложений, причём, запускать хотелось бы последовательно, т.е. одно установилось, запускаем на установку другое. Проблема: как узнать установилось ли приложение. Например, в ходе инсталляции программы надо установить ( Framework, DirectX, и д.р ). Запускаем framework через ShellExecute(.....), получаю из неё "return value is the instance handle of the application that was run", что можно зделать? Как, например, по handle, отследить завершение программы?

[+] Добавить в избранные вопросы

Отслеживать ответы на этот вопрос по RSS

Ответы:


Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице.
Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.

31-05-2007 00:36 | Комментарий к предыдущим ответам
Люди! Пыталась сделать и первым и вторым способом - никак!
У меня 2 еxe-файла. Должны запускаться последовательно и пока один не закончится, второй не должен запускаться. И пока второй не закончит свою работу - программа не должна продолжаться. они запускаются, но почему-то не выполняют своих действий. Такое ощущение, что сразу после запуска их останавливают! Как быть? Может объясните, что происходит внутри функций?

06-01-2004 22:25 | Сообщение от автора вопроса
При этом способе возникает проблемка, пока не закончит работу запущенный процесс наше приложение не перерисовывается и всё-такое, а очень не хотельсь бы, чтобы оно совсем в это время  помирало. Можно ли это как-нибудь обойти

26-12-2003 17:00
Или чуть проще:

var
  s: TShellExecuteInfo;
begin
  Zeromemory(@S,SizeOf(S));
  S.cbSize := SizeOf(S);
  S.fMask := SEE_MASK_NOCLOSEPROCESS;
  S.lpFile := 'dx90_redist.exe';
  S.nShow := SW_SHOWMAXIMIZED;
  if ShellExecuteEx(@S) then
  begin
    WaitForSingleObject(S.hProcess,INFINITE);
    ShowMessage('Ok!');
  end;

26-12-2003 15:35 | Сообщение от автора вопроса
Вот найденное решение.

function ExecProgram( AppPath: string ): cardinal;
var
  si: STARTUPINFO;
  pi: PROCESS_INFORMATION;
  ExitCode: cardinal;
begin
  Result:= 0;
  ZeroMemory(@si, sizeof(STARTUPINFO));
  si.cb:= sizeof(STARTUPINFO);
  si.wShowWindow:= SW_SHOWNORMAL;

  if (CreateProcess( nil,
                  PAnsiChar(AppPath),
                  nil,
                  nil,
                  FALSE,
                  CREATE_DEFAULT_ERROR_MODE or NORMAL_PRIORITY_CLASS,
                  nil,
                  nil,
                  si,
                  pi) = TRUE) then
  begin
    CloseHandle(pi.hThread);                    // освобождаем ресурсы
    WaitForInputIdle(pi.hProcess, INFINITE);    // ждем окончания инициализации
                                                // запущенного процесса.*
    WaitForSingleObject(pi.hProcess, INFINITE); // ждем завершения процесса
    GetExitCodeProcess(pi.hProcess, ExitCode); // получаем код возврата
    CloseHandle(pi.hProcess);                  // освобождаем ресурсы
    Result:= ExitCode;
  end;
end;

26-12-2003 14:07
Можно по таймеру считывать список процессов -
либо используя psapi.dll, либо  используя NtQuerySystemInformation/ZwQuerySystemInformation
 

Добавьте свое cообщение

Вашe имя:  [Войти]
Ваш адрес (e-mail):На Королевстве все адреса защищаются от спам-роботов
контрольный вопрос:
"Мы с тобой одной крови — ты и я!". Чьи это заветные слова?
в качестве ответа на вопрос или загадку следует давать только одно слово в именительном падеже и именно в такой форме, как оно используется в оригинале.
Надоело отвечать на странные вопросы? Зарегистрируйтесь на сайте.
Тип сообщения:
Текст:
Жирный шрифт  Наклонный шрифт  Подчеркнутый шрифт  Выравнивание по центру  Список  Заголовок  Разделительная линия  Код  Маленький шрифт  Крупный шрифт  Цитирование блока текста  Строчное цитирование
  • вопрос Круглого стола № XXX

  • вопрос № YYY в тесте № XXX Рыцарской Квинтаны

  • сообщение № YYY в теме № XXX Базарной площади
  • обсуждение темы № YYY Базарной площади
  •  
     Правила оформления сообщений на Королевстве

    Страница избранных вопросов Круглого стола.
      
    Время на сайте: GMT минус 5 часов

    Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter.
    Функция может не работать в некоторых версиях броузеров.

    Хостинг предоставлен компанией DOTNETPARK (ASP.NET, MS SQL hosting)  

     
    © При использовании любых материалов «Королевства Delphi» необходимо указывать источник информации. Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
    Все используемые на сайте торговые марки являются собственностью их производителей.

    Яндекс цитирования