Einzelnen Beitrag anzeigen

Carsten1234

Registriert seit: 9. Apr 2008
Ort: Vechelde
178 Beiträge
 
Delphi 8 Professional
 
#3

Re: USB-Gerät an Fritzbox (7270)

  Alt 17. Dez 2009, 10:23
Zitat von Blup:
So weit eigentlich doch garnicht schlecht:
Code:
Message = WM_DEVICECHANGE
wParam = DBT_DEVNODES_CHANGED = 7
lParam = 0
Irgendwie doch, denn:

Delphi-Quellcode:
var devType : Integer;
    Datos : PDevBroadcastHdr;
begin
  if (Msg.wParam = DBT_DEVICEARRIVAL) or
     (Msg.wParam = DBT_DEVICEREMOVECOMPLETE) or
     (Msg.WParam = DBT_DEVNODES_CHANGED) then
  begin
    Datos := PDevBroadcastHdr(Msg.lParam);
    devType := Datos^.dbch_devicetype;
    if devType = DBT_DEVTYP_DEVICEINTERFACE then
    begin
(...)
    end;
  end;
end;
Da kommt dann nicht mehr viel...

Zitat von Blup:
Die Antwort auf alle Fragen ist aber 42...
Jein, denn 42 ist ja nur ein Vielfaches von 7...
  Mit Zitat antworten Zitat