[Yurk@]

Люди, подскажите плиз: Для сжатия файлов в папке использую команду

Код:

ShellExecute(0,'open','c:\Program Files\WinRAR\rar.exe','a -r d:\SOPS\ARCHIVE\Import.rar d:\SOPS\IMPORT\*.*',nil,SW_NORMAL);

Но по какой-то причине он сжимает все файлы кроме основного, размер которого 50 Мб (а как раз он то мне и нужен) (размер остальных файлов не превышает 3 Мб). В чем причина??

[lmikle]

1. Проверить свободное место на диске.
2. Проверить команду "руками".
3. Если ничего не помогает, то "играть" с CreateProcess, а не с ShellExecute. У меня проблема работы с консольным приложением решилась подбором параметров создания процесса.

[Yurk@]

Спасибо. Вопрос уже решился - я забыл закрыть файл перед архивированием ))
Вопрос номер следующий: в диалоге я выбираю файл в папке D:\SOPS\Data который нужно экспортировать в папку D:\SOPS\IMPORT и после этого заархивировать в папку D:\SOPS\ARCHIVE так вот он импортрует нормально но почему-то архивирует не папку IMPORT а папку DATA (хотя нужно паковать IMPORT)
Вот код команды:

Код:

ShellExecute(0,'open','c:\Program Files\WinRAR\rar.exe',PChar('a -ep1 -m5 '+exForm.App+'ARCHIVE\imTable'+exForm.DTt+'.rar d:\SOPS\IMPORT\*.*'),nil,SW_NORMAL);

P.S. exForm.DTt - фун-ия устанавливающая текущую дату!

[lmikle]

Смотри значения параметров при построении команды.
Для удбства я бы вообще предложил генерировать параметры в отдельные переменные, а потом просто подставлять их в ShellExecute. И в отладчике смотреть что получается.

[Yurk@]

Для удбства я бы вообще предложил генерировать параметры в отдельные переменные, а потом просто подставлять их в ShellExecute. И в отладчике смотреть что получается.

да уже пробывал. никакого эффекта (((

Смотри значения параметров при построении команды.

Уже проверял раз 15

[lmikle]

Ну так сделай через переменные и выложи сюда, блин. В смысле код и значения переменных.

[Yurk@]

Код:

var 
ArPath, ArData :string;

function DT : string;
var
i:integer;
begin
Result := '['+DateTimeToStr(Now)+']';
for i:=1 to Length(Result) do
if (Result[i]='.') or (Result[i]= ':') or (Result[i]= ' ') then Result[i]:='_';
end;

App:=ExtractFilePath(Application.ExeName); (только на другой форме)
DTt:=DT; (только на другой форме)

ArPath:=exForm.App+'ARCHIVE\imTable'+exForm.DTt+'.rar ';
ArData:=exForm.App+'IMPORT\*.*';

ShellExecute(0,'open','c:\Program Files\WinRAR\rar.exe',PChar('a -ep1 -m5 '+ArPath+ArData),nil,SW_NORMAL);