Работа с реестром на дельфи 7 [Версия для КПК]

Войти

Показать полную графическую версию : Работа с реестром на дельфи 7

fossil

26-08-2004, 12:28

Помогите написать программу которая при нажатии на кнопку должна добавлять в реестр ключ с серийником. Как это сделать?

Prisoner

27-08-2004, 04:04

Хм... А поглядеть в справку (Visual Component Library Reference) на предмет TRegistry?

fossil

27-08-2004, 11:57

Prisoner
Ок :) фенкс

Добавлено:

Я поглядел и ничего не понял :o
Подскажите как делать.... дайте сорцы :(

UZER

27-08-2004, 13:40

Почитай:
http://faq.h1.ru/index.php
http://www.abyss-group.narod.ru/docs/articles/regedit.htm

Если мало -  Google (http://www.google.ru/search?hl=ru&ie=UTF-8&q=%D1%80%D0%B0%D0%B1%D0%BE%D1%82%D0%B0+%D1%81+%D1%80%D0%B5%D0%B5%D1%81%D1%82%D1%80%D0%BE%D0%BC+%D0 %B2+delphi&lr=) поможет :)

fossil

27-08-2004, 15:17

:) всеравно не понятно
я вот написал тут малость, не работает что-то
procedure TForm1.Button1Click(Sender: TObject);
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('\FOSSIL',TRUE);
Reg.WriteString('MYAPP','"'+'D:\Project.exe'+'"');
Reg.CloseKey;
Reg.Free;
end;

Исправлено: fossil, 15:18 27-08-2004

Prisoner

28-08-2004, 02:26

А модуль Registry подключаем? Как именно не работает?

ЗЫ Сто лет назад писал это (http://www.7info.ru/other/uReg.zip) . Код не совсем корректный (с точки зрения исключений), но в 90% случаев оказывается полезен. Root - константа (HKEY_LOCAL_MACHINE или что нужно), Key - ключ к которому нужно докапаться... в общем смотрите по коду.

fossil

03-09-2004, 13:49

Prisoner
Все я разобрался, спасибо :)