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

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

абота с с системным регистром [D6, XP]

SIRUS ©   (2006-02-08 08:18:00) 

Просьба  знатокам  подсказать как  подступиться к  работе  с   системным  реестром Winduws XP.  Часто  требуется изменить в  нем  кое-какие  ключи, а  вручную делать это  неудобно. Не  подскажете  общие принципы, а  лучше образцы  кода  для  программки  по  изменению  реестра.
  С  уважением  -  Сайрус.
  8.02.2006

---

pavel_guzhanov   (2006-02-08 08:39:00) [1]

uses registry;

procedure TForm1.FormCreate(Sender: TObject);
var s:String;
   SysReg : TRegistry;
begin
 SysReg := TRegistry.Create;
 with SysReg do
 begin
   RootKey := HKEY_LOCAL_MACHINE;
     try
       OpenKey('SoftWare\Project1',true);
       S := ReadString('FolderName');
     finally
       CloseKey;
       Free;
     end; { try-finally }
   if S='' then
   begin
     S := 'C:\Documents and Settings';
     SysReg := TRegistry.Create;
     RootKey := HKEY_LOCAL_MACHINE;
     try
     OpenKey('SoftWare\Project1',true);
     try
       WriteString('FolderName',CString);
       except
       end; { try-except }
     finally
       CloseKey;
       Free;
     end; { try-finally }
   end; { with }
 end{procedure}

Здесь при загрузке формы пытаемся из реестра получить значение переменной S, если такого значения нет, то переменной присваивается значение по умолчанию, и это значение записывается в реестр

---

ZeroDivide   (2006-02-08 08:29:00) [2]

Используй класс TRegistry

---

Наверх