Продолжение темы
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'а