Переименование группы файлов

Раздел Сокровищница

Приложение является доработкой примера из поставки Дельфи "X:\Program Files\Borland\Delphi6\Demos\ActiveX\ShellExt\" Потребность в данной программе возникла при необходимости переименовать группу выделенных файлов, с чем она прекрасно справляется.

Пример позволяете переименовывать группу файлов в проводнике Windows 95/98/ME. Поддерживается шаблонная операция [*] (звездочка). Приложение интегрируется в оболочку проводника и добавляет команду в контекстное меню. Поддерживает английский и русский язык автоматически (как мне кажется :-)).

Примеры шаблонов:

1. A.JPG - все выделенные файлы примут имя A.JPG, A1.JPG, A2.JPG и т.д.
2. T*.BMP - файлы примут имя с буквы T, а далее будет добавлено исходное имя файла.
3. D.* - расширение файла останется исходным, имена как (1).

Тоже самое относится к расширению файла.

Вы можете доработать алгоритм шаблонной операции, чтобы сделать его более развернутым.

Все основные операции по переименованию в следующих методах (файл ZRFile.pas): procedure TContextMenu.RenameFiles; function TContextMenu.RenameTemplate(strTemplate, strName: String): String;

Скачать проект: (200 K)

Содержание Назад