التعامل مع مسجل النظام Windows Registry

[issamdnn]

يحب كتابة اسم الوحدة registry ضمن عبارة ال Uses كما يلي:
interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons,registry, ExtCtrls,dateutils;
// يجب كتابة registry في عبارة uses

2- التصريح عن متحول من نوع TRegistry في عبارة ال var لأي إجرائية مطلوبة كما يلي:
var
reg:TRegistry;
3- التصريح عن متحولات لنفس نوع القيمة الموجودة في مسجل النظام فإذا كانت القيمة نصية كان المتحول نصي وإذا كانت رقم كان المتحول من نوع integer وكذللك بالنسبة لبقية أنواع المتحولات كما يلي:
s1,s2,pass:String; //متحولين من النوع النصي
k:integer;
4- إنشاء المتحول وحجز ذاكرة له :

reg:=TRegistry.Create;

5- تعيين المفتاح الاساسي الموجود في مسجل النظام :

reg.RootKey:=HKEY_CURRENT_USER;

ملاحظة:
المفاتيح الأساسية لمسجل النظام هي :
1-HKEY_CLASSES_ROOT
2-HKEY_CURRENT_USER
3- HKEY_LOCAL_MACHINE
4- HKEY_USERS
5-HKEY_CURRENT_CONFIG

6- فتح المفاتيح الفرعية حيث توجد القيمة المراد تغييرها أو القراءة منها:
if reg.OpenKey('Control Panel\Desktop\',false) then //فتح المفتاح للقرائة منه
begin
7-- إذا أردنا القراءة من القيمة على سبيل المثال (القيمة TimePassed) نكتب الكود :
pass:= reg.ReadString('TimePassed');
وإذا أردنا الكتابة للقيمة السابقة (طبعاً القيمة تكون موجودة ضمن المفاتيح الفرعية) نكتب الكود التالي:

reg.WriteString('TimePassed',IntToStr(StrToInt(pas s)+1))

8- إغلاق المفتاح وتحرير الذاكرة:
reg.CloseKey;
reg.Free;

[issamdnn]

و فيما يلي مثال يوضح ما ذكرت:

procedure TForm1.Button1Click(Sender: TObject);
var
reg:TRegistry;
s:string;
begin
try
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
if reg.OpenKey('Control Panel\Desktop\',false) then
begin
s:= reg.ReadString('TimePass');

end;

finally
reg.CloseKey;
reg.Free;

ShowMessage(s);
end;
end;

[abo-ghadab]

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

شكرا لك أخي الكريم , بارك الله فيك

شرح كافي ووافي