Проверка реестра

← →
Barlokf (2004-01-06 01:43) [0]

Приветствую!

Вообщем, я делаю игры и продаю их, вот, скоро перейду на ASProtect (крутая навесная защита) и по этому поводу мне надо кой-чего накодить. Кто может мне помочь? Нужно просто сделать проверку реестра, если такой ключ есть HKEY_CURRENT_USER\SOFTWARE\SWARGO\SEA ATTACK" , а параметр KEY имеет в нем любое значение, то появляется одна кнопка на форме, если нет то другая!

С уважением, Serg Petrowski ( swargo@swargo.com)
http://www.swargo.com

← →
_Dima_ (2004-01-06 02:00) [1]

Не представляю как можно писать игры и не знать таких элементарных вещей. Я в шоке! Сорри за оффтопик.

← →
Barlokf (2004-01-06 02:09) [2]

Пишу не на ДЕЛЬФИ игры просто, а вот сейчас решил немного поднабрать опыта (я сам в шоке, БД на дельфе могу написать, а такой вещи не могу) - либо виноват в этом НГ, всмысле его празднование ;)
Можешь помочь, _Dima_, если хочешь, могу поделится опытом в шароваре.

Моя аська - 178106496

С уважением, Serg Petrowski
http://www.swargo.com/
mailto:swargo@swargo.com

← →
_Dima_ (2004-01-06 02:41) [3]

Могу помочь, Barlokf. Опыта в шароваре самому девать некуда. Держи код:
procedure TForm1.FormCreate(Sender: TObject); var Reg: TRegistry; begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; if Reg.OpenKey("\SOFTWARE\SWARGO\SEA ATTACK", True) and (Reg.ReadString("Key") <> "") then begin Button1.Visible := True; Button2.Visible := False; end else begin Button1.Visible := False; Button2.Visible := True; end; finally Reg.CloseKey; Reg.Free; end; end;

← →
_Dima_ (2004-01-06 02:44) [4]

Да забыл. В секцию uses надо включить модуль Registry.

← →
Barlokf (2004-01-06 03:27) [5]

Спасибо огромное,

>>Опыта в шароваре самому девать некуда
поделись со мной ;)

С уважением, Serg Petrowski
http://www.swargo.com/

Спасибо за информацию. Меня, лично, она не интересует, но...

Проверка реестра Найти похожие ветки