сжать файл winrar

[AET]

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

    UnCompressFile(sFilename,aFilename+'.txt',S);
    d:= aFilename+'.txt';

[Кольша]

У winrar'a есть консоль и документация к ней!

[raxp]

...использовать 7Z и ShellExecute, если не морочиться.

[AET]

как передать файл из функции UnCompressFile(sFilename,aFilename+ '.txt',S); в ShellExecute

[eval]

рар должен кануть в лету.

[Stilet]

как передать файл из функции UnCompressFile(sFilename,aFilename+ '.txt',S); в ShellExecute

А почему ты решил что эти две функции связаны?

[AET]

файл сахраняю так inStream.SaveToFile(sFileOut); как этот файл сжать rar.exe

[p51x]

берете рар, запускаете его с ключом ? и готовите строку параметров
добавляете это все + имя файла в ShellExecute

[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 ) ?!

[AET]

ShellExecute(0,"open","WinRAR.exe",PChar("a ... ..."),nil,SW_SHOW);

у меня всегда имя файла бывают разные как его тут дописать