Меню сайта
Мини-чат
Чтобы добавить сообщение, необходимо авторизоваться.
Категории
Алгоритмы [95]
API [111]
Pascal [153]
Базы Данных [173]
BDE [0]
Интернет [0]
Мультимедия [0]
Аппаратное обеспечение [0]
Операционная система [0]
Компоненты [0]
Классы [0]
OLE+ [0]
Миграция [0]
Ошибки [0]
DLL [0]
Продукты третьих фирм [0]
Разное [0]
События [0]
Главная » Статьи » Не стандартные примеры на Delphi » API
Как мне запустить какую-нибудь программу? А как подождать, пока эта программа не отработает? Как выяснить, работает ли программа или уже зав
Nomadic рекомендует следующее:

A: WinExec() или ShellExecute. У второй больше возможностей.

(SO): CreateProcess() в параметре process info возвращает handle запущенного процесса. Вот и делаешь WaitForSingleObject(pi.hProcess, INFINITE);

(AA): (Win16) Delay можно взять из rxLib.

    handle := WinExec(...);
if handle >= 32 then
while GetModuleUsage(handle) > 0 do
Delay( nn );
else
raise ....

(AM): Чтобы выяснить, работает ли программа, используйте GetProcessTimes(), параметр lpExitTime.

(Win32) Для принудительного завершения процесса -- TerminateProcess.

(Win16) (RR): Надо послать программе сообщение WM_QUIT:

    Handle := Winexec(App, 0);
PostMessage(Handle, WM_QUIT, 0, 0); 
Категория: API | Добавил: DelphiAiX (09.05.2012)
Просмотров: 436 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
  тИЦ и PR сайта www.aix.ucoz.ru Protected by Copyscape Web Copyright Protection Software Счетчик цитирования
Все материалы размещенные на сайте пренадлежат их владельцам и предоставляются исключительно в ознакомительных целях.
Администрация ответственности за содержание материала не несет и убытки не возмещает.
По истечению 24 часов материал должен быть удален с вашего компьютера.
Незаконная реализация карается законами РФ и Украины : "Об авторском и смежном праве".
При копировании материала, ссылка на сайт обязательна! Сделать бесплатный сайт с uCoz | Карта сайта | Карта форума