[dm-451]

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

Код:

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

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

[uberchel]

Держи!

Код:

// Не забудь поставить модуль в
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'); // А вот так убиваем процесс