كيف اتعامل مع regedit اتاع الويندوز و اعمل عليه edit

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

استخدم TRegistry راجع Help دلفي، يوجد امثلة كثيرة

-

تم تحرير عنوان الموضوع

اخي الكريك راعي ضوابط الكتابة في المرة القادمة ولا تستخدم عبارات مثل: عاجل و ما شابه

شكرا يا م .محمد عبد العزيز لكن يراريت اتجيبلي ميثال واضح و شكرا مرة تانية

من Help دلفي يكتب مفتاح في Registry بحيث ينفذ برنامك مع كل اقلاع للنظام مرة واحدة

procedureTForm1.WMEndSession(varMessage:TWMEndSession);
var
Reg:TRegistry;
begin
Reg :=TRegistry.Create;
try
Reg.RootKey :=HKEY_CURRENT_USER;
ifReg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\RunOnce',True)then
begin
Reg.WriteString('MyApp','"'+ParamStr(0)+'"');
Reg.CloseKey;
end;
finally
Reg.Free;
inherited;
end;

end;

شكرا اخي الكريم b.m.abdo لكن كيف اعمل حدف ل dword value و كيف اعمل create ل dword value و لك الشكر مع التوضيح بيمثال بسيط و شكرا

اظافة

procedure TForm1.Button2Click(Sender: TObject);
var
Reg:TRegistry;
Dw: Dword;
begin
  Dw := 2007;
  Reg :=TRegistry.Create;
  try
	 Reg.RootKey :=HKEY_CURRENT_USER;
	 if Reg.OpenKey('\Software\DeltaSoft',True)then begin
		Reg.WriteInteger('DwV',Dw);
		Reg.CloseKey;
	 end;
  finally
  Reg.Free;
  end;

end;

قراءة

procedure TForm1.Button1Click(Sender: TObject);
var
Reg:TRegistry;
Dw: Dword;
begin
  Reg :=TRegistry.Create;
  try
	 Reg.RootKey :=HKEY_CURRENT_USER;
	 if Reg.OpenKey('\Software\DeltaSoft',True)then begin
		Dw:=Reg.ReadInteger('DwV');
		Reg.CloseKey;
	 end;
  finally
  Reg.Free;
  end;

end;

حذف

procedure TForm1.Button3Click(Sender: TObject);
var
Reg:TRegistry;
Dw: Dword;
begin
  Reg :=TRegistry.Create;
  try
	 Reg.RootKey :=HKEY_CURRENT_USER;
	 if Reg.OpenKey('\Software\DeltaSoft',True)then begin
		Reg.DeleteValue('DwV');
		Reg.CloseKey;
	 end;
  finally
  Reg.Free;
  end;

end;

اخي الكريم zekiriabdشكرا علي الاهتمام لكن الينك ال كتبتلي ايه مش شغال ارجو ان تعاود كتابتها و شكرا

اخي العزيز م .محمد عبد العزيز ارجو منك ان تبعتلي البرنامج المدكور اعلاه كاملا و شكرا كملف دلفي و شكرا لحسن التعاون

بالنسبة لرابط الاه عبد العلي فهذا هو

/index.ph...&hl=regedit

بالنيبة للبرنامج فلا يوجد لدي اي برنامج، فقط كتبت ما هو فوق كمثال واضح

ان لم تفهم شيئ ما لا تتردد في السؤال

لكن لا تطلب سيئ جاهز

المنتدى للمساعدة في التعلم و ليس في عمل اعمال الغير