Вниз
Скачать: CL | DM;

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

 
kuzmi4   (2009-12-10 20:38) [0]

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


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

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

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


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

>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;



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

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



Память: 0.45 MB
Время: 0.008 c
2-1260364091
abhtr
2009-12-09 16:08
2010.02.07
Помогите перевести str1 := =?UTF-8?B?0JrQsNC6INC/0L7QsdC...


2-1260698706
Игорь
2009-12-13 13:05
2010.02.07
Определить имеет ли пользователь привилегии администратора


15-1259865018
andrewtitoff
2009-12-03 21:30
2010.02.07
Кодировка HTTP запросов


15-1259767731
Ruzzz
2009-12-02 18:28
2010.02.07
Экпорт исходного кода из IDE в RTF/HTML


4-1228720579
DmiSbr
2008-12-08 10:16
2010.02.07
Печать на матричный EPSON TM-U950




   Наверх