CD Autostart dynamisch verhindern

[runger]

Hallo,

hier eine Funktion die den CDROM Autostart jeweils in den anderen Zustand versetzt. Der Rückgabewert (boolean) entspricht dem Zustand der in Zukunft gilt.

Delphi-Quellcode:

Function CDautorun:boolean;
var Reg: TRegistry;s:word;
begin
        Reg := TRegistry.Create;
        Reg.RootKey := HKEY_LOCAL_MACHINE;
        reg.OpenKey('System\CurrentControlSet\Services\
        Cdrom',false);
        s:=reg.ReadInteger('autorun');
        If s=0 then
           begin
             reg.WriteInteger('autorun',1);
             result:=true
           end
        else
           begin
             reg.WriteInteger('autorun',0);
             result:=false
           end;
        Reg.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  If CDautorun then 
     label1.caption:='Autostart wird eingeschaltet' 
   else 
     label1.caption:='Autostart wird ausgeschaltet';
end;

Rainer
(Ob danach gebootet werden muss, muss noch ausprobiert werden.)