Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.29;
Скачать: CL | DM;

Вниз

подскажите пожалуйсто как программно управлять архиватором   Найти похожие ветки 

 
Aleks ©   (2006-01-06 20:23) [0]

подскажите пожалуйсто как программно управлять архиватором, пожалуйста примером.
Мне нужно по нажатию кнопки заархивировать папку с файлами и сохранить результат допустим на диск E:\Arxiv.rar
А при нажатии на другую кнопку разархивировать из E:\Arxiv.rar в папку где устоновленна программа.


 
Fay ©   (2006-01-06 20:38) [1]

2 Aleks ©   (06.01.06 20:23)
Следует почитать раровскую справку  про параметры командной строки.
А ещё по ShellExecuteEx. И по WaitForSingleObject.


 
Кефир87 ©   (2006-01-06 20:55) [2]

http://delphimaster.net/view/2-1135859627/


 
Aleks ©   (2006-01-07 10:18) [3]

Кефир87 © --- Я это уже читал и пробовал, у меня не получилось

var w:word;
   NameExe,FileName:array [0.200] of char;------- Вот тут у меня выдаёт ошибку
begin
 StrPCopy(NameExe,<здесь string с путем к архиватору>);
 StrPCopy(FileName,"a -r "+<имя архива>+<путь к файлу + имя файла>);
 w:=ShellExecute(handle,nil,NameExe,FileName,nil,SH_SHOW)
end;


 
Virgo_Style ©   (2006-01-07 10:35) [4]

не надо array of char, просто ShellExecute(...,PChar(NameExe), ...);, где NameExe - string.


 
Kot_   (2006-01-07 14:50) [5]

ShellExecute(0,nil, "winrar.exe",PChar(" a E:\arhiv.rar @файл_список.txt"), nil, SW_SHOW);
Посмотри справочник WinRARа. та есть все команды.


 
Aleks ©   (2006-01-13 23:19) [6]

Спасибо



Страницы: 1 вся ветка

Текущий архив: 2006.01.29;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.055 c
2-1136903460
@gent
2006-01-10 17:31
2006.01.29
Форма одна или много ?


15-1136730921
Новичоккк
2006-01-08 17:35
2006.01.29
Перевод с румынского


15-1136197216
Adil
2006-01-02 13:20
2006.01.29
После Windows Vista WinAPI небудет??


15-1136440696
begin...end
2006-01-05 08:58
2006.01.29
С днём рождения! 5 января


3-1132910094
rleha
2005-11-25 12:14
2006.01.29
Q: Мирно засыпает сессия Delphi7-программы с MS SQL 2000