Текущий архив: 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.073 c
