Hi all,
weiß jemand wie man die Windows Message WM_DEVICECHANGE abfangen und ggf. darauf reagieren kann
Den folgenden Code (im MainForm) habe ich schon probiert, aber die Procedure WndProc() wird nichteinmal
vom Compiler angefasst oder vom Linker wieder verworfen. Keine blauen Codezeilenpunkte in der
IDE!
Delphi-Quellcode:
type
TForm2 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private {- declarations }
public {- declarations }
protected
procedure WndProc(var Message: TMessage);
end;
Delphi-Quellcode:
procedure TForm2.WndProc(var Message: TMessage);
begin
if (Message.Msg = WM_DEVICECHANGE) then
begin
ShowMessage('Was geändert');
end;
inherited WndProc(Message); { Ansonsten normale Verarbeitung }
end;
Was fehlt da noch?
Danke Charly