Bloquear disco

Esta es una utilidad que permitirá bloquear el acceso a cualquier unidad de disco de vuestro sistema. No usa componente de terceros, todo se programa con las units de Delphi standard.
Recordar que antes de cerrar la aplicación tienen que pulsar el botón "unlock" para desbloquear el disco.
Está probado en Delphi 7 y funciona incluso con unidades USB.

Código fuente