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

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

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

DINOEL ©   (2007-08-08 13:50:00) 

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

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

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

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

---

Alarm   (2007-08-08 16:04:00) [1]

:(

---

DINOEL   (2007-08-08 16:04:00) [2]

Alarm
спасибо !

---

DINOEL   (2007-08-08 16:03:00) [3]

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

---

medved_68   (2007-08-08 16:02:00) [4]

> Пишет:
> undeclared identifier ShellExecute

uses ShellApi;:)))

---

DINOEL   (2007-08-08 16:02:00) [5]

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

---

Alarm   (2007-08-08 16:02:00) [6]

Uses ShellAPI;

---

DINOEL   (2007-08-08 15:55:00) [7]

Странно, не работает 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?

---

DINOEL   (2007-08-08 14:11:00) [8]

Virgo_Style

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

---

Virgo_Style   (2007-08-08 14:06:00) [9]

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

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

---

Наверх