ریجستری در دلفی

[rsheytoonak]

سلام من میخام یه شرط بزارم که مثلا در مسیر hkuser/software/sys/sys2 اگر sys2 یک بود فلان کار را بکن کسی می تونه من را راهنمایی کنه

[Batman]

با سلام
دوست عزیز این مقاله رو که جناب احدی زحمتشو کشیدن بخون خیلی کمکت میکنه موفق باشید

[پرواز]

uses Registry
procedure TForm1.Button1Click(Sender: TObject);
var
Reg : TRegistry;
begin
Reg := TRegistry.create;
Reg.RootKey := HKEY_CURRENT_USER;
// Create Key
Reg.OpenKey('ali1',true);
// Write String
Reg.WriteString('HojjatString','Hojjat Jamalkhah');
Reg.CloseKey;
Reg.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
Reg : TRegistry;
begin
Reg := TRegistry.create;
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('ali1',false)
then ShowMessage(Reg.ReadString('HojjatString'));
Reg.CloseKey;
Reg.free;
end;
فکر کنم کارت رو راه بندازه.