مثال از رجیستری--تغییر عنوان صبح-شب در کنار ساعت
اول يوزز را اضافه کنيد
uses Registery
يک باتون روي فرم قرار دهيد ، سپس کد زير را در آن کپي کنيد
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\Control Panel\International\', True) then
begin
Reg.WriteString('s1159','فري فرد');
Reg.WriteString('s2359','فري فرد' );
Reg.CloseKey;
end;
finally
Reg.Free;
inherited;
end;
Showmessage('Saved Your Changed!... Refresh Your System ')
رجيستري در دلفي
Registery In Delphi
بله ،رجيستري در دلفي
براي ثبت،اصلاح،وجود،عدم وجود اسکريپ در قسمت هاي مختلف رجيستري
Uses
Registery
...
Var
reg: Tregistery;
begin
reg:=Tregistery.create;
Try
reg.rootKey:=Hkey_Current_User;//براي مثال
if reg.openKey('مسير مورد نظر در رجيستري',True) then//وجود اسکريپت
begin
Reg.writeString('........','DataValue') ;
Reg.CloseKey;
end;
Finally;
Reg.free;
Inherited;
End;
باز کردن سی دی رام
یک کلید روی فرم قرار دهید و روی آن دوبار کلیک کنید حال کد ریر را تایپ کنید:
mcisendString('set CdAudio Door Open Wait ',NIL,Handle);
بستن سی دی رام در دلفی
یک کلید روی فرم قرار دهید و روی آن دوبار کلیک کنید حال کد ریر را تایپ کنید:
mcisendString('set CdAudio Door Close Wait ',NIL,Handle);
البته برای استفاده از این دستورات باید از یوزز
MMSYSTEM
استفاده کنید
سلام
با سلام به شما دوستداران برنامه نویسی امید وارم بتوانم کمک شما کنم
آموزش بر نامه نویسی با ما باشید
آموزش برنامه نویسی دلفی
