| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проверка реестра [D7, Win95/98, WinXP]

Barlokf ©   (2004-01-06 01:43:00) 

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

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

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

---

Германн   (2004-01-06 04:22:00) [1]

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

---

Barlokf   (2004-01-06 03:27:00) [2]

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

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

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

---

_Dima_   (2004-01-06 02:44:00) [3]

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

---

_Dima_   (2004-01-06 02:41:00) [4]

Могу помочь, 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;


---

Barlokf   (2004-01-06 02:09:00) [5]

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

Моя аська - 178106496

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

---

_Dima_   (2004-01-06 02:00:00) [6]

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

---

Наверх