Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для CJ F.A.N.

Ветеран


Сообщения: 565
Благодарности: 30

Профиль | Сайт | Отправить PM | Цитировать


Вообще, для запуска ЕХЕ используется команда WinExec ('имя программы') . Еще можно использовать shellexecute (надо добавить в раздел Uses модуль shellapi. Завершать можно командой PostMessage(handle завершаемого приложения,WM_CLOSE,0,0);
вот например код:

function closeEXE (Prog_name: string): boolean;
var
h: handle;
begin
h:= FindWindow(nil, Prog_name);
if PostMessage(h,WM_CLOSE,0,0) then
result:= true
else
result:= false;
end;

Prog_name - это заголовок окна программы, которую надо завершить

Это конечно примитивный способ, но вполне достаточно и его, все конечно зависит от конкретных условий

-------
Опыт растет прямо пропорционально выведенному из строя оборудованию

Это сообщение посчитали полезным следующие участники:

Отправлено: 10:29, 08-08-2008 | #2