Карта сайтаСсылкиКонтакты

Запуск/закрытие другого приложения

PDF Печать
Статьи

Как запустить/закрыть другое приложение из своего приложения.

Используйте вызов API функции ExecuteProcess, чтобы запустить приложение и TerminateProcess для того, чтобы закрыть это приложение.

Пример использования


var
MyHandle     : THandle;
MyStartupInfo: TStartupInfo;
MyProcessInfo: TProcessInformation;

procedure TMyForm.ExecuteApp(MyPath: String);
begin
FillChar(MyStartupInfo, SizeOf(MyStartupInfo), 0);
// Очистить данные в MyStartupInfo.

MyStartupInfo.cb:=SizeOf(MyStartupInfo);

CreateProcess(PChar(MyPath), nil,  nil, nil, False,   
               DETACHED_PROCESS, nil, nil, MyStartupInfo, 
               MyProcessInfo);

MyHandle:=MyProcessInfo.hProcess;
// Назначает дескриптор выполняемого приложения на MyHandle, этот   
// дескриптор необходим для завершения приложения.
end;

procedure TMyForm.CloseApp(MyHandle: THandle);
begin
TerminateProcess(MyHandle, 0);
end;

 

Добавить комментарий


Защитный код
Обновить