[s0Creator]

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

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

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

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

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

[lmikle]

Ну, под вистой и семеркой, скорее всего, возникнут проблемы - там больше нет интерактивных сервисов. А так, написано красиво

[mozayka]

s0Creator, нет файлов ServiceTools и CompTools ... ... если не сложно выложи и их ...

[SAP314]

При компиляции ругатеся на отсутствие CompTools.dcu
Примерно так:
[Fatal Error] serviceAssistant.dpr(9): File not found: 'CompTools.dcu'

[s0Creator]

Перезалил файл.

[SAP314]

Сообщение от s0Creator

Перезалил файл.

Thank you, вери дзякуй

[mozayka]

Сообщение от s0Creator

Перезалил файл.

большое спасибо всё работает ...