Registriert seit: 30. Okt 2004
475 Beiträge
Delphi 12 Athens
|
AW: Windows-Bug mit bestimmter Netzlaufwerkskonstellation (*Herausforderung gesucht?*
19. Aug 2015, 14:02
Danke, aber wo kommt das DEV_BROADCAST_VOLUME denn hin?
Delphi-Quellcode:
const
DBT_DEVICEREMOVECOMPLETE = 32772;
DBTF_NET = 2;
var
phdr: PDevBroadcastHdr;
pvol: PDevBroadcastVolume;
begin
pvol.dbcv_size := SizeOf(DEV_BROADCAST_VOLUME);
pvol.dbcv_devicetype := DBT_DEVTYP_VOLUME;
pvol.dbcv_unitmask := 26; //Z:
pvol.dbcv_flags := DBTF_NET;
phdr.dbch_size := SizeOf(DEV_BROADCAST_HDR);
phdr.dbch_devicetype := DBT_DEVTYP_VOLUME;
SendMessage(HWND_BROADCAST, WM_DEVICECHANGE, DBT_DEVICEREMOVECOMPLETE, INTEGER(@phdr));
Nur Delphi schafft es, einem ein Lächeln zu schenken, wenn man sich beim Schreiben von := vertippt und stattdessen ein :) erscheint.
|