Форум: "Основная";
Текущий архив: 2002.08.26;
Скачать: [xml.tar.bz2];
Вниз
Как можно считать значение DWORD из реестра? Найти похожие ветки
← →
Lexa18 (2002-08-14 12:53) [0]Буду признателен.
← →
Виктор Щербаков (2002-08-14 12:56) [1]TRegistry.ReadInteger
← →
Lexa18 (2002-08-14 16:35) [2]Ничего подобного, компилятор выдаёт ошибку, что нельзя прочесть значение, хотя оно существует и при команде определения типа данных вадаёт Integer. Вот не читает значение, и всё тут.
← →
Skier (2002-08-14 16:38) [3]>Lexa18
Код в студию...
← →
Lexa18 (2002-08-14 16:52) [4]var IsExist:TRegistry;
begin
IsExist:=TRegistry.Create;
IsExist.RootKey:=HKEY_CURRENT_USER;
try
if IsExist.OpenKey("\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer",false) then
begin
if IsExist.ValueExists("NoDesktop") then
begin
if IsExist.ReadInteger("NoDesktop")=1 then
begin
HideAllBox.Checked:=true;
end
else
HideAllBox.Checked:=false;
end
else //Если значение "NoDesktop" не существует в ключе Explorer,
begin//тогда создадим его и установим значение
IsExist.WriteInteger("NoDesktop",00000000);
HideAllBox.Checked:=false;
end;
end;
except
MessageDlg("Ошибка при просмотре или создании ветви реестра",mtError,[mbOK],0);
end;
IsExist.CloseKey;
IsExist.Free;
← →
Skier (2002-08-14 16:58) [5]>Lexa18
Хм. А у меня твой код работает...
← →
Anatoly Podgoretsky (2002-08-14 17:08) [6]Какую ошибку выдает компилятор?
Да и перемести IsExist.RootKey:=HKEY_CURRENT_USER; сразу за try или совсем ликвидируй, это по умолчанию
← →
Lexa18 (2002-08-14 17:35) [7]Текст ошибки: Project Project1.exe raised exception class ERegistryException with message "Failed to get data for "NoDesktop"". Process stoped....
← →
Skier (2002-08-14 17:40) [8]>Lexa18
Всё это очень странно...Код правильный...
(по крайней мере у меня в D5 всё это работает)
А какой у тебя номер сборки D4 ?
← →
Lexa18 (2002-08-14 17:42) [9]5.37, а что это может повлиять?
← →
Skier (2002-08-14 17:47) [10]>Lexa18
Может... В Borland-e тоже люди сидят... и они ошибаются...
У меня кстати и в D4 твой код работает
(но у меня номер сборки 5.108)
Хорошо бы тебе Delphi пропачить...
← →
Anatoly Podgoretsky (2002-08-14 17:49) [11]Lexa18 (14.08.02 17:35)
Это же сообщение не компилятора, а рантайм, кстати ты случайно не из Дельфи запускаешь, если так или настрой Дельфи или запускай вне среды.
← →
Lexa18 (2002-08-14 18:17) [12]Здрасте, а от куда же, как не из компилятора? Чем хуже, чем из среды? При запуске из среды выскакивает уже моё сообщение, которое я описал как MessageDlg("Ошибка при просмотре или создании ветви реестра",mtError,[mbOK],0); И ещё, как мне Делфи пропатчить?
← →
Skier (2002-08-14 18:19) [13]>Lexa18
Скачиваешь пачи...и ставишь (к D4 их аж 3 штуки)
← →
Lexa18 (2002-08-14 18:22) [14]А откуда их скачать-то? И потом, Анатолий сказал, что это от RunTime зависит
← →
Skier (2002-08-14 18:27) [15]>Lexa18
> А откуда их скачать-то?
С оффициального сайта...
> И потом, Анатолий сказал, что это от RunTime зависит
Всё может быть...Но и ошибка в классе TRegistry тоже
не исключена...
← →
Lexa17 (2002-08-14 18:51) [16]В классе ошибки нет, я просмотрел registry.pas. А на сайте Делфи ни хрена, извините, нет, даже патчей для Делфи4
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.08.26;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.007 c