Erkennen, ob USB-Stick oder SD-Card eingesteckt oder herausgenommen?

[AlexII]

Danke Dir, so sieht's nun aus:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  dbi: DEV_BROADCAST_DEVICEINTERFACE_W;
  dbv: DEV_BROADCAST_VOLUME;
  Size: Integer;
  RDN: HDEVNOTIFY;
  arr : array[0 .. 0] of word;
begin
  arr[0] := 0;
  Size := SizeOf(DEV_BROADCAST_DEVICEINTERFACE_W);
  ZeroMemory(@dbi, Size);
  dbi.dbcc_size := Size;
  dbi.dbcc_devicetype := DBT_DEVTYP_DEVICEINTERFACE;
  dbi.dbcc_reserved := 0;
  dbi.dbcc_classguid  := GUID_DEVINTERFACE_USB_DEVICE;
  dbi.dbcc_name := arr;
  RDN := RegisterDeviceNotificationW(Self.Handle, @dbi, DEVICE_NOTIFY_WINDOW_HANDLE);
  if not Assigned(RDN) then
    ShowMessage('1: ' + SysErrorMessage(GetLastError));

  Size := SizeOf(DEV_BROADCAST_VOLUME);
  ZeroMemory(@dbv, Size);
  dbv.dbcv_size := Size;
  dbv.dbcv_devicetype := DBT_DEVTYP_VOLUME;
  dbv.dbcv_reserved := 0;
  dbv.dbcv_flags := 0;
  RDN := RegisterDeviceNotification(Self.Handle, @dbv, DEVICE_NOTIFY_WINDOW_HANDLE);
  if not Assigned(RDN) then
    ShowMessage('2: ' + SysErrorMessage(GetLastError));

  OldWndProc := TMWndProc(Windows.GetWindowLong(Self.Handle, GWL_WNDPROC));
  Windows.SetWindowLong(Self.Handle, GWL_WNDPROC, LongInt(@MyWndProc));
end;

Die Zeile

Zitat:

ShowMessage('2: ' + SysErrorMessage(GetLastError));

gibt nun folgendes aus:

Zitat:

Der Dienst hat einen dienstspezifischen Fehlercode zurückgegeben

Was heiß das eigentlich? Also ein Fehler ist es nicht, oder?

[Luckie]

Man könnte jetzt über die Bedeutung des Wortes Fehlercode philosophieren.

[AlexII]

Zitat von Luckie:

Man könnte jetzt über die Bedeutung des Wortes Fehlercode philosophieren.

Aber was kann das heißen, was mache ich falsch?

[Dalai]

Nur eine Vermutung: Vielleicht musst du

Code:

dbcv_unitmask

The logical unit mask identifying one or more logical units. Each bit in the mask corresponds to one logical drive. Bit 0 represents drive A, bit 1 represents drive B, and so on.

noch setzen?

Übrigens: bei reserved-Parametern sollte man aufpassen und diese besser gar nicht anfassen. Auch wenn sich durch deine Zuweisung wahrscheinlich nichts ändert, würde ich sie komplett weglassen.

Bist du sicher, dass Lazarus keine WM_DEVICECHANGE Nachrichten verarbeitet? Wenn es das tut, könnte dies helfen: Benachrichtigung bei CD-Wechsel. Oder man nimmt gleich eine Klasse: Delphi 7 unit to control USB devices events.

MfG Dalai

[AlexII]

Zitat von Dalai:

Nur eine Vermutung: Vielleicht musst du

Code:

dbcv_unitmask

The logical unit mask identifying one or more logical units. Each bit in the mask corresponds to one logical drive. Bit 0 represents drive A, bit 1 represents drive B, and so on.

noch setzen?

Mit welchem Wert soll ich das belegen?

Zitat von Dalai:

Übrigens: bei reserved-Parametern sollte man aufpassen und diese besser gar nicht anfassen. Auch wenn sich durch deine Zuweisung wahrscheinlich nichts ändert, würde ich sie komplett weglassen.

Ok, mache ich.

Zitat von Dalai:

Bist du sicher, dass Lazarus keine WM_DEVICECHANGE Nachrichten verarbeitet?[/URL].

Ja. Kann jetzt nicht genau sagen, was genau und wie, aber ich habe es mehrmals so gelesen.

Ich überlege schon lieber mit nem Timer zu arbeiten, der alle x Sekunden nach Laufwerken Umschau hält, denn alles andere wird so langsam kompliziert und instabil.

[Dalai]

Zitat von AlexII:

Mit welchem Wert soll ich das belegen?

Probier's doch mal aus, ob dann RegisterDeviceNotification erfolgreich zurückkommt, wenn du nur irgendein Laufwerk angibst, eben als Bitmaske; das müsste 1, 2, 4, 8, 16 usw. sein.

Zitat:

Ja. Kann jetzt nicht genau sagen, was genau und wie, aber ich habe es mehrmals so gelesen.

Nur gelesen oder auch ausprobiert?

MfG Dalai

[Popov]

Also den kleinen Tipp von mir hast du nicht umgesetzt?

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
    procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//Reagiert auf Hinzufügen oder entfernen von Laufwerken
procedure TForm1.WMDeviceChange(var Msg: TMessage);
const
  DBT_DEVICEARRIVAL = $8000; // System eindeckt ein neues Grerät
  DBT_DEVICEREMOVECOMPLETE = $8004; // Gerät wurde entfernt
begin
  inherited;

  case Msg.wParam of
  DBT_DEVICEARRIVAL: //hinzu
      begin
        ShowMessage('Ein Gerät wurde hinzugefügt.');
      end;
  DBT_DEVICEREMOVECOMPLETE: //entfernen
      begin
        ShowMessage('Ein Gerät wurde entfernt.');
      end;
  end;
end;