Раздел 16.11.2011

Определить последний (по дате) измененный файл в папке

using VBScript_RegExp_55_TLB;

function get_file(folder: string; mask: string):string;
var
  max_date  : TdateTime;
  file_date : TDateTime;
  myRegExp1 : TRegExp;
  mc: MatchCollection;
  file_n: string;
  i: integer;
  SR : TSearchRec;
begin

  max_date := StrToDateTime('01.01.1970 00:00:00');
  myRegExp1 :=TRegExp.Create(self);
  myRegExp1.IgnoreCase := true;
  myRegExp1.Global := false;
  myRegExp1.Pattern := mask;
  file_n := '';

  if FindFirst(folder+'\*.*', faAnyFile, SR) = 0 then
  begin
    repeat
      mc:=myRegExp1.Execute(SR.Name) as MatchCollection;
        if mc.Count > 0 then begin
          file_date := GetFileDate(folder+'\'+SR.Name);
          if file_date > max_date then begin
            max_date:=file_date;
            file_n := folder+'\'+SR.Name;
          end;
        end;
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;

 result:=file_n;
end;

BDE for Windows 7 x64

Понадобилось установить Delphi под Windows 7 64-разрядную, а BDE не работает? Вот и у меня была такая проблема. В нетрах инета нашел коммерческую BDE eXpress, но за нее хотят денег. А потом на каком-то форуме добрые люди выложили набор каталогов и инструкцию по установке. Я все это собрал в инсталляционный файл. Так что ежели кому надо скачивайте здесь: BDE for Windows 7 x64 .

Отправка СМС

Эта небольшая программа может отправить на указанный в настройках номер телефона получателя, IP-адрес отсылающего компьютера и какой-нибудь текст. Работает с разными устройствами. Тестировалась на Siemens MC75 и Samsung Wave s8500. Программа проверяет COM-порты в системе на наличие GSM-модема и отправляет сообщение. Ссылка для скачивания: Отправка СМС

Подмена пароля для файлов Excel

Если вы установили пароль на проект VBA Excel (97-2003) а потом удачно его забыли, эта небольшая утилита заменит этот пароль на 111 . После чего, можно открыть проект. Ссылка для скачивания: Сброс пароля Excel VBA

Автозаполнение для Opera 8+

В Opera не существует стандартных средств для того чтобы сохранить инфомацию которую Вы вводите в формы. Cкрипт ,который я сделал, поможет сохранить в куки большинство информации из заполненной формы.

Кнопки располагаются справа внизу активной старницы, если страница содержит тэг FORM

  1. Кнопка «Save» — сохраняет данные формы
  2. Кнопка «Delete» — удаляет данные формы
  3. Кнопка «Clear» — нужна чтобы очистить ранее введенные значения в текстовые поля
  4. Кнопка «Hide» — убирает панель для активной страницы навсегда (чтобы показать панель, надо удалить куку «noshow»)


  1. Для установки скрипта скачайте Автозаполнение для Opera 8+ и распакуйте в какой-нибудь каталог.
  2. Добавьте путь к скрипту, в опции JavaScript:
  3. Откройте тестовую страницу с формой, например эту

PS: — скрипт не заполняет checkbox-ы и радио кнопки.