Windows Message abfangen - AutoRun verhindern

[gothic_mike]

Moin,

Zitat von Christian Seehase:

Moin Mike,

ich habe mir das mal angeschaut, und komme zu dem Schluss, dass das genannte Problem eigentlich nicht auftreten kann.
Wie hast Du es denn implementiert?

also, ich hab das eigentlich so gemacht, wie es beschrieben war:

Delphi-Quellcode:

...
  public
    { Public-Deklarationen }
    MsgID_QueryCancelAutoPlay: Word;
    procedure WndProc(var Msg: TMessage); override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WndProc(var Msg: TMessage);
begin
  if (MsgID_QueryCancelAutoPlay = Msg.Msg) then
  begin
    if RadioButton_Off.Checked then
      Msg.Result := 0  // stop AutoPlay
    else
      Msg.Result := 1; // continue with AutoPlay
  end else
    inherited WndProc(Msg);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  MsgID_QueryCancelAutoPlay := RegisterWindowMessage('QueryCancelAutoPlay');
end;
...

wenn meine Form aktiv ist, funktioniert es auch wunderbar, ist meine Form aber inaktiv oder gar minimiert funktionierts nicht...