کار با رجیستری؟

[DarkACE]

سلام دوستان، می خواستم بپرسم که چطور می تونم واسه برنامم توی رجیستری یک کلید ایجاد کنم و زمان اجرا اون رو بررسی کنه و اگه بود برنامه اجرا بشه، در غیر این صورت برنامه بسته بشه.

مرسی.

[Felony]

باید از کلاس TRegistry استفاده کنید ؛ همون عبارت TRegistry رو در سایت جست و جو کنید .

[عقاب سیاه]

http://barnamenevis.org/showthread.php?169157-%D8%B3%D9%88%D8%A7%D9%84-%D8%AF%D8%B1-%D9%85%D9%88%D8%B1%D8%AF-%D8%A7%D8%AC%D8%B1%D8%A7%DB%8C-%D8%AE%D9%88%D8%AF%DA%A9%D8%A7%D8%B1-%D9%88-%D9%85%D8%AE%D9%81%DB%8C-%DA%A9%D8%B1%D8%AF%D9%86-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87&p=765894&viewfull=1#post765894

[DarkACE]

ممنون، اما چطور باید اول برنامه بررسی کنم که این کلید توی رجیستری هست یا نه که برنامه اجرا بشه یا نه؟

[Felony]

متد KeyExists از کلاس TRegistry وجود یک کلید رو بررسی میکنه .

[BORHAN TEC]

توجه داشته باشید که کلید در رجیستری معادل پوشه در Explorer است و Value هم معادل فایل است. (به نظر من سازندگان ویندوز در این رابطه اصلاً اسامی خوبی را انتخاب نکرده اند!):متفکر:
در هر حال به نظر من بهتره از ValueExists استفاده کنید! :چشمک:

[DarkACE]

میشه لطفاً یک مثال ساده بزنید؟

[SayeyeZohor]

var
Reg: TRegistry;
RegKey: String;
Key: String;
BEGIN
Reg := TRegistry.Create;
TRY
Reg.RootKey := HKEY_LOCAL_MACHINE;
Key := 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninsta ll\' + NameProgram;
IF (Reg.OpenKeyReadOnly(Key)) AND (Reg.ValueExists('DisplayName')) THEN
BEGIN
RegKey := Reg.ReadString('DisplayName');
Reg.CloseKey;
Result := True;
END
ELSE
BEGIN
Reg.CloseKey;
Result := False;
END;
FINALLY
Reg.Free
END;
END;