Показать сообщение отдельно
  #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
Ответить с цитированием