Detecting shell changes from a service application

How can i detect shell changes including driveadd or driveremove (for USB Devices) within my service application with delphi? And of course using other vcl components (Derived from TComponent) which requires a valid handle?
Regards.