hi, folgender code läuft ganz gut (mit cd's klappts):
Delphi-Quellcode:
procedure TForm2.WMDeviceChange(var Msg: TMessage);
const
DBT_DEVICEARRIVAL = $8000; // system detected a new device
DBT_DEVICEREMOVECOMPLETE = $8004; // device is gone
var
myMsg: string;
begin
inherited;
case Msg.wParam of
$8000: myMsg := '0';
$8001: myMsg := '1';
$8002: myMsg := '2';
$8003: myMsg := '3';
$8004: myMsg := '4';
$8005: myMsg := '5';
$8006: myMsg := '6';
$8007: myMsg := '7';
$8017: myMsg := '17';
$8018: myMsg := '18';
$8019: myMsg := '19';
$FFFF: myMsg := 'FFFF!';
else myMsg:='other';
end;
ShowMessage(myMsg);
end;
Das problem ist, wenn ich in meinen über USB angeschlossenen CardReader eine Karte stecke, meldet der mit dieser prozedur garnix.
anzumerken ist, dass ich das autorun schon wie in
http://www.delphipraxis.net/internal...ct.php?t=89850 beschrieben aktiviert hab, und neugestartet hab.
wenn ich den Cardreader an sich zum usb connecte, bringt er jedoch auch die meldung, dass er was gefunden hat, nur halt nit wenn ich dann ne karte reinstecke.
kann mir wer sagen, was ich falsch mache?