Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> проблемы с TRegistry.Rootkey, у меня неполучаетсмя присваивать значени 
:(
    Опции темы
ctranik
  Дата 11.1.2006, 17:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 15
Регистрация: 25.12.2005

Репутация: нет
Всего: нет



Всем привет

У меня такой вопрос

Как в цикле , менять значение свойства "Rootkey" класса TRegistry
ну что типа такого

Код

var
reg:TRegisty;
hk:array[0..6] of Hkey;
i:integer;

begin

reg:=TRegistry.Create;

hk[0]:=HKEY_LOCAL_MACHINE;
hk[1]:=HKEY_Current_User; 
hk[2]:=HKEY_Classes_Root;
hk[3]:=HKEY_Users; hk[4]:=HKEY_Current_Config;
hk[5]:=HKEY_PERFORMANCE_DATA;
hk[6]:=HKEY_DYN_DATA ;

for i:= 0 to 6 do
     reg.rootkey:=hk[z];// тут проблема
     .......
     .......
end;

reg.free;


у меня неполучаетсмя присваивать значения ?

Это сообщение отредактировал(а) ctranik - 11.1.2006, 17:46
PM MAIL   Вверх
Romikgy
Дата 11.1.2006, 17:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146



Че конкретно не получается? какие ошибки, приведенный код вроде правильный имхо!!!


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile

PM   Вверх
Albinos_x
Дата 11.1.2006, 17:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108



мдя....
Цитата(ctranik @ 11.1.2006, 17:44 Найти цитируемый пост)

for i:= 0 to 6 do
    reg.rootkey:=hk[z];// тут проблема

просто попробуй z поменять на i .... smile


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
ctranik
Дата 11.1.2006, 19:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 15
Регистрация: 25.12.2005

Репутация: нет
Всего: нет



Albinos_x, привет

Цитата(Albinos_x @ 11.1.2006, 17:59 Найти цитируемый пост)

просто попробуй z поменять на i ....

это просто опечатка и всё.
А проблема в том что , это свойство требует что бы ему установили конкретную константу, а не элемент массива
свойство хочет вот чего
Код

reg.rootkey:=HKEY_LOCAL_MACHINE; и т.д


и совсем не приемлет
Код


for i:= 0 to 6 do
     reg.rootkey:=hk[i];
     


Это и есть моя проблема
Добавлено @ 19:59
Romikgy, привет

более детально о проблеме в последней мессаге
PM MAIL   Вверх
Guedda
Дата 11.1.2006, 20:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78



а если просто попробовать:
Код

const
  RootKeys : array[0..6] of Integer = 
  (
    HKEY_LOCAL_MACHINE, 
    HKEY_CURRENT_USER, 
    HKEY_CLASSES_ROOT, 
    HKEY_USERS, 
    HKEY_CURRENT_CONFIG, 
    HKEY_PERFOMANCE_DATA, 
    HKEY_DYN_DATA
  );

и обращаться через константы.

Это сообщение отредактировал(а) Guedda - 11.1.2006, 20:16


--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
ctranik
Дата 11.1.2006, 20:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 15
Регистрация: 25.12.2005

Репутация: нет
Всего: нет



Guedda, привет

если тебя не затруднит вставь свою мысль в мой фрагмент (самый первый Post)
PM MAIL   Вверх
Albinos_x
Дата 11.1.2006, 20:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108



Цитата(ctranik @ 11.1.2006, 19:56 Найти цитируемый пост)

это просто опечатка и всё.
А проблема в том что , это свойство требует что бы ему установили конкретную константу, а не элемент массива
свойство хочет вот чего

виднов коде у тебя ошибка... у меня всё компилится и всё устанавливается...
Код

uses
   ..., Registry,...

...
procedure TForm1.Button1Click(Sender: TObject);
var
reg:TRegistry;
hk:array[0..6] of Hkey;
i:integer;
begin
reg:=TRegistry.Create;
hk[0]:=HKEY_LOCAL_MACHINE;
hk[1]:=HKEY_Current_User;
hk[2]:=HKEY_Classes_Root;
hk[3]:=HKEY_Users; hk[4]:=HKEY_Current_Config;
hk[5]:=HKEY_PERFORMANCE_DATA;
hk[6]:=HKEY_DYN_DATA ;
for i:= 0 to 6 do
     begin
     reg.rootkey:=hk[i];// òóò ïðîáëåìà

     end;

reg.free;
end;
...



--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
Guedda
Дата 11.1.2006, 20:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78



Ну смотри:
Код

var    
  reg:TRegisty;    
  i:integer;    
const
  RootKeys : array[0..6] of Integer =    
  (    
    HKEY_LOCAL_MACHINE,    
    HKEY_CURRENT_USER,    
    HKEY_CLASSES_ROOT,    
    HKEY_USERS,    
    HKEY_CURRENT_CONFIG,    
    HKEY_PERFOMANCE_DATA,    
    HKEY_DYN_DATA    
  );
begin            
  for i:= 0 to 6 do begin    
    reg:=TRegistry.Create;
    reg.rootkey:=RootKeys[i];// Здесь присваиваем константу
        .......     // здесь делаем, что хотим.
        .......
    reg.CloseKey;
    reg.free; 
  end; {for}
end;   {procedure}

В общем, работает...
Только запомни, что после каждого обращения к ключу, необходимо обнулить методом free. Посмотри внимательней на исправленный код.

Это сообщение отредактировал(а) Guedda - 11.1.2006, 20:36


--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
Albinos_x
Дата 11.1.2006, 20:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108



как вариант HKEY_LOCAL_MACHINE и подобные константы имеют тип Cardinal, попробуй установить тип массива
hk:array[0..6] of Cardinal;


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
Guedda
Дата 11.1.2006, 20:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78



Да... Я еще это забыл, перепеши Integer в Cardinal


--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
Albinos_x
Дата 11.1.2006, 21:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108



Цитата(ctranik @ 11.1.2006, 19:56 Найти цитируемый пост)

А проблема в том что , это свойство требует что бы ему установили конкретную константу, а не элемент массива
свойство хочет вот чего

если я правильно понял, то твой код у тебя не компилился.... м.п. когда я вставил твой код, то сразу вылезло кучу опечаток.... начиная от
Цитата
reg:TRegisty;

...


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0781 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.