Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.27;
Скачать: CL | DM;

Вниз

Контроль внешнего процесса   Найти похожие ветки 

 
Vasily_ ©   (2003-03-17 21:31) [0]

Как проконролировать завершение внешней программы, запущеной из моего приложения?
Заранее благодарен за ответ, жедательно с примером.


 
Юрий Зотов ©   (2003-03-17 21:49) [1]

implementation

uses
Unit2;

procedure TForm1.Button1Click(Sender: TObject);
begin
with TMyThread.Create(False) do
begin
CommandLine := "Notepad.exe AutoExec.bat";
WorkingDirectory := "C:\";
OnTerminate := ThreadFinished
end
end;

procedure TForm1.ThreadFinished(Sender: TObject);
begin
with TMyThread(Sender) do
begin
Caption := IntToStr(ExitCode);
Free
end
end;

=========================================================

unit Unit2;

type
TMyThread = class(TThread)
private
FCommandLine: string;
FWorkingDirectory: string;
FExitCode: DWORD;
protected
procedure Execute; override;
public
property CommandLine: string read FCommandLine write FCommandLine;
property WorkingDirectory: string read FWorkingDirectory write FWorkingDirectory;
property ExitCode: DWORD read FExitCode;
end;

implementation

procedure TMyThread.Execute;
var
SI: TStartupInfo;
PI: TProcessInformation;
begin
ZeroMemory(@SI, SizeOf(SI));
SI.cb := SizeOf(SI);
if CreateProcess(nil, PChar(FCommandLine), nil, nil, False, 0, nil, PChar(FWorkingDirectory), SI, PI) then
begin
CloseHandle(PI.hThread);
while not Terminated and (WaitForSingleObject(PI.hProcess, 1000) = WAIT_TIMEOUT) do;
if Terminated or not GetExitCodeProcess(PI.hProcess, FExitCode) then FExitCode := $FFFFFFFF;
CloseHandle(PI.hProcess)
end
else FExitCode := GetLastError
end;


Запуск из основного потока:




Страницы: 1 вся ветка

Текущий архив: 2003.03.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
3-87794
ddd
2003-03-07 12:59
2003.03.27
sql кто на втором месте?


8-88092
SaperXL
2002-12-15 02:12
2003.03.27
нужна быстрая графика , желательно на основе компонентов


1-87890
LoCKeR
2003-03-16 12:49
2003.03.27
Как показать файлы, как в проводнике?


1-87995
Тундра
2003-03-13 09:54
2003.03.27
ExcelApplication


14-88149
pirat
2003-03-12 18:55
2003.03.27
нужна процедура архивации