Скачать: 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 вся ветка

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



Память: 0.45 MB
Время: 0.028 c