Создать программно rar архив

Posted by Chas under Delphi

подскажите как лудче сжать файл используя ShellExecute или WinExec

Serge_Bliznykov
как вариант (для ShellExecute), можно воспользоваться консольной версией: RAR.exe

вот пример:

uses ....., Windows; 

procedure PackFile( sFName, sDestPath : string);

var si:TStartupInfo;

    pi:TProcessInformation;

    cmdline:string;
begin

    ZeroMemory(@si,sizeof(si));

    si.cb:=SizeOf(si);

    cmdline:='C:\UTIL\ARCS\Rar.exe a -m5 "C:\Test\masodovs.rar" c:\ForPack\*.*';

    if not CreateProcess( nil, // No module name (use command line).

        PChar(cmdline),  // Command line.

        nil,             // Process handle not inheritable.

        nil,             // Thread handle not inheritable.

        False,           // Set handle inheritance to FALSE.

        0,               // No creation flags.

        nil,             // Use parent's environment block.

        nil,             // Use parent's starting directory.

        si,              // Pointer to STARTUPINFO structure.

        pi )             // Pointer to PROCESS_INFORMATION structure.

       then

        begin

         WriteLn( 'CreateProcess failed. ('+cmdline+')' );

         Exit;

        end;

    WaitForSingleObject( pi.hProcess, INFINITE );

    CloseHandle( pi.hProcess );

    CloseHandle( pi.hThread );

    WriteLn('Done !');

end;

Обращаю Ваше внимание на то, что для запаковки в RAR нужно или таскать rar вместе со своей программой, либо он должен быть установлен на компьютере.
Кроме того, напоминаю, что RAR — это коммерческий продукт, использование его без лицензии (оплаты) для запаковки архивов — незаконно.
Чем не нравится/не устраивает 7Z (или даже старый добрый простой ZIP ) ?!

тема на форуме

Похожие статьи

• Как разархивировать rar архив?
• Как разархивировать архив .rar
• Запаковать файл в zip архив
• Добавить файл в архив rar
• Вывод StdOut консоли в TMemo
• Запуск сторонней программы с передачей строки и ожиданием ее завершения
• Cоздать точную копию файла, но с расширением *.txt
• Создание архивных копий базы
• Как запретить убивать процесс через диспетчер задач?
• Как проверить наличие файлов в папке мои документы?