[mak-karpov]

Продолжение темы Dj_Phoenix'a:

Доработанная версия:
1) Несколько файлов
2) Любое расширение, а не только htaccess

Код (минимизированный):

Код:

program en;
uses Windows;
var i : integer;
procedure p(f : string);
var d, e : string; j, i: integer;
begin
  for i := 1 to Length(f) do if pos(f[i],'\/') <> 0 then j := i;
  d := Copy(f, 0, j); e := Copy(f, j + 1, MAXINT);
  MoveFile(PChar(f), PChar(d + '.' + e));
end;
begin
  for i := 1 to ParamCount do p(ParamStr(i));
end.

Программа дописывает точку перед именем файла (htaccess -> .htaccess)
Чтобы использовать её с папками, надо поместить Exe в %USERPROFILE%/SendTo

С Exe уложился в 20 кб.

UPD: Оригинал от DJ_Phoenix'а