procedure ClearWindowLogs;
var hnd: THandle;
begin
// System
hnd := OpenEventLog(nil, 'System');
if hnd <> 0 then
try
ClearEventLog(hnd, nil);
finally
CloseEventLog(hnd);
end;
// Application
hnd := OpenEventLog(nil, 'Application');
if hnd <> 0 then
try
ClearEventLog(hnd, nil);
finally
CloseEventLog(hnd);
end;
// Security
hnd := OpenEventLog(nil, 'Security');
if hnd <> 0 then
try
ClearEventLog(hnd, nil);
finally
CloseEventLog(hnd);
end;
end;
April 12, 2008
Функция для очистки логов Windows (Delphi)
Как красиво закрыть программу?
Хотите украсить закрытие программы, например, чтобы окно программы плавно становилось прозрачней, а потом совсем вскрылось? Нет ничего проще! Пишем в событие OnClose главной формы:
AnimateWindow(WindowHandle, 500, AW_BLEND or AW_HIDE);
April 11, 2008
Сколько раз программу скачали?
Простой вопрос и простой ответ (релизация через Google Analytics):
<a href="http://www.primer.ru/files/map.pdf" mce_href="http://www.primer.ru/files/map.pdf" onClick="javascript:urchinTracker ('/downloads/map'); ">
где http://www.primer.ru/files/map.pdf - ссылка на ваш файл.
Внимание! Если ты уже используешь urchinTracker на этой странице (для статистики), помести его в самый низ, перед закрывающим тегом </body>.
Чтобы определить правильность вызова urchinTracker, можно проверить отчет Самое популярное содержание через 24-48 часов после выполнения обновленного кода отслеживания. В отчете должно появиться назначенное название страницы.
April 6, 2008
График использования Интернет
Решил начерить график использования Интернета (по объему) мною за год.
Вот что получилось (слева трафик в Гб):
Можно сделать вывод, что меньше всего Интернетом я пользовался в декабре 
, а больше всего - в апреле 2007 (когда улучшил скорость соединения в 2 раза ). Вот такая арифметика.
April 5, 2008
Занялся программой
Вплотную занялся разработкой программы, результатом чему явился модуль "очистка системы и компьютера" от мусора.
В нем я реализовал все, что может очистить систему и жесткий диск от мусора:
- Очистка системы (Prefetch, TEMP, Recent, Корзина).
- Очистка от Интернет-мусора (поддерживаются ослик, лиса и опера).
- Очистка от мусорных файлов (сканированием жесткого диска по расширениям).
За последнюю возможность пока не брался, остальное работает.
Также исправляю все узкие места в программе, которые могут глючить и добавляю новых возможностей. Стараюсь сделать программу такой, чтобы ее ставили как начинающие, так и опытные пользователи.