Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.22;
Скачать: CL | DM;

Вниз

Реестр. Как избежать ошибки?   Найти похожие ветки 

 
iii   (2002-07-10 15:20) [0]

Здравствуйте.
У меня при загрузке программы читаються некоторые значения из реестра. Если значение не соответствует нужному, выводится ошибка - Invalid data type for "NoDriveTypeAutoRun". Это возникает, например, если значение должно быть двоичным, а на его месте такой же параметр, но со строковым значением. Помогите избежать ошибки!

//Чтение
procedure ReadData;
var
buf:Dword;
Reg:TRegistry;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer",False);

if Reg.ValueExists("NoDriveTypeAutoRun") then
begin
Reg.ReadBinaryData("NoDriveTypeAutoRun",buf,sizeof(buf));
if buf=0 then
Form1.Checkbox11.Checked:=true
else
Form1.Checkbox11.Checked:=false;
end;

Reg.CloseKey;
Reg.Free;
end;


 
Skier ©   (2002-07-10 15:30) [1]

>iii
А если всё это в try-блок засунуть ?


 
Skier ©   (2002-07-10 15:43) [2]

>iii

function TRegistry.GetDataInfo не устроит ???



 
iii   (2002-07-10 17:56) [3]


> А если всё это в try-блок засунуть ?


Безполезно, пробовал!


 
Skier ©   (2002-07-10 18:02) [4]

>iii
см. Skier © (10.07.02 15:43)


 
Skywalker ©   (2002-07-10 19:55) [5]

try должен проходить
в такой форме
try
...
except
on ERegistryException do
begin
end
end



Страницы: 1 вся ветка

Текущий архив: 2002.07.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
3-70673
_dron_
2002-07-02 12:59
2002.07.22
Как сделать экспорт таблицы из базы Interbase в dbase, paradox


3-70579
RDA
2002-06-27 15:20
2002.07.22
Firebird и IBAdmin3


1-70795
AlexAlex
2002-07-10 12:30
2002.07.22
Как получить имя выбранного (с путем) файла в TShellListView?


14-70868
easy
2002-06-19 13:48
2002.07.22
Странный вирус


1-70802
dlK
2002-07-09 11:36
2002.07.22
Процесс сервиса занимает 99% процессорног времени.