Вниз
Скачать: CL | DM;

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

← →
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);


← →
Lord Warlock ©   (2003-07-11 10:16) [3]

и еще:
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)



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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c
3-77800
Demka
2003-07-02 10:58
2003.07.24
select from TQuery


1-77973
MalkoLinge
2003-07-10 18:00
2003.07.24
Замена события !


11-77814
IZVER
2002-11-05 17:01
2003.07.24
локализация KOL-приложений


4-78184
Aga
2003-05-17 16:11
2003.07.24
UpdateResource


8-78011
БРУТЪ
2003-04-02 15:55
2003.07.24
Рисование на канве?




   Наверх