Fórum Compactar com winzip #288502

ShellExecute(Application.Handle,´OPEN´, ´winzip32.exe´,nil, PChar(ExtractFilePath(´winzip32.exe´)),sw_Maximize);

ShellExecute(Application.Handle,´OPEN´, ´winzip32.exe´,´-a -r -ex "´+DirDestino+´" ´+´"´+Origem+´"´, PChar(ExtractFilePath(´winzip32.exe´)),sw_Maximize);

ShellExecute(Application.Handle,´OPEN´, ´winzip32.exe´,PChar(´-min -a -ex "´ + Destino + ´" ´ + ´"´ + Origem + ´"´), PChar(ExtractFilePath(´winzip32.exe´)),sw_Maximize);

ShellExecute(Application.Handle,´OPEN´, ´winzip32.exe´,PChar(´-min -a -ex "´ + Destino + ´" ´ + ´"´ + Origem + ´"´), PChar(ExtractFilePath(´winzip32.exe´)),sw_Maximize);

Procedure TFrmCopiaZip.Copia;
Var
    Cont,x,Aux,Erro : integer;
    NomeArq,tipo,Comando,DirDestino,Destino,Origem,Alias,Caminho : String;
    POrigem,PDestino,PArquivo : Array[0..1000] of char;
    Data:String;
Begin
    Cont := 0;
    Screen.Cursor := crHourGlass;
    DirDestino := DirList.Directory; // Ja com "\" se for unidade disquete

    pbCaminho_zip := ExtractShortPathName(pbCaminho_zip);

    Inc(Cont);
    // Pega cada um dos Alias
    For Aux := 0 to CheckListBox1.Items.count-1 do
    Begin
        If CheckListBox1.Checked[Aux] = False then
            Continue;

        Alias := UpperCase(CheckListBox1.Items.Strings[Aux]);
        If not Session.IsAlias(Alias) then
        Begin
            MessageDlg(´Alias não encontrado: ´+Alias,mtInformation,[mbOk],0);
            Continue;
        End;
        Caminho := FrmFuncoes.RetornaAlias(Alias); //C:\sistema\fat\db
        Caminho := ExtractShortPathName(caminho);

        If DirectoryExists(Caminho) then
            Origem := Caminho
        else
            Continue;

    // Avisa que vai substituir
    Destino:= ´ ´+DirDestino +´\´+Alias +´.zip´;
    If FileExists(Trim(Destino)) then
    Begin
       MessageDlg(´Arquivo de backup existente. Ele será atualizado.´,mtInformation,[mbOK],0);
    End;

      ShellExecute(Application.Handle,´OPEN´, ´winzip32.exe´,PChar(´-min -a -ex "´ + Destino + ´" ´ + ´"´ + Origem + ´"´), PChar(ExtractFilePath(´winzip32.exe´)),sw_Maximize);

    {
    WinExec(PChar(´C:\Arquivos de Programas\WinZip\WinZip32 -a -r -ex "´
    +DirDestino+´\´+Alias+´" ´+´"´+Origem+´"´),1);
      ShowMessage(´Arquivo "´+UpperCase(Alias)+´.ZIP" criado na pasta "´+
                            UpperCase(DirDestino)+´"´);
    } 
    End;

    Screen.Cursor := crDefault;
    GravaDataBackup;
    MessageDlg(´Fim do Backup com sucesso.´,mtInformation,[mbOk],0);
End;