Disable CD AutoRun

This is an example of how to enable / disable the CD autorun for windows.

// declare Registry in your USES clause



procedure SetCDAutoRun(AAutoRun:Boolean);

const

   DoAutoRun : array[Boolean] of Integer = (0,1);

var

   Reg:TRegistry;

begin

     try

        Reg := TRegistry.Create;

        Reg.RootKey := HKEY_LOCAL_MACHINE;

        if Reg.KeyExists('SystemCurrentControlSetServicesClassCDROM') then

        begin

             if Reg.OpenKey('SystemCurrentControlSetServicesClassCDROM',FALSE) then

             begin

                  Reg.WriteBinaryData('AutoRun',DoAutoRun[AAutoRun],1);



             end;

        end;

     finally

        Reg.Free;

     end;

     ShowMessage('Your setting will be effect after restart Windows.');

end;

 

Share this article!

Follow us!

Find more helpful articles: