Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

26th
Дек

Создать программно 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 ) ?!

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