ايقاف ال Autorun

اذهب الى RegEdit

ابحث عن المفتاح key HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Services/CDRom

Autorun = 0 من أجل ايقاف التشغيل

Autorun =1 من أجل التشغيل

بالبرمجة هي أكثر سهولة

  Procedure MakeOnAutorunCd;
 Var R:Tregistr  
begin  
R:=Tregistry.Create;
 R.RootKey:=HKEY_LOCAL_MACHINE;
Try
  If R.OpenKey('\SYSTEM\CurrentControlSet\Services\CDRom',false)   Then 
 R.WriteInteger('AutoRun',1);
 Finally  R.Free End;
 end;
 Procedure MakeOFFAutorunCd;
 Var R:Tregistry;
 begin  R:=Tregistry.Create; 
R.RootKey:=HKEY_LOCAL_MACHINE; 
try 
   If R.OpenKey('\SYSTEM\CurrentControlSet\Services\CDRom',false) Then
   R.WriteInteger('AutoRun',0);
  Finally  R.Free 
   End;
 end;

مشكور مرة ثانية أخي في الله naime وجزاك الله خيراً