Category: Windows
Title: Enable and disable CD autorun
Date added: 15.03.2006
Hits: 1652


procedure TForm1.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('System\CurrentControlSet\Services\Class\CDROM') then
    begin
      if Reg.OpenKey('System\CurrentControlSet\Services\Class\CDROM', False) then
        Reg.WriteBinaryData('AutoRun', DoAutoRun[AAutoRun], 1);
    end
  finally
    Reg.Free;
  end;
  ShowMessage('Your settings will take effect on the next reboot of Windows.');
end;

1. How to show the format dialog? (1440 Hits)

2. How to ignore Ctrl+V keys in Memo? (1813 Hits)

3. How to show the find folder dialog? (1691 Hits)

4. How to control the windows task bar and the windows start button? (1853 Hits)

5. How to shutdown / reboot / logoff Windows 9x/NT/Me/2000/XP? (3423 Hits)

For any problems or recommendations about Delphi Tricks site, please

feel free to contact us on that e-mail: support@delphitricks.com.
If you want to advertise on the site use that e-mail: advertise@delphitricks.com.

You can freely use or modify these Delphi source codes for non-commercial use. We are not responsible of any damages that can be caused by the utilisation of that source codes.