Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > ОС и железо
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 11.02.2010, 16:52
Аватар для s0Creator
s0Creator s0Creator вне форума
Местный
 
Регистрация: 20.02.2008
Адрес: Московская область
Сообщения: 420
Репутация: 884
По умолчанию Пример написания сервиса и работы с USB накопителями

Выкладываю исходники сервиса ( службы ) Windows.

Что делает:
- легко устанавливается ( с запуском ) и удаляется служба.
- отслеживает действия с USB накопителями и через 10 секунд после извлечения удаляет всю информацию о всех флешках которые до этого подключались к компьютеру.

Что интересного:
- пример написания службы.
- пример определения запущен exe как служба или как программа.
- пример тихой ( без сообщения системы что служба установлена ) установки службы с запуском и удаления с остановкой.
- пример создания ( регистрации ) системного лога для службы и exe ( для нормального отображения сообщений и ошибок службы в журнале - "Просмотр событий" -> "приложения" )
- пример отслеживания изменения конфигурации устройств ( USB )
- пример работы с этими устройствами ( деинсталляция не подключенных USB накопителей - клавиатура, принтеры и прочее не трогаются )
- в папке лежит исправленный Registry.pas ( найдите сами что )

Недостатки:
- какая то функция ( уже не помню ) не работает ниже XP ( в Висте и 7 не проверял )
- не проверял, но один товарищ жаловался, что теперь у него ( на работе ) флэш плеер ( с внутренней и флэш памятью ) показывается как два диска

PS:
В свое время немало по бороздил интернет и MSDN, а сегодня отвечая на вопрос friz о флэшках вспомнил и решил поделиться.
Не думаю что там все идеально ( но один комп уже полгода не выключался и служба работает ), поэтому если кто найдет недостатки или лучшие решения - положу в копилку ( там один лишний таймер - я уже сам увидел, видно забыл удалить ).
кто при компиляции споткнется на FastMM4 - можете удалить ( за комментировать ) работа службы не ухудшится ( использовал для определения утечек памяти ).
Может быть раздел выбрал не правильно, но в разделе Ваши программы все выкладывают свои наработки без исходников, а тут немного кода вроде по теме.
Вложения
Тип файла: zip usbcleaner.zip (29.2 Кбайт, 402 просмотров)

Последний раз редактировалось s0Creator, 21.03.2010 в 15:20.
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 07:26.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter