|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Программа для переименования файлов в .htaccess
Веб-сервер Apache (а так же основанные на нём комплексы - денвер, open-server, WAMP, etc...) работает с файлами .htaccess. Их создание связано с некоторой проблемой - Windows не даёт переименовать файл, указывая, что мы не задали имя (имя файла-то начинается с точки). Это решается следующим методом:
1. Создаём файл (например, 1.htaccess) 2. Выбираем "Открыть с помощью", и выбираем нашу программу. Код (ужасно укоротил, убрав кроссплатформенность, зато уменьшив размер): Код:
program dotHtaccess; uses Windows; var fn1, fn2: PChar; I: Integer; begin fn1 := PChar(ParamStr(1)); I := Length(fn1); while I > 0 do if pos(fn1[i], '\/:') <> 0 then break else Dec(I); fn2 := PChar(Copy(fn1, 1, I+1) + '.htaccess'); MoveFile(fn1, fn2); end. При желании, можно кастрировать программу ещё и на "uses Windows", но я не стал этого делать. Итоговый размер exe - 15Кб. Приятного пользования. Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj Последний раз редактировалось PhoeniX, 15.12.2010 в 02:48. |