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

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

Работа с реестрои [D7, XP]


kuzmi4 ©   (2009-12-10 20:38:00) 

Подскажите новичку, как добавить запись в реестр. Читал инфу, но мало чего понял, ибо тугой, что там скрывать))
В общем, надо по нажатию на кнопку сделать следующее:
если есть в HKEY_LOCAL_MACHINE\Software папка 'test' с ключом 'zna4enie', то добавить в этот ключ 'zna4enie' параметр integer 'i+1', а если нету, то создать его с параметром '0'
Извиняюсь за настолько ламерский вопрос, но правда читал-читал, нифига не понял :)


TAzimut   (2009-12-11 17:50:00) [1]

>kuzmi4. Я сделал в своей проге так:
uses Registry;
const
 WinVers = 'Software\MySoft';
var
Registr:TRegistry;
Err:Longint;
MyKey: HKey;
s:String;
i:Integer;
begin
 Registr := TRegistry.Create;
 Registr.RootKey := hkey_local_machine;
 Err:=RegOpenKey(HKEY_LOCAL_MACHINE,WinVers,MyKey);
 {если ключа нет,-создаем}
 if Err<> ERROR_SUCCESS then
  begin
  Registr.OpenKey(WinVers,true);
  Registr.WriteInteger('Parametr1',1);
  Registr.WriteString('Parametr2','1');
  end;
 {если ключ есть,-читаем значение}
 i:=Registr.ReadInteger('Parametr1');
 s:=Registr.ReadString('Parametr2');
 Registr.CloseKey;
 Registr.Free;
end;


Сергей М.   (2009-12-10 21:01:00) [2]

Ну про "надо" - то понятно. Вполне внятно изложено.
А вот что ты читал и что конкретно из прочитанного не понял - это я мало понял,  точнее нифига не понял, ибо тугой, что там скрывать)

Про класс TRegistry читал ?


Наверх

Титульная страница Поиск, карта сайта Написать письмо