powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / C++ [игнор отключен] [закрыт для гостей] / По реестру подскажите чуток..начинающему..
5 сообщений из 5, страница 1 из 1
По реестру подскажите чуток..начинающему..
    #33529742
UlanOf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вобщем пытаюсь изьезженый вариант проверить.... Сохраняя Размеры и положения окна к примеру....
т.е. вот это....

авторTRegistry *Reg = new TRegistry(KEY_READ);
Reg->RootKey=HKEY_CURRENT_USER;
Reg->OpenKey("\Software",true);
Reg->OpenKey("\TEST",true);
if (!Reg->KeyExists ("Left"))
{
Reg->WriteInteger("Left",10);
}
if (!Reg->KeyExists ("Top"))
{
Reg->WriteInteger("Top",10);
}
Main->Top=(Reg->ReadInteger("Left"));
Main->Left=(Reg->ReadInteger("Top"));
Reg->CloseKey();
delete Reg;

Проверка Которую я написал существования ключа не применяется для Переменной реестра...

TRegistry *Reg = new TRegistry(KEY_READ);
Reg->RootKey=HKEY_CURRENT_USER;
Reg->OpenKey("\Software",true);
Reg->OpenKey("\TEST",true);
Reg->WriteInteger("Left",10); Это не правильно я что то не вижу о шибки... Подскажи что я совсем уже?) Как зделать в этом месте)..
Reg->WriteInteger("Top",10);
delete Reg;

это ладно...Но пачему если я пытаюсь от компилить вот это... происходит ошибка...? ПО примерам сматрел в инете... должны переменные создатся...

Ошибка:
...
Рейтинг: 0 / 0
По реестру подскажите чуток..начинающему..
    #33529837
UlanOf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegistry;
begin
Reg:=TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('\Software', True);
Reg.OpenKey('test', True);
Reg.WriteInteger('Left',10);
Reg.CloseKey;
Reg.Destroy;

end;Вот только что это выполнил...Работает...Проблема в чем тогда...Я уже запутался....
В делфи работает ...дак пачему в C++ Bildere не работает...Заранее спасибо!
...
Рейтинг: 0 / 0
По реестру подскажите чуток..начинающему..
    #33529931
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
UlanOfВ делфи работает ...дак пачему в C++ Bildere не работает...Заранее спасибо!А проблема как обычно во внимательности... Бэкслеш перед TEST зачем ставишь? А перед Software почему не двоишь его?
...
Рейтинг: 0 / 0
По реестру подскажите чуток..начинающему..
    #33530127
UlanOf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
White Owl UlanOfВ делфи работает ...дак пачему в C++ Bildere не работает...Заранее спасибо!А проблема как обычно во внимательности... Бэкслеш перед TEST зачем ставишь? А перед Software почему не двоишь его?

Если я правильно понял .. то это \\Software

TRegistry *Reg = new TRegistry(KEY_READ);
Reg->RootKey=HKEY_CURRENT_USER;
Reg->OpenKey("\\Software",true);
Reg->OpenKey("test",true);

if (!Reg->ValueExists("Left"))
Reg->WriteInteger("Left",10);

if (!Reg->ValueExists("Top"))
Reg->WriteInteger("Top",10);


Main->Top=(Reg->ReadInteger("Left"));
Main->Left=Reg->ReadInteger("Top");
delete Reg;

ПРобывал и так и сяк...

Интересно что когда я в ручную создаю переменные то они считываются в моей процедурке... а если их нет то не хотять создаваться... Апять чтоли я под носом ошибку найти не магу?..Заранее спасибо...
...
Рейтинг: 0 / 0
По реестру подскажите чуток..начинающему..
    #33532477
UlanOf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
авторTRegistry *Reg = new TRegistry(KEY_READ);
Reg->RootKey=HKEY_CURRENT_USER;
Reg->OpenKey("\\Software",true);
Reg->OpenKey("test",true);

if (!Reg->ValueExists("Left"))
Reg->WriteInteger("Left",10);

if (!Reg->ValueExists("Top"))
Reg->WriteInteger("Top",10);


Main->Top=(Reg->ReadInteger("Left"));
Main->Left=Reg->ReadInteger("Top");
delete Reg;
Все таки что значит загруженная голова....Всем спасибо за терпение..)))
Сам открыл тока для чтения а пытался записать туда...
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / C++ [игнор отключен] [закрыт для гостей] / По реестру подскажите чуток..начинающему..
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]