Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Разное > Исходники и статьи
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 15.12.2010, 02:43
Аватар для PhoeniX
PhoeniX PhoeniX вне форума
Always hardcore!
 
Регистрация: 04.03.2009
Адрес: СПб
Сообщения: 3,239
Версия Delphi: GCC/FPC/FASM
Репутация: 62149
По умолчанию Программа для переименования файлов в .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.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 00:47.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter