Detecting Shell changes by a Interactive 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.
Hakan BAYTOP