Error al crear zip y añadirle archivos.

[pgranados]

Empezado por Neftali [Germán.Estévez]

En mi máquina ese código también funciona corectamente.
Compilado con Delphi 11.2 Patch 1
No uso Winrar, pero con 7Zip (a mi entender mejor que Winrar) funciona correctamente.

Hola Neftali, estoy teniendo un problema, necesito comprimir un archivo .FBK porque el modulo es para respaldar la base de datos del cliente, pero al crear el FBK con el GBAK utilizando shellExecute y quererlo comprimir en el .ZIP da un error, donde el archivo X.FBK no esta disponible o esta siendo usado por otra persona, pero si ejecuto este proceso utilizando un Stop y siguiendo cada linea con F8 no tengo problemas.

¿Sabrás que puede estar pasando?

Código Delphi [-]
ShellExecute(Handle, 'runas', PChar(psFichero), PChar(psInstruccion), nil, SW_HIDE);

  lspaso:= ERuta.Text+'\'+Enombreresp.Text+'.ZIP';
  lspaso2:=  Eruta.Text+'\'+ENombreResp.Text+'.FBK';

    Zip:= TZipFile.Create;
    try
    Zip.Open(lspaso, zmWrite);
    Zip.Add(lspaso2);
    finally
    Zip.Free;
    end;