Скачать: CL | DM;

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

← →
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/

---

← →
Германн ©   (2004-01-06 04:22) [6]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c