как попроще заархивировать файл и создать сопроводительное письмо

[serna]

Подскажите, пожалуйста, с помощью какого языка программирования лучше всего:
1) работать с файлами (архивация, изменение свойств, копирование, удаление);
2) Данные о файлах (имя, свойства) необходимо заносить в файл *.rtf или *.doc;
3) Чтобы программа требовала дополнительных установок программ по минимуму или не требовала вообще
Я программировала в MS Access (Basic Access), немного знакома с Delphi, Pascal
Мне бы тоже хотелось в Access, но для mde-файла нужна установка MS Access, а мне не хочется привязывать результат программы к установке.
4) Если можно создать exe-файл, то с помощью какого языка программирования это проще сделать.
Если проще изучить другой язык посоветуйте какой?

[Viteef]

В языках высшего уровня (C++/Delphi) много идентичного. Выбирайте тот, синтаксис которого вам больше знаком.

[serna]

Спасибо за совет!
Понравилось ваше фото!

[serna]

Подскажите, пожалуйста,
1) Как добавить в архив файл *.Xml путь к которому прописан в Edit1.text с помощью архиватора, путь к которому описан в Edit2.text.
пробовала с помощью ShellExecute
ShellExecute (Form1.Handle, PChar('open'),PChar(Edit2.text + '\winrar.exe'),
PChar('a '+ Edit1.text + '\*.xml'),nil,SW_ShowNormal);

запускает winrar но выдаёт сообщение
cannot create ...
синтаксическая ошибка в имени файла, метке тома или папке

Сломала голову - не могу найти помогите!

[Viteef]

Сообщение от serna

запускает winrar но выдаёт сообщение
cannot create ...
синтаксическая ошибка в имени файла, метке тома или папке

Возможно системе не понравился длинный путь
(типа C:\Program Files\Outlook Express) и его надо преобразовать в короткий (C:\PROGRA~1\OUTLOO~1)

function LongPathToShort(path:string):string;
var 
 buffer:string;
 len:integer;
begin
 SetLength(buffer, MAX_PATH);
 len:=GetShortPathName(PAnsiChar(path), PAnsiChar(buffer), MAX_PATH);
 SetLength(buffer, len);
 LongPathToShort:=buffer;
end;

Надо проверить правильность пути к файлу. Мы это сейчас сделать не можем, выложите исходники.

[AnalogXP]

А что тут голову ломать, говорят же синтактическая - * - запрещяестя использовать в имени файла. А у вас он есть:

ShellExecute (Form1.Handle, PChar('open'),PChar(Edit2.text + '\winrar.exe'),
PChar('a '+ Edit1.text + '\*.xml'),nil,SW_ShowNormal);

[Viteef]

говорят же синтактическая - *

Как же я сразу не сообразил

Кстати, при использовании этого способа должен быть установлен WinRar. А ведь надо что б

3) Чтобы программа требовала дополнительных установок программ по минимуму или не требовала вообще

Советую использовать этот компонент для архивирования (Проверял на Delphi 7)
1,9 MБ

Можете еще посмотреть
http://codesources.net/delphi-kompon...-shifrovaniem/
и здесь http://pblog.ru/?p=67

[serna]

Спасибо за советы. Я уже догадалась о причине и выполнила поиск файла через FindFirst. Третий параметр команды определил имя файла, его и указала вместо *.