Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Shellexecute и rar.exe


Близнец ©   (2006-05-16 08:11:00) 

Доброго времени суток!
В папке с программой лежит rar.exe. Программа должна архивировать все файлы и каталоги из dir_path с помощью данного файла. Использую код
if (ShellExecute(Handle,'open','rar.exe',PAnsiChar('a -agYYYYMMDD -ep1 -t -r '+filename+' '+'"'+dir_path+'\*.*"'),PAnsiChar(path),SW_show))>32
    then showmessage ('Архивирование закончено!')
        else showmessage ('Архивирование завершилось неудачей!')

path - путь к папке с программой
Проверялась работа на 4 машинах, на двух с системами XP и 98 все сработало, на других двух с такими же системами Shellexecute выполнилась успешно, но архив создан не был. Укажите, плз, где что не так.
И еще вопрос по теме: как отследить действительно ли архивирование закончено, а то получается по условию просто проверяется удачно ли выполнена Shellexecute?


Близнец   (2006-05-16 16:15:00) [1]

Спасибо
А первая моя проблема решилась заключением filename в двойные кавычки :)


Игорь Шевченко   (2006-05-16 13:09:00) [2]


> как отследить действительно ли архивирование закончено,
> а то получается по условию просто проверяется удачно ли
> выполнена Shellexecute?


ShellExecuteEx + WaitForSingleObject


balepa   (2006-05-16 09:19:00) [3]

WaitForSingleObject
WaitForMultipleObjects


Наверх

Титульная страница Поиск, карта сайта Написать письмо