제가 알기로는 레지스트리에 있는 서브키의 리스트를
얻을수 있는것은 RegEnumKey이구요..
서브 Value의 리스트를 얻을수 있는 것은 RegEnumValue라고 알고 있거든요..

실제로 RegEnumKey를 사용해서 키값들을 구해서 사용하는데..
이번에는 Value 명을 얻어야 하는데.. 꼭 다음과 같은 에러가 나요...
---------------------------------------------------------------------
Types of actual and formal var parameters must be identical
---------------------------------------------------------------------
function GetSubValue(hkey : HKEY; subkey : string; var list : TStringList) : comp;
var
  lRet, count : comp;
  key1 : array[0..512] of char;
  i : integer;
begin
  i := 0;
  count := 0;
  FillChar(key1, sizeof(key1), #0);
  lRet := RegOpenKeyEx(hkey, PChar(subkey), 0, KEY_READ, hkey);
  if( lRet <> ERROR_SUCCESS) then
  begin
    RegCloseKey(hkey);
    result := 0;
    exit;
  end;
  RegQueryInfoKey(hkey, nil, nil, nil,nil, nil, nil,@count, nil, nil, nil, nil);
  while i < count do
  begin
    FillChar(key1, sizeof(key1), #0);
-----------------------------------------------------------
    RegEnumValue(hkey, i,key1,@lRet, nil,nil,nil,nil);
-----------------------------------------------------------
    list.Add(key1);
    i := i+ 1;
  end;
  RegCloseKey(hkey);
  result := i;
end;


위 함수가 소스 전체구요...
실제로 RegEnumKey를 사용해서 위와 같은 형식으로 사용 하고 있거든요..
근데 문제가 되는 부분이 sizeof(key1) 이라는 부분입니다.

Delphi Help를 보면
LPDWORD lpcbValueName,        // address for size of value buffer
라고 써있고 DWORD의 포인터지요? 그래서 lRet의 레퍼런스로 넣었는데
안맞는다고 나오네요...

꼭좀 가르쳐 주세요...
어떻게 RegEnumValue를 쓰셨는지...^^;;