Помогите решить проблему....

← →
Vlad (2003-10-10 12:17) [0]

Добрый день.
Проблема следующая. Выполняю разархивирование файлов arj с помощью команды ShellExecute. Файлов arj м.б. несколько, поэтому пытаюсь выполнить ShellExecute в цикле. Судя по всему это неверно, т.к. нужно чтобы файлы разархивировались последовательно, т.е. следующая команда не запускалась до тех пор, пока не отработает предыдущая. Как можно программно узнать, что предыдущая команда (указанная в коммандной строке в ShellExecute) закончила свое выполнение?
Спасибо.

← →
ORMADA (2003-10-10 12:22) [1]

глянь инфу по createprocess было взято здеся на форуме ищи лучше!!!

procedure TForm1.Button1Click(Sender: TObject);
var si:STARTUPINFO;
pi:PROCESS_INFORMATION;
cmdline:string;
begin
ZeroMemory(@si,sizeof(si));
si.cb:=SizeOf(si);
cmdline:="c:\command.com";
if not CreateProcess( nil, // No module name (use command line).
PChar(cmdline), // Command line.
nil, // Process handle not inheritable.
nil, // Thread handle not inheritable.
False, // Set handle inheritance to FALSE.
0, // No creation flags.
nil, // Use parent"s environment block.
nil, // Use parent"s starting directory.
si, // Pointer to STARTUPINFO structure.
pi ) // Pointer to PROCESS_INFORMATION structure.
then
begin
ShowMessage( "CreateProcess failed." );
Exit;
end;
WaitForSingleObject( pi.hProcess, INFINITE );
CloseHandle( pi.hProcess );
CloseHandle( pi.hThread );
ShowMessage("Done !");
end;

← →
ORMADA (2003-10-10 12:24) [2]

кстати работаю с Winrar он спокойно такое воспринимает
цикл//
s := "WinRar.exe e -y " + Parameter[4] + "\" + ArhName + " " + Parameter[3];
writeln(s);
WinExec(PChar(s), 1);
енд//

← →
Verg (2003-10-10 12:24) [3]

Запускай архиватор не через ShellExecute, а "врукопашную" - через CreateProcess. Там ты сможешь подождать завершения процесса через WaitFor... функции.

← →
Vlad (2003-10-10 12:25) [4]

Большое спасибо!

Помогите решить проблему.... Найти похожие ветки