تفعيل خاصية ال AutoRUN في الويندوز

[ELARAPY]

السلام عليكم ورحمة الله وبركاته

كيف تعطيل أوتفعيل خاصية ال AutoRUN في الويندوز
ليس من RegEdit.msc
شكرا

[kachwahed]

وعليكم السلام ورحمة الله وبركاته
انظر المفتاح Autorun من:

كود :

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Cdrom

عدل على هذا المثال:

كود :

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;

طريقة أخرى:

كود :

http://delphi.about.com/od/adptips2006/qt/noautoplay.htm

بالتوفيق.

[ELARAPY]

السلام عليكم ورحمة الله وبركاته

اشكرك استاذي على ما تفضلت علي به
اما بخصوص الكود المرفق فأني لا اجد هذا الحدث الخاص بالـ Procedure

PHP كود :

procedure TForm1.SetCDAutoRun(AAutoRun: Boolean); 


حيث المثال على Procedure الـ

PHP كود :

procedure TForm1.Button1Click(Sender: TObject); 


عند هذا الحدث يكون AutoRun := Enabled
ولكم وافر الاحترام

[TF6M]

و عليكم السلام و رحمةن الله و بركاته
- راجع هذه المشاركة CTRL + SHIFT + C
- إستعمال الاجراء , فقط اكتب :

PHP كود :

SetCDAutoRun(False); 


بالتوفيق,,

[ELARAPY]

حضرتك انا مبتدئ ولا اعلم كيف استعمل هذا الاجراء
شكرا لمتابعتك استاذي الفاضل
السلام عليكم ورحمة الله

[ELARAPY]

انظر المفتاح autorun من

هل هذا المثال له علاقه بالشرح الموجود في المجله العدد الرابع الخاص بال oop ؟