Запись в реестр

← →
petr (2009-07-08 11:41) [0]

Здравствуйте!!! Подскажите пожалуйста, почему не происходит создание и запись значения параметра в реестр. Все Вроде правильно написано на мой взгляд. Вот мой код
ip := TRegistry.Create; ip.RootKey:=HKEY_LOCAL_MACHINE; ip.OpenKey("Software", true); ip.OpenKey("Microsoft", true); ip.OpenKey("Windows", true); if ip.ValueExists("IP") then begin if ip.ReadString("IP")=Edit1.Text then begin Showmessage("Вы уже работали с IP-адресом "+ip.ReadString("IP")); button1.Enabled:=false; button2.Enabled:=false;exit;end else ip.writestring("IP",Edit1.Text); ip.Free; end;

← →
Anatoly Podgoretsky © (2009-07-08 11:50) [1]

> petr (08.07.2009 11:41:00) [0]

Бр,

Утечки, отсутсвия понятия о защите ресурсов, защита от ошибок пользователя, да еще и в системную, чужую ветку реестра залез.

← →
Dennis I. Komarov © (2009-07-08 11:57) [2]

> да еще и в системную, чужую ветку реестра залез.

Ну чем же мы хуже мелкомягких...

← →
petr (2009-07-08 12:05) [3]

Я просто учусь работать с реестром. Вот код
REG := TRegistry.Create; reg.RootKey:=HKEY_LOCAL_MACHINE; reg.OpenKey("Software", true); reg.OpenKey("Microsoft", true); reg.OpenKey("Windows", true); if reg.ValueExists("money") then else begin reg.writestring("money","0"); end;
все работает, а
ip := TRegistry.Create; ip.RootKey:=HKEY_LOCAL_MACHINE; ip.OpenKey("Software", true); ip.OpenKey("Microsoft", true); ip.OpenKey("Windows", true); if ip.ValueExists("IP") then begin if ip.ReadString("IP")=Edit1.Text then begin Showmessage("Вы уже работали с IP-адресом "+ip.ReadString("IP")); button1.Enabled:=false; button2.Enabled:=false;exit;end else ip.writestring("IP",Edit1.Text); ip.Free; end;
не работает, хотя очень похож

← →
Anatoly Podgoretsky © (2009-07-08 12:09) [4]

А это похоже на лохотрон, мошенничество.

← →
Loginov Dmitry © (2009-07-08 22:58) [5]

> Я просто учусь работать с реестром.

Несмотря на не слишком уж и большой объем кода, ошибок слишком много. Нужно хотя бы так:

ip := TRegistry.Create; try ip.RootKey:=HKEY_LOCAL_MACHINE; if ip.OpenKey("Software\Microsoft\Windows", True) then begin if ip.ValueExists("IP") then begin if ip.ReadString("IP")=Edit1.Text then begin Showmessage("Вы уже работали с IP-адресом "+ip.ReadString("IP")); button1.Enabled:=false; button2.Enabled:=false; exit; end else ip.writestring("IP",Edit1.Text); end; end else raise Exception.Create("Не удалось открыть раздел Software\Microsoft\Windows "+ "для записи. Вероятно, у пользователя не достаточно прав."); finally ip.Free; end;

И лезть в системный раздел HKEY_LOCAL_MACHINE часто не обязательно. Он требует на запись права администратора. Запустил программу под администратором, сменил настройки, пользователь без прав их не испортит. Чтение - без проблем, но с помощью OpenKeyReadOnly.
Для хранения пользовательских параметров (своих для каждого пользователя) используется раздел HKEY_CURRENT_USER. Для всех прочих параметров используются файлы конфигурации (ini, xml), базы данных и т.п.

← →
Dennis I. Komarov © (2009-07-09 09:42) [6]

> petr (08.07.09 12:05) [3]

У меня бы и первый не отработал :P

Создай себе ветку и учись, чего к мелкомягким то полез? У них вкуснее?

> чего к мелкомягким то полез? У них вкуснее?

> if reg.ValueExists("money") then

шифроваться от взлома вздумал имхо

> Dennis I. Komarov (09.07.2009 09:42:06) [6]

Надеется, что там меньше вероятность, что его пакость обнаружат.

Запись в реестр Найти похожие ветки