[dm-451]

Здравствуйте. Использую команду

Код:

1	WinExec('D:\program files\winrar\rar.exe a -f -hp[123] D:\\123.rar D:\\myfilename.txt',0);

для добавления файла в архив. Всё хорошо добавляется, но после выполнения в процессах висит Rar.exe. И, например, при попытке перезаписать архив - ругается, что этот архив используется другим приложением. Приходится вручную убивать процесс в диспетчере задач. Подскажите, пожалуйста, как это можно реализовать в делфи или какой-нибудь другой способ работы с архивами?
Заранее благодарен.

[uberchel]

Держи!

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

// Не забудь поставить модуль в implementation uses TLhelp32;   // Функция KillTask function KillTask(ExeFileName: string): integer; const PROCESS_TERMINATE=$0001; var ContinueLoop: BOOL; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32; begin result := 0;  FSnapshotHandle := CreateToolhelp32Snapshot (TH32CS_SNAPPROCESS, 0); FProcessEntry32.dwSize := Sizeof(FProcessEntry32); ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32); while integer(ContinueLoop)<> 0 do begin if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) = UpperCase(ExeFileName))) then Result := Integer(TerminateProcess(OpenProcess( PROCESS_TERMINATE, BOOL(0), FProcessEntry32.th32ProcessID), 0)); ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);end; CloseHandle(FSnapshotHandle); end;   //Вот твой код WinExec('D:\program files\winrar\rar.exe a -f -hp[123] D:\\123.rar D:\\myfilename.txt',0); KillTask('rar.exe'); // А вот так убиваем процесс