Вниз
Скачать: 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.006 c
2-1260466717
kuzmi4
2009-12-10 20:38
2010.02.07
Работа с реестрои


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


2-1260449124
Caster Troi
2009-12-10 15:45
2010.02.07
Парсинг файлов. TStream.


2-1260456442
Proxytel
2009-12-10 17:47
2010.02.07
Как читать индикатор чтения-записи жесткого диска?


3-1234527045
allexxx
2009-02-13 15:10
2010.02.07
mssql 2005 и xml data type




   Наверх