ذخیره تغییرات در ریجستری

[محسن شمس]

اقا ما تو Vb با Save Setting اطلاعات را در ریجستری ذخیره می کردیم بعد می خوندیم

اینجا چه جوریه منظورم دلفی 7 است

[vcldeveloper]

uses
Registry;

function TForm1.Button3Click(Sender: TObject);
var
Reg : TRegistry;
MyValueResult : string;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('Software\My Company\My App',False) then
MyValueResult := Reg.ReadString('My Value');
finally
Reg.Free;
end;
end;

[ماریا وکیلی]

ای کاش آقای کشاورز بیشتر راجب کدش توضیح می داد



در ریجستری ذخیره می کردیم بعد می خوندی


به قول آقای شمس من می خواهم هم بخونم هم بنویسم

[Developer Programmer]

شما رو به خدا جستجو کنید!

[szabeh]

---------------عدم ارتباط با موضوع----------------

[babak869]

---------------عدم ارتباط با موضوع----------------

[Touska]

--------------عدم ارتباط با موضوع------------

[ماریا وکیلی]

---------------عدم ارتباط با موضوع----------------

[ماریا وکیلی]

---------------عدم ارتباط با موضوع----------------

[ماریا وکیلی]

به این کد نگاه کنید


procedure TForm1.Button1Click(Sender: TObject);
Var
R:TRegistry;
begin
R:=TRegistry.Create;
R.RootKey:=HKey_Current_User;
R.OpenKey('Software\Microsoft\Windows\CurrentVersi on\Run',True);
Try
R.WriteString('ProgramName',Application.ExeName);

Except
ShowMessage('Error')
End;
R.CloseKey;
R.Free;
End;


چیزی که می سازه WriteString از نوع Sting است

می خواستم بدونم اگه بخواهیم از نوع Binary Value باشه باید چی بنویسیم

[mzjahromi]

R.Writebool('val',true);

[vcldeveloper]

می خواستم بدونم اگه بخواهیم از نوع Binary Value باشه باید چی بنویسیمhttp://www.geocities.com/alexfedorov/registry.htm

[ماریا وکیلی]

R.Writebool('val',true);



این کد خطا میده

لطف کنید امتحان کنید

[mzjahromi]

این کد درسته.
خطا چیه؟

[ماریا وکیلی]

خوب مثالش را با دلفی بساز بزار اینجا

[babak869]

اگه اون لینکی رو که جناب کشاورز دادند خوب مطالعه کنید دیگه سوال نخواهید کرد!!!!

[Hamid_PaK]

این هم یک مثال دیگه شاید بدرد خورد


function WriteRegStr(Root_Key:HKEY;suB_Key,Name,Value:strin g):Boolean;
var
Reg: TRegIniFile;
begin
result := true;
Reg := TRegIniFile.Create;
try
Reg.RootKey := root_key;
if Reg.OpenKey(suB_Key,True) then
Reg.WriteString('',Name,Value)
else
result := false;
finally
Reg.Free;
end;
end;

یا حق !

[ماریا وکیلی]

آقا حمید من Writebool می خواهم نه WriteString

[Hamid_PaK]

هیچ فرقی در اصل داستان نداره چه بول باشه چه رشته و ...
فقط نوع تابع مربوط به TReg فرق می کنه ...


function ReadRegDate(Root_Key:HKEY;suB_Key,Name:string):TDa teTime;
var aReg:TRegistry;
begin
aReg := TRegistry.Create;
aReg.RootKey := root_key;
aReg.OpenKey(sub_key,false);
try
Result := aReg.ReadDateTime(name);
except
Result := StrToDateTime('0/0/1000')
end;
aReg.Free;
end;

مربوط میشه به خواندن TDate از رجیستری ...
ابرای بول از Reg.WriteBool استفاده کنید ...

یا حق !!!