Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Узнать о том что программа закрылась... [D6, WinXP]

Falcon(TFsoft) © (2005-01-20 21:56:00)
Здравствуйте.

Подскажите пожайлуста, каким образом мне узнать что внешняя программа вызываемая из моей программы методом Winexec (или каким другим методом) закончила своё действие, тоесть закрылась.
К примеру пробовал такой вариант:
ProgramHandle := Winexec(PChar(format('%s m -ep1 "%s" "%s"',[RarPath, AName, FromDir])), SW_RESTORE); while IsWindowVisible(ProgramHandle) do Sleep(25);

Тут вызывается к примеру ехе рара, мне нужно дождаться пока он упакует файлы, после чего провести следующие операции, но описанный метод не работет... :(
Объясните где моя ошибка, или подскажите каким образом узнать когда рар закроется - тоетсь выполнит своё действие?

Зарание благодарен.

Александр1 (2005-01-21 06:48:00) [1]
Сделай так. Программа которая у тебя чё-то упаковывает пусть создаёт файл например x.xxx. Пока прога работает файл существует. При закрытии программы (при выполнении процедуры procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DeleteFile('x.xxx.’);
end;)
Основная программа следит за файлом непрерывно. Проверяет его наличие. Если файл исчезнет значит программа завершила свою работу.

procedure TForm1.Timer1Timer(Sender: TObject);
var ss:string;
begin
ss:=FileSearch(ExtractFilePath(Application.ExeName)+'x.xxx','');
if ss<>ExtractFilePath(Application.ExeName)+'x.xxx' then begin
…..
…..
Файл исчез, значит, программа завершилась
end;
Вот и всё!

aus (2005-01-21 04:01:00) [2]
var ProcessInformation: _process_information; SInfo: _startupinfoa; ............... CreateProcess(nil,pchar(CmdLine),nil,nil,false,NORMAL_PRIORITY_CLASS,nil,nil,sInfo,ProcessInformation); WaitForSingleObject(ProcessInformation.HProcess,INFINITE); ...............

jack128 (2005-01-21 01:20:00) [3]
Falcon(TFsoft) © (21.01.05 0:48) [2]
может я какой-то параметр задаю неправлино?
может быть. А мы откуда знаем?? Код давай, а там посмотрим.

Falcon(TFsoft) (2005-01-21 00:48:00) [4]
Пробовал, но вызывало ошибку, может я какой-то параметр задаю неправлино?
Если не сложно то напиши какие они должны быть...

aus (2005-01-20 22:00:00) [5]
CreateProcess()
WaitForSingleObject()

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »