Завершение чужой программы после её запуска

← →
Глеб © (2004-05-29 13:45) [0]

Здравствуйте! Мне нужно сделать следующее: я запускаю через процедуру ShellExecute файл. Мне нужно, когда пройдёт некоторое время (например, 1 сек.), проверить, работает ли ещё эта программа или она себя завершила. Если она ещё работает, мне нужно её завершить. Как мне всё это сделать? Помогите, пожалуйста.

← →
Глеб © (2004-05-29 13:48) [1]

ответьте

← →
Anatoly Podgoretsky © (2004-05-29 13:50) [2]

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

← →
Alex Friend © (2004-05-29 13:51) [3]

Ну мне кажется, что стоит просто искать в памяти окно программы, если нашел, то послал ему команду закрыть его.
Процедура вроде FindWindow.
Могу ошибаться. Смотрите help.

← →
Глеб © (2004-05-29 13:54) [4]

Опишите поподробнее, как там можно в CreateProcess ожидание вдавать?

← →
Anatoly Podgoretsky © (2004-05-29 13:55) [5]

Ат если окна нет, то закрылось? В таком случае будут ошибки, то окно еще не создалось, то ли пропустил создание-закрытие окна. Манипулировать надо не с окнами, а с процессами.

← →
Глеб © (2004-05-29 13:56) [6]

А как это сделать?

← →
Семен Сорокин © (2004-05-29 14:01) [7]

Глеб © (29.05.04 13:56) [6]
А как это сделать?
посмотри примеры с CreateProcess и WaitForSingleObject

Где эти примеры лежат?

var
info: TStartupInfo;
proc: TProcessInformation;
begin
FillChar(info,SizeOf(info),0);
with info do begin
cb := SizeOf(info);
dwFlags := startf_UseShowWindow;
wShowWindow := 4;
end;
Createprocess(nil, "c:\megaproga.exe", nil, nil,
false, Create_default_error_mode, nil, nil, info, proc);
Waitforsingleobject(proc.hProcess,infinite);
end;

Завершение чужой программы после её запуска Найти похожие ветки