Скачать: CL | DM;

нетривиальная задача ,нужно заархивировать 30 файлов в zip   Найти похожие ветки 

← →
DINOEL ©   (2007-08-08 13:50) [0]

Здравствуйте, уважаемые знатоки.
Не так давно начал изучать delphi, но уже столкнулся с сложной задачей.
У меня есть 30 файлов, нужно получить 30 архивов zip или rar, при этом на каждом из архивов будет свой пароль.

Т.е. допустим есть tot1.txt, tot2.txt…tot30.txt,
нужно получить tot1.zip (пароль tot1), tot2.zip (пароль tot2)…tot30.zip (пароль tot30)

Подскажите ,пожалуйста, как мне это реализовать средствами Delphi и можно ли вообще?
Я так понимаю, что нужно запускать в цикле pkzip.exe или что то типа этого, подставлять программно параметры – имя файла, пароль и пр

С уважением, Леонид.

---

← →
Virgo_Style ©   (2007-08-08 14:06) [1]

DINOEL ©   (08.08.07 13:50)
Подскажите ,пожалуйста, как мне это реализовать средствами Delphi и можно ли вообще?
Я так понимаю, что нужно запускать в цикле pkzip.exe или что то типа этого, подставлять программно параметры – имя файла, пароль и пр

Все верно. см. ShellExecute.

---

← →
DINOEL ©   (2007-08-08 14:11) [2]

Virgo_Style

Спасибо за подсказку !

---

← →
DINOEL ©   (2007-08-08 15:55) [3]

Странно, не работает ShellExecute

делают так:

procedure TForm1.Button1Click(Sender: TObject);
var
path,param: PAnsiChar;
a:integer;
begin
 path:="c:\Program Files\WinRar\Rar.exe";
 param:="a c:\test.rar c:\test.txt";
ShellExecute(application.Handle,"open",path,param,nil,SW_HIDE);
end;


Пишет:
undeclared identifier ShellExecute

А если вместо ShellExecute

WinExec("Notepad c:\config.sys", SW_SHOW);
- то  нормально проходит

не подскажете, что я не так делаю  c ShellExecute?

---

← →
medved_68 ©   (2007-08-08 16:02) [4]

> Пишет:
> undeclared identifier ShellExecute

uses ShellApi; :)))

---

← →
DINOEL ©   (2007-08-08 16:02) [5]

Т.е. в принципе приложение запустить могу, с помощью winExec, но вот ShellExecute почему-то не работает...

---

← →
Alarm ©   (2007-08-08 16:02) [6]

Uses ShellAPI;

---

← →
DINOEL ©   (2007-08-08 16:03) [7]

medved_68
Спасибо, всё получилось :-)

---

← →
Alarm ©   (2007-08-08 16:04) [8]

:(

---

← →
DINOEL ©   (2007-08-08 16:04) [9]

Alarm
спасибо !

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.017 c