Wm_devicechange

[charly52]

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