TDeviceNotification - Komponente

[Neutral General]

Hallo,

Dieser Thread hat mich heute Mittag dazu motiviert selbst eine Komponente zu schreiben, welche Events feuert, falls Geräte an den PC angeschlossen oder entfernt werden.

Die Komponente bietet 4 Events:

1) OnDeviceConnected
Dieses Event wird gefeuert wenn ein Gerät an den PC angeschlossen wurde.

Verfügbar sind:
GUID
Name

2) OnDeviceDisconnected
Dieses Event wird gefeuert wenn ein Gerät vom PC entfernt wurde.

Verfügbar sind:
GUID
Name

3) OnVolumeMounted
Dieses Event wird gefeuert, wenn ein Datenträger gemountet/eingelegt wurde.
Dies kann ein USB-Stick, ein Netzlaufwerk oder auch eine eingelegte CD/DVD sein.

Verfügbar sind:
Typ (TDriveType = (dtDrive, dtMedia, dtNetworkDrive) )
TypEx (TDriveTypeEx = (dteUnknown, dteUnmounted, dteRemovable, dteFixed, dteRemote, dteCDROM, dteRAMDisk); )
Laufwerkbuchstabe
Name
Dateisystem
Serien-Nr.
Speicherkapazität
Freier Speicher

4) OnVolumeUnMounted
Dieses Event wird gefeuert, wenn ein Datenträger geunmountet/entfernt wurde.
Dies kann ein USB-Stick, ein Netzlaufwerk oder auch eine ausgeworfene CD/DVD sein.

Verfügbar sind:
Typ (TDriveType = (dtDrive, dtMedia, dtNetworkDrive) )
TypEx (TDriveTypeEx = (dteUnknown, dteUnmounted, dteRemovable, dteFixed, dteRemote, dteCDROM, dteRAMDisk); )
Laufwerkbuchstabe
Name
Dateisystem
Serien-Nr.
Speicherkapazität
Freier Speicher

Danke auch an ehX, der mich erst auf die Idee gebracht und seine Komponente war der erste Ansatz für meine eigene Komponente.

Lizenz: OpenSource - Macht was ihr wollt

Verbesserungsvorschläge und Wünsche werden gerne angenommen

PS: Der Code im Anhang enthält auch eine Demo

[ehX]

klappt 1A! Gute Arbeit, danke herzlichst fürs Veröffentlichen!
Da kann ich meine Komponente in den Müll werfen