Работа с реестром

[Claster]

Все доброго время суток дали задачку препада небыло как делать я ненаю помогите пожалуйста с реестром никогда не работал

Задача:
Написать программу, позволяющую
1. Создать подключ ключа Software основного раздела HKEY_LOCAL_MACHINE, назвать его своей фамилией
2. В созданном ключе создать подключ УВИС, а в нем подключ лаб1.
3. В последнем ключе создать параметр Path, указав в качестве значения путь к программе
4. Отобразить подключи ключа Software

[uberchel]

Держи, не пропускай уроки )

 uses Registry; //Это прописать в uses
....

procedure TForm1.btn1Click(Sender: TObject);
var
 Reg: TRegistry;
begin
 Reg:= TRegistry.Create;
 Reg.RootKey:= HKEY_LOCAL_MACHINE;
 with Reg do begin
  OpenKey('SoftWare\Твоя фамилия\УВИС',True);
  WriteString('лаб1',ParamStr(0));
  CloseKey;
 end;
 Reg.Free;
end;

[Claster]

Как провериь результат работы проги?? что она что-то сделала

А в реестре прописалось спасибо большое

а как быть с 3. В последнем ключе создать параметр Path, указав в качестве значения путь к программе

как мона прописать свой путь к проге?

[uberchel]

Там и так прописался путь к проге(paramStr(0)) !

 uses Registry;

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var
 Reg: TRegistry; //Переменная реестра Reg
begin
 Reg:= TRegistry.Create; //Создаём
 Reg.RootKey:= HKEY_LOCAL_MACHINE; //Выбераем ветку
 with Reg do begin //берем в оборот(показываем что ниже все относится к Reg до end
  OpenKey('SoftWare\UberChel\УВИС\лаб1',True); //Открываем ключь если нету то создаём
  WriteString('лаб1',ParamStr(0)); //Записываем значение в ключ "лаб1" значение содержащие путь к программе
  Canvas.TextOut(10,10,'Ïîäêëþ÷è:  '+ Copy(CurrentPath, 10, 20)); //Отображаем что у нас записалось
  CloseKey; //Закрываем ключь
 end;
 Reg.Free; //Освобождаем память, уничтожаем переменную
end;