Order and save right now! 20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming!

System

⤷ Enable/disable CD autorun

Information about CD autorun is stored in the registry at "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\CDROM\AutoRun" path. If this parameter is 0, then autorun is disabled, if this parameter is 1, then autorun is enabled.
Don't forget to add Registry in the uses chapter.

uses
  Registry;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Boolean;
begin
  i:=False;
  with TRegistry.Create do
  begin
    RootKey:=HKEY_LOCAL_MACHINE;
    if KeyExists('System\CurrentControlSet\Services\Class\CDROM')and
       OpenKey(
         'System\CurrentControlSet\Services\Class\CDROM', 
         False) then
      WriteBinaryData('AutoRun', i, 1);
  end;
end;

More for developers

● Delphi Components

● .Net Components

● Software for Android Developers

● Databases for Amazon Associates
Amazon Categories
Amazon Nodes