Прошу помощи по 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 по этому.

Переписал так.
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 с той же ошибкой :(

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