|
|
|
По реестру подскажите чуток..начинающему..
|
|||
|---|---|---|---|
|
#18+
Вобщем пытаюсь изьезженый вариант проверить.... Сохраняя Размеры и положения окна к примеру.... т.е. вот это.... автор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; это ладно...Но пачему если я пытаюсь от компилить вот это... происходит ошибка...? ПО примерам сматрел в инете... должны переменные создатся... Ошибка: ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.02.2006, 19:09 |
|
||
|
По реестру подскажите чуток..начинающему..
|
|||
|---|---|---|---|
|
#18+
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 не работает...Заранее спасибо! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.02.2006, 20:04 |
|
||
|
По реестру подскажите чуток..начинающему..
|
|||
|---|---|---|---|
|
#18+
UlanOfВ делфи работает ...дак пачему в C++ Bildere не работает...Заранее спасибо!А проблема как обычно во внимательности... Бэкслеш перед TEST зачем ставишь? А перед Software почему не двоишь его? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.02.2006, 21:45 |
|
||
|
По реестру подскажите чуток..начинающему..
|
|||
|---|---|---|---|
|
#18+
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; ПРобывал и так и сяк... Интересно что когда я в ручную создаю переменные то они считываются в моей процедурке... а если их нет то не хотять создаваться... Апять чтоли я под носом ошибку найти не магу?..Заранее спасибо... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.02.2006, 05:35 |
|
||
|
По реестру подскажите чуток..начинающему..
|
|||
|---|---|---|---|
|
#18+
автор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; Все таки что значит загруженная голова....Всем спасибо за терпение..))) Сам открыл тока для чтения а пытался записать туда... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.02.2006, 19:02 |
|
||
|
|

start [/forum/topic.php?fid=57&msg=33530127&tid=2031979]: |
0ms |
get settings: |
10ms |
get forum list: |
19ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
173ms |
get topic data: |
10ms |
get forum data: |
3ms |
get page messages: |
63ms |
get tp. blocked users: |
2ms |
| others: | 235ms |
| total: | 523ms |

| 0 / 0 |
