Текущий архив: 2006.02.26;
Скачать: CL | DM;

Вниз

абота с с системным регистром   Найти похожие ветки 

← →
SIRUS   (2006-02-08 08:18) [0]

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

---

← →
ZeroDivide ©   (2006-02-08 08:29) [1]

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

---

← →
pavel_guzhanov ©   (2006-02-08 08:39) [2]

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, если такого значения нет, то переменной присваивается значение по умолчанию, и это значение записывается в реестр

---

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

Текущий архив: 2006.02.26;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.037 c