CD-Autostart (Autorun) dynamisch unterdrücken

[Sunlight7]

Moin, hier ein Beispiel, wie man den CD-Autostart dynamisch unterdrücken kann.

Delphi-Quellcode:

...
  WM_AutoRun:DWord;
...

procedure TForm1.WndProc(var Message:TMessage);
begin
   If Message.Msg=WM_AutoRun then begin
      If Erlauben1.Checked then
         Message.Result:=0 else
            Message.Result:=1;

      Exit;
   end;

   inherited WndProc(Message);
end;

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

Anmerkung: Die Anwendung muß im Vordergrund sein, damit das funktioniert

Grüßle!

Edit: Und natürlich gleich n Feler gepostet (ausgebessert)

[edit=fkerber]Suchbegriff " Autostart " ergänzt. Mfg, fkerber[/edit]