Delphi работа с системным реестром

Опубиковано: 16.07.2008 г., автор: , просмотров: 82287

Работа с реестром windows из Delphi

В этом уроке я бы хотел показать вам, как работать с реестром windows.
Итак для программной работы с системным реестром из Delphi перво-наперво что нужно сделать это дописать в раздел uses слово registry

Далее можно кинуть на форму компонент button и создать обработчик событий onClick
Ниже приведен пример такова обработчика с подробным описанием каждой строчки:

procedure TForm1.Button1Click(Sender: TObject);
var
   Registry: TRegistry;
begin
   { создаём объект TRegistry }
   Registry := TRegistry.Create;
   { устанавливаем корневой ключ; напрмер hkey_local_machine или hkey_current_user }
   Registry.RootKey := hkey_local_machine;
   { открываем и создаём ключ }
   Registry.OpenKey('software\MyRegistryExample',true);
   { записываем значение }
   Registry.WriteString('MyRegName','MyRegistry Value');
   { закрываем и освобождаем ключ }
   Registry.CloseKey;
   Registry.Free;
end;

На этом все. Не забываем подписываться на бесплатную мультимедийную рассылку. Форма для подписки расположена с права и с лева.

www.delphiexpert.ru



Похожие материалы

Последние из рубрики

Александр(подписчик) 29 Aug 2012 в 00:00 #
Владислав, а можно ли так сделать прогу с активацией?
KiberQ 27 Aug 2012 в 00:00 #
А как тогда считать эти данные, которые мы забили, из реестра?
Никита 07 Jul 2012 в 00:00 #
Кто поставит минус на это сообщение — тот долбоёб.
Ir0n_bob 11 May 2012 в 00:00 #
У меня вопросик.
Мне необходимо создать 2 кнопки.
1-ая кнопка должна загружать значение параметра Shell в Edit1, затем сравнивать его с постоянным значением const:=explorer.exe и выводить в Memo совпадают ли они.

2-ая кнопка, если значения не совпадают, должна находить по первому значению икомый .exe файл и удалять его, затем заменять значение на стандартное.


Прошу помогите сделать такие кнопки сколько не стараюсь ерунда выходит((((
Сергей 10 Apr 2012 в 00:00 #
Пример-то неплохой, только нигде не проводится на ошибки. А если что не работает? Пусть программа пишет "Exception"?

ОтменитьДобавить комментарий