VPF::Rar и Delphi pack/unpack - Форум программистов

Sanek123

Дата 16.12.2009, 13:29 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 201
Регистрация: 22.10.2008

Репутация: нет
Всего: нет

Здравствуйте!
Нашел в сети:

Код


function ExecAndWait(const FileName, Params: string; 
  WindowState: Word): Boolean; 
var
  SUInfo: TStartupInfo; 
  ProcInfo: TProcessInformation; 
  CmdLine: string; 
begin 

  CmdLine := '"' + FileName + '"' + Params; 
  FillChar(SUInfo, SizeOf(SUInfo), #0); 
  with SUInfo do 
  begin 
    cb := SizeOf(SUInfo); 
    dwFlags := STARTF_USESHOWWINDOW; 
    wShowWindow := WindowState; 
  end; 
  Result := CreateProcess(nil, PChar(CmdLine), nil, nil, False,
    CREATE_NEW_CONSOLE or
    NORMAL_PRIORITY_CLASS, nil, 
    PChar(ExtractFilePath(FileName)), 
    SUInfo, ProcInfo); 
  
  if Result then
    WaitForSingleObject(ProcInfo.hProcess, INFINITE);
end;

при абсолютных адресах работает:

Код


ExecAndWait('C:\Rar.exe','a -m5 123.rar C:\123.txt',SW_SHOW);

если адрес вычисляется - не работает:

Код


ExecAndWait(GetCurrentDir+'\Rar.exe','a -m5' + GetCurrentDir+'\ExportDBFile.rar'+ GetCurrentDir+'\123.txt',SW_SHOW);

Подскажите в чем дело?

--------------------

Вас разыскивают бойцы 139-го порта...

Amphiluke

Дата 16.12.2009, 13:57 (ссылка)

(голосов:1)

Загрузка ...

☽

Профиль
Группа: Завсегдатай
Сообщений: 1253
Регистрация: 26.8.2009

Репутация: 5
Всего: 112

Видимо, пробелов не хватает…

Код


ExecAndWait(GetCurrentDir+'\Rar.exe','a -m5 ' + GetCurrentDir+'\ExportDBFile.rar '+ GetCurrentDir+'\123.txt',SW_SHOW);

Добавлено через 3 минуты
Кстати, не забывайте про CloseHandle.

SlaUr

Дата 21.12.2009, 09:41 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 408
Регистрация: 18.9.2003

Репутация: 3
Всего: 5

GetCurrentDir - скорее всего вы находитесь не в той папке где лежит rar
Если вы распакокывайте файл в папке откуда стартовала прога то лучше используйте
ExtractFileDir(paramstr(0)) кстати в свое время я тоже пробовал для распаковки/упаковки rar.exe но заметил что у него с кирилицей не совсем хорошо ,поэтому лучше пользовать winrar.exe (опции коммандной строки тоже понимает) и насколько я помню он упаковывал если находится в корне упаковываемой папки (после упаковки я его удалял из корня)

Это сообщение отредактировал(а) SlaUr - 21.12.2009, 09:47

Akella

Дата 21.12.2009, 10:37 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Цитата(Sanek123 @ 16.12.2009, 13:29

)

если адрес вычисляется

а как ты вычисляешь адрес?

Добавлено через 37 секунд

Цитата(Sanek123 @ 16.12.2009, 13:29

)

GetCurrentDir

Ты хоть посмотрел при дебаге, что возвращает GetCurrentDir? А справку по GetCurrentDir читал?

Добавлено через 1 минуту и 2 секунды

Цитата(Sanek123 @ 16.12.2009, 13:29

)

Нашел в сети:

это мой код smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »