В чем ошибка?

← →
DSKalugin © (2004-06-18 12:20) [0]

По нажатию на эту кнопку должна закрыться БД, сархивироваться РАРом и открыться. Архиватор запускается, но выдает ошибку "Нет файлов для добавления". Хотя в командной строке виндовс все работает. В чем ошибка?
procedure TfmECatalog.bt_ArcECatClick(Sender: TObject); var RARName, cmdLine, exe: AnsiString; D: TDate; Year, Month, Day: Word; cc:Boolean; StartupInfo: TStartupInfo; ProcessInfo: TProcessInformation; SecAtrrs: TSecurityAttributes; begin D:=Date; DecodeDate(D, Year, Month, Day); RARName:="ec_"+IntToStr(Day)+IntToStr(Month)+IntToStr(Year)+".rar"; FormCloseQuery(nil, cc); try Screen.Cursor:=crSQLWait; Application.ProcessMessages; cmdLine:=" A -ep "+IN_DIR+RARName+" "+dbDir+"\*.*"; exe:="C:\Program Files\WinRAR\WinRAR.exe"; FillChar(StartupInfo, SizeOf(StartupInfo), #0); StartupInfo.cb := SizeOf(StartupInfo); StartupInfo.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES; StartupInfo.wShowWindow := SW_SHOW; // if not CreateProcess(PChar(exe), PChar(cmdline), nil, nil, False, NORMAL_PRIORITY_CLASS or CREATE_NEW_PROCESS_GROUP, // флаги создания nil, PChar(dbDir), // текущая директория StartupInfo, ProcessInfo); //then raise ERangeError.CreateFmt("Start WinRAR failed"); WaitForSingleObject(ProcessInfo.hProcess, INFINITE); CloseHandle(ProcessInfo.hProcess); CloseHandle(ProcessInfo.hThread); finally Screen.Cursor:=crDefault; FormCreate(nil); end; end;

← →
savva © (2004-06-18 12:50) [1]

я бы все длинные имена (в путях к фалам и директориям) заключил бы в "

← →
DSKalugin © (2004-06-18 13:13) [2]

Дык рар запускается, а в параметрах пути без пробелов

C:\Program Files\WinRAR\WinRAR.exe A -ep F:\projects\ecat\ec_IN\ec_1862004.rar F:\projects\ecat\ECDB\*.*

← →
DSKalugin © (2004-06-18 13:34) [3]

2 savva ©
СПАСИБО!!!
В кавычки оказуется надо было брать патаметры, причем каждый!

Итак правильный ответ:
winrar "A" "-ep1" "F:\projects\ecat\ec_IN\ec_1862004.rar" "F:\projects\ecat\ECDB\*.*"

В чем ошибка? Найти похожие ветки