Веб-сервер 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Кб.
Приятного пользования.