Delphi-Help

uses

  ..., Registry;

function IsCDAutoRun: boolean;

var

  Reg: TRegistry;

  i: integer;

begin

   Reg := TRegistry.Create;

   try

      Reg.RootKey := HKEY_LOCAL_MACHINE;

      if Reg.KeyExists( 'System\CurrentControlSet\Services\CDROM' ) then

      begin

         if Reg.OpenKey( 'System\CurrentControlSet\Services\CDROM', false ) then

            i := Reg.ReadInteger( 'AutoRun' );

      end;

      case i of

         0: Result := false;

         else

            Result := true;

      end;

   finally

      Reg.Free;

   end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

   if IsCDAutoRun then

      ShowMessage( 'Автозапуск включен' )

   else

      ShowMessage( 'Автозапуск выключен' );

end;