![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Работа с реестрои [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 читал ?