AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte TDeviceNotification - Komponente

TDeviceNotification - Komponente

Ein Thema von Neutral General · begonnen am 16. Aug 2011 · letzter Beitrag vom 17. Aug 2011
Antwort Antwort
Benutzerbild von Neutral General
Neutral General
Registriert seit: 16. Jan 2004
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, 84x aufgerufen)
"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)
 
Benutzerbild von ehX
ehX

 
Delphi 2009 Professional
 
#2
  Alt 17. Aug 2011, 00:10
klappt 1A! Gute Arbeit, danke herzlichst fürs Veröffentlichen!
Da kann ich meine Komponente in den Müll werfen
Fin
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:04 Uhr.
Powered by vBulletin® Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf