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]