Einzelnen Beitrag anzeigen

Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

TDeviceNotification - Komponente

  Alt 16. Aug 2011, 00:24
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
Angehängte Dateien
Dateityp: zip DeviceNotification.zip (10,8 KB, 87x aufgerufen)
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."

Geändert von Neutral General (16. Aug 2011 um 00:44 Uhr)
  Mit Zitat antworten Zitat