1 respuesta en este tema

[fredycc]

Bueno, estoy desarrollando una pequeña interfaz para dar nombre a un archivo y mostrar el status de compresión a través de 7zip, mi problema es: ¿Cómo detener la conversión correctamente en cualquier momento? o en su defecto mandar ctrl + c para finalizar, y es que cuando finalizo mi aplicación el proceso 7z.exe continua, si lanzo nuevamente la aplicación y finalizo aparece nuevamente 7z.exe en mi monitor de tareas con lo q puedo ver dos procesos 7z.exe y así sucecivamente claro con archivos distintos cada uno.
mi código es:

delphi

  Memo1.Lines.Clear;
  try
    aProcess := TProcess.Create(nil);
    cmd:=Format('"7z" a "c:\resp\RESP_%s_%s_%s.7z" "L:\SIBANCS\DAT\" -t7z -mx=2 -mtc=on -xr!RESPCONT* -xr!RESPDIA*',
                                             [Edit1.Text,
                                              FormatDateTime('ddmmyy', DateEdit1.Date),
                                              FormatDateTime('hhnnss', Now)]);
    Memo1.Lines.Add(cmd);
    AProcess.CommandLine :=cmd;
    AProcess.Options := AProcess.Options + [poNoConsole, poUsePipes];
    AProcess.Execute;
    Application.ProcessMessages;
    Memo1.Lines.LoadFromStream(AProcess.Output);
  finally
    AProcess.Free;
  end;
  Memo1.Lines.Add('');  
 
procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
 
   //No se que colocar aquí; 
end;

gracias y saludos.

[German]

AProcess.Terminate(0); ??