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

Вниз

Прошу помощи по RegEnumValue   Найти похожие ветки 

 
DesperadO666 ©   (2006-05-29 10:32) [0]

Нужно прочесть наименования ключей определенной ветки
Подскажите, что не так делаю....

var
 key  : HKEY;
 index : word;
 DataType,DataSize,ValueNameSize :DWORD;
 Data,ValueName  : pchar;
 ErrParam : Integer;

 if RegOpenKey (HKEY_LOCAL_MACHINE,"HKEY_LOCAL_MACHINE\SOFTWARE\ORACLE\AUTOTUNE9.2.0",key)= ERROR_SUCCESS then
 begin
   index:=0;
   DataSize:=SizeOf(Data);
   ValueNameSize:=SizeOf(ValueName);
   ErrParam:=RegEnumValue (key,index,ValueName,@ValueNameSize,null,null,null,null);
 end;

Вылезает ошибка
Types of actual and formal var parameters must be identical


 
tesseract ©   (2006-05-29 10:54) [1]

У тебя несовпадение размерности. index -Cardinal, valueNameSize - тоже.

и вроде должно быть не null, а nil.

SizeOf(pcharvalue) - вернёт размер pointer - 4  байта.
Length(pcharvalue) - вернёт что надо.

см help по этому.


 
DesperadO666 ©   (2006-05-29 11:29) [2]

Переписал так.
var
 key  : HKEY;
 ValueNameSize :DWORD;
 ValueName  : array [0..255] of char;
 ErrParam : Integer;

 if RegOpenKey(HKEY_LOCAL_MACHINE,"\HKEY_LOCAL_MACHINE\SOFTWARE\HiKPI\REUR\USERS",ke y)= ERROR_SUCCESS then
 begin
   ValueNameSize:=SizeOf(ValueName);
   ErrParam:=RegEnumValue(key,0,ValueName,@ValueNameSize,nil,nil,nil,nil);
 end;

Курсор ставновится возле первого nil с той же ошибкой :(



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

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

Наверх




Память: 0.47 MB
Время: 0.04 c
2-1149089430
AlexanderMS
2006-05-31 19:30
2006.06.18
Узнать процедуры в DLL


2-1149139066
Hadroran
2006-06-01 09:17
2006.06.18
Вызов процедуры события


15-1148553293
Kolan
2006-05-25 14:34
2006.06.18
Помогите найти чернобыль на карте.


4-1142926924
MaxxSoft
2006-03-21 10:42
2006.06.18
Создание невидимого окна


11-1127963931
dvk
2005-09-29 07:18
2006.06.18
KOL+MCK 2.13/ Проблемы с установкой