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;