27-03-2011, 06:21 PM
27-03-2011, 10:04 PM
وعليكم السلام ورحمة الله وبركاته
انظر المفتاح Autorun من:
عدل على هذا المثال:
طريقة أخرى:
بالتوفيق.
انظر المفتاح 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.htm29-03-2011, 03:51 PM
السلام عليكم ورحمة الله وبركاته
اشكرك استاذي على ما تفضلت علي به
اما بخصوص الكود المرفق فأني لا اجد هذا الحدث الخاص بالـ Procedure
حيث المثال على Procedure الـ
عند هذا الحدث يكون AutoRun := Enabled
ولكم وافر الاحترام
اشكرك استاذي على ما تفضلت علي به
اما بخصوص الكود المرفق فأني لا اجد هذا الحدث الخاص بالـ Procedure
PHP كود :
procedure TForm1.SetCDAutoRun(AAutoRun: Boolean);
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
ولكم وافر الاحترام
29-03-2011, 05:46 PM
و عليكم السلام و رحمةن الله و بركاته
- راجع هذه المشاركة CTRL + SHIFT + C
- إستعمال الاجراء , فقط اكتب :
بالتوفيق,,
- راجع هذه المشاركة CTRL + SHIFT + C
- إستعمال الاجراء , فقط اكتب :
PHP كود :
SetCDAutoRun(False);
30-03-2011, 09:55 PM
حضرتك انا مبتدئ ولا اعلم كيف استعمل هذا الاجراء
شكرا لمتابعتك استاذي الفاضل
السلام عليكم ورحمة الله
شكرا لمتابعتك استاذي الفاضل
السلام عليكم ورحمة الله
12-04-2011, 05:56 AM
kachwahed كتب :
انظر المفتاح autorun من
هل هذا المثال له علاقه بالشرح الموجود في المجله العدد الرابع الخاص بال oop ؟