1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
|
'
'// Module1.bas
'
Wahl ausdrücklich
'egl1044
Privates Const GWL_WNDPROC als lang = (- 4)
Privates Const WM_DEVICECHANGE als lang = &H219
Privates Const DBT_DEVICEARRIVAL als lang = 32768
Privates Const DBT_DEVICEREMOVECOMPLETE als lang = 32772
Privates Const DBT_DEVTYP_DEVICEINTERFACE als lang = &H5&
Privates Const DBT_DEVTYP_VOLUME als lang = &H2&
Privates Const GUID_USB als Schnur = „{A5DCBF10-6530-11D2-901F-00C04FB951ED}“
Private Art UUID
Data1 als lang
Data2 als ganze Zahl
Data3 als ganze Zahl
Data4 (7) als Byte
Enden-Art
Private Art DEV_BROADCAST_HDR
als lang dbch_size
dbch_devicetype als lang
dbch_reserved als lang
Enden-Art
Private Art DEV_BROADCAST_DEVICEINTERFACE
als lang dbcc_size
dbcc_devicetype als lang
dbcc_reserved als lang
dbcc_classguid als UUID
dbcc_name als lang
Enden-Art
Private Art DEV_BROADCAST_VOLUME
als lang dbcv_size
dbcv_devicetype als lang
dbcv_reserved als lang
dbcv_unitmask als lang
dbcv_flags als ganze Zahl
Enden-Art
Privat Funktion CallWindowProcW Bibliothek „User32.dll“ erklären (_
ByVal lpPrevWndFunc als lang, _
ByVal hWnd als lang, _
ByVal uMsg als lang, _
ByVal wParam als lang, _
ByVal lParam als lang) als lang
Privat Funktion SetWindowLongW Bibliothek „User32.dll“ erklären (_
ByVal hWnd als lang, _
ByVal nIndex als lang, _
ByVal dwNewLong als lang) als lang
Privat Funktion RegisterDeviceNotificationW Bibliothek „User32.dll“ erklären (_
ByVal hRecipient als lang, _
ByVal NotificationFilter als lang, _
ByVal Markierungsfahnen als lang) als lang
Privat Funktion UnregisterDeviceNotification Bibliothek „User32.dll“ erklären (_
ByVal Handgriff als lang) als lang
Privat Funktion CLSIDFromString Bibliothek „Ole32.dll“ erklären (_
ByVal lpsz als lang, _
ByRef pclsid als UUID) als lang
Privat VorRtlMoveMemory Bibliothek „Kernel32.dll“ erklären (_
ByRef Bestimmungsort als irgendwelche, _
ByRef Quelle als irgendwelche, _
ByVal Länge als lang)
Privat VorRtlZeroMemory Bibliothek „Kernel32.dll“ erklären (_
ByRef dst als irgendwelche, _
ByVal nBytes als lang)
Allgemeines Funktions als lang
Allgemeines hDev als lang
Allgemeines hWindow als lang
Schwaches lpdb als DEV_BROADCAST_HDR
Schwaches lpdbv als DEV_BROADCAST_VOLUME
Schwaches lpdbdi als DEV_BROADCAST_DEVICEINTERFACE
Schwaches fUsb, wie Boolesch
Private Funktion GetDriveFromMask (ByVal UnitMask als lang) als Schnur
GetDriveFromMask = Chr$ (65 + (Maschinenbordbuch (UnitMask)/Maschinenbordbuch (2)))
Enden-Funktion
Allgemeines VorRegisterDeviceInterfaceToHwnd (ByVal hWnd als lang)
Schwaches lpdbd als DEV_BROADCAST_DEVICEINTERFACE
Schwaches lpusb als UUID
Wenn Funktions <> 0 dann
Unterseeboot herausnehmen
Beenden wenn
hWindow = hWnd
CLSIDFromString StrPtr (GUID_USB), lpusb
lpdbd.dbcc_size = Len (lpdbd)
lpdbd.dbcc_devicetype = DBT_DEVTYP_DEVICEINTERFACE
lpdbd.dbcc_classguid = lpusb
hDev = RegisterDeviceNotificationW (hWindow, VarPtr (lpdbd), 0)
funktionell = SetWindowLongW (hWindow, GWL_WNDPROC, AddressOf OnUsbChange)
Enden-Unterseeboot
Allgemeines VorUnRegisterDeviceInterface ()
UnregisterDeviceNotification hDev
funktionell = SetWindowLongW (hWindow, GWL_WNDPROC, funktionell)
Funktions= 0
hWindow = 0
Enden-Unterseeboot
Allgemeine Funktion OnUsbChange (ByVal hWnd als lang, ByVal uMsg als lang, ByVal wParam als lang, ByVal lParam als lang) als lang
Wenn uMsg = WM_DEVICECHANGE dann
Fall wParam vorwählen
DBT_DEVICEARRIVAL umkleiden
RtlMoveMemory lpdb, ByVal lParam&, Len (lpdb)
Wenn lpdb.dbch_devicetype = DBT_DEVTYP_DEVICEINTERFACE dann
RtlMoveMemory lpdbdi, ByVal lParam&, Len (lpdbdi)
fUsb = richten aus
Beenden wenn
Wenn lpdb.dbch_devicetype = DBT_DEVTYP_VOLUME und fUsb dann
RtlMoveMemory lpdbv, ByVal lParam&, Len (lpdbv)
fUsb = falsch
' Eingesetzt
Debug.Print „setzte @ drive=“ u. GetDriveFromMask ein (lpdbv.dbcv_unitmask)
Beenden wenn
DBT_DEVICEREMOVECOMPLETE umkleiden
RtlMoveMemory lpdb, ByVal lParam&, Len (lpdb)
Wenn lpdb.dbch_devicetype = DBT_DEVTYP_DEVICEINTERFACE dann
RtlMoveMemory lpdbdi, ByVal lParam&, Len (lpdbdi)
fUsb = richten aus
Beenden wenn
Wenn lpdb.dbch_devicetype = DBT_DEVTYP_VOLUME und fUsb dann
RtlMoveMemory lpdbv, ByVal lParam&, Len (lpdbv)
fUsb = falsch
' Entfernt
Debug.Print „entfernte @ drive=“ u. GetDriveFromMask (lpdbv.dbcv_unitmask)
Beenden wenn
Auserwähltes beenden
Beenden wenn
OnUsbChange = CallWindowProcW (funktionell, hWnd, uMsg, wParam, lParam)
Enden-Funktion
'
'// Form1.frm
'
Wahl ausdrücklich
Privates VorForm_Load ()
Anruf RegisterDeviceInterfaceToHwnd (Me.hWnd)
Enden-Unterseeboot
Privates VorForm_QueryUnload (Löschen als ganze Zahl, UnloadMode als ganze Zahl)
Anruf UnRegisterDeviceInterface
Enden-Unterseeboot
|
