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

[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;