• Перечисление кодировок ( for ei In TEncoding.Encodings do; )
• Получение кодировок по имени ( TEncoding.GetEncoding('utf-8'), TEncoding.GetEncoding('windows-1251') итп. )
• Получение кодировок по кодовой странице ( дополнительно поддерживаются 1200, 1201, 65000, 65001 )
• Получение информации о кодировке ( TEncoding.UTF8.GetInfo; TEncoding.UTF8.CodePage; TEncoding.UTF8.Name; итп. )
  

16.12.2006
Надоело мне открывать лоток CD-привода руками (на ноутбуке не сильно удобно, кнопка плохо нащупывается), поэтому наваял маленький утиль CDEject (8902 bytes). Прицепил ее запуск на одну из служебных кнопок (на Тошке, панелька слева), теперь у меня почти эпловский эджект :)

10.12.2006
В блоге я уже описывал процесс подключения сторонних (или собственных) пакетов в Turbo Delphi Explorer, сегодня выкладываю модуль реализующий эту задачу и исключающий необходимость саморегистрации пакетов. Пользуйтесь :)

Добавлено 1.1.2007 (многие говорят, что не могут установить пакеты, объясняю как):

• Открываете устанавливаемый пакет (например package.bpk)
• Делаете ему Build
• Выгружаете Delphi IDE
• В файл packages.lst добавляете этот пакет (например full_path\package.bpl) с указанием пути
• Запускаете Delphi IDE
• Снова открываете этот пакет (например package.bpk)
• И делаете ему Install (после этого пакет из packages.lst можно смело убирать ;)
• Теперь все.  Эта схема проверена и является работоспособной (у меня установлен Update 2 и все работает). Инструкция в архиве обновлена.

Тест для проверки качества системы охлаждения на ноутбуках, сердцем которых являются мобильные процессоры компании AMD.

15.12.2004

У меня MaxSelect Mission A6Wide на базе AMD Mobile Athlon XP 2400+ (Barton, 45W). Замеченная с ним проблема перегрева побудила меня к написанию данного теста, дабы показать сотрудникам СЦ, что перегрев все же присутствует. Дело в том, что в XP SP2 драйвер процессора хитрит: когда при полной нагрузке начинает расти температура процессора, он просто сбрасывает тактовую частоту проца (а по идее делать он этого не должен, ибо есть система охлаждения). Но это было бы не страшно (хотя и не правильно), если б со своей задачей он справлялся, ведь если он не успеет среагировать, то ноутбук отключится от перегрева. И такая ситуация возможна, но достаточно трудна для воспроизведения (а работникам СЦ как доказать?). У меня такое случилось, когда я запустил две виртуалки VirtualPC, и одновременно копировал образ диска одной из них. Второй случай был, когда я распаковывал новый Platform SDK на сетевой диск виртуальной машины, а доблестный Dr. WEB мониторил все это безобразие ;). Улавливаете сходство? Да, правильно, очень сильно были загружены системные механизмы ОС (в особенности дисковая подсистема), в результате чего драйверу процессора не хватало времени на сброс тактовой частоты (хотя, по моему глубокому убеждению, делать он этого и не должен). Ну и как такую ситуацию воспроизвести в СЦ? Утилиты вроде CPU Burn- In не помогают т.к. при их работе драйвер процессора все равно шевелится и делает свое черное дело ;). Вот я и написал простенький тест, который блокирует работу вообще всех системных механизмов настолько, насколько это вообще возможно с приоритетом TimeCritical. В результате мой ноутбук не выживает и пяти минут :(

Теперь о тесте :

Запускать из командной строки и передавать в параметре количество секунд для тестирования ( acpuburn. exe 600 – тестирование в течение 10 минут). Если по истечении времени теста ваша система жива – значит все у вас хорошо ;). ВНИМАНИЕ! Во время работы теста, система будет полностью блокирована, вы не сможете использовать даже “мышь”.

Скачать (91,4Kb)