Delphi Tips&Tricks News   Tips   .NET Software   VCL Software   Search   Contacts
Ultimate Pack - special offer!

Ultimate Pack  hot!
Image Editor  new!
Runtime Fusion
Form Designer
Object Inspector
Print Suite Pro
Commented Image
Delphi Toys
WinDowse
Delphi Bonus
TMS Scripter Studio
Form Designer VB
Form Designer .NET

...get more...
for Delphi.NET, C#, VB.NET
for Delphi VCL, BCB 3-6

WinAPI Online
Unix Manual Pages
MegaDetailed.NET
in3steps.com
cdtrrracks.com new!

Blogspot  greatis.blogspot.com

Enable/disable CD autorun - System - Tips & Tricks - Greatis Delphi Pages

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;
Related chapters
Registry

Related topics
Use registry instead of *.ini file

For more
Win32 Programmer's Reference

Download source