Реестр

← →
bloodman © (2003-07-10 23:14) [0]

Здавствуйте мастера.Мне нужно считать(а потом записать) числовое значение в реестр. Пробую так:
var
Reg :HKEY;
Wind : Integer;
....
RegCreateKey(HKEY_CLASSES_ROOT,
"CLSID\{05300003-0045-0038-0604-000006004002}\InProcServer32", Reg);
RegQueryValueEX(Reg,"data",nil,REG_SZ,@Wind,4);
Но выдается ошибка. Что не так?

← →
Cobalt © (2003-07-11 01:18) [1]

И что за ошибку выдаёт?
Из по какого пользователя запускаешьпрограмму? (user/power user/admin)

← →
Lord Warlock © (2003-07-11 10:02) [2]

var
Reg :HKEY;
Wind : Integer;
typ,sz: DWord;

....
RegCreateKey(HKEY_CLASSES_ROOT,
"CLSID\{05300003-0045-0038-0604-000006004002}\InProcServer32", Reg);
typ:=REG_SZ;
sz:=Sizeof(Wind);
RegQueryValueEX(Reg,"data",nil,@Typ,@Wind,@sz);

и еще:
1. Надо делать OpenKey. Если этого параметра нет, CreateKey создаст его, но запрашиваемого тобой значения data там не будет
2 посоветовал бы делать так:
if RegOpenKey(HKEY_CURRENT_USER,"...",Key)=ERROR_SUCCESS then
if RegQueryValueEx(Key,ну и прочее...)=ERROR_SUCCESS then
.....
else
ShowMessage(SysErrorMessage(GetLastError)
else
ShowMessage(SysErrorMessage(GetLastError)

Реестр Найти похожие ветки