[Dm1tr1y]

Проблема решена

Здравствуйте,

задача заключается в получении всех параметров у определенного ключа реестра.
Я весь Интернет облазил, все примеры изучил, но не работает....

Код:

program TEST;
{$APPTYPE CONSOLE}

uses Windows, SysUtils, Messages;

function ReadAllFromRegister: Boolean;
var
  MyKey: HKey;
  SubKeyName: array[0..256] of Char;
  BufferSize, Index: Cardinal;
begin
  Result:= False;
  if (RegOpenKeyEx(HKEY_CLASSES_ROOT,'test',0,KEY_READ,MyKey) = ERROR_SUCCESS) then
    begin
      Index:= 0;
      BufferSize:= SizeOf(subKeyName);
      while (RegEnumKeyEx(MyKey, Index, SubKeyName, BufferSize, nil, nil, nil, nil) = ERROR_SUCCESS) do
        begin
          writeln(inttostr(Index)+': '+SubKeyName);
          inc(Index);
        end;
      Result:= True;
      RegCloseKey(MyKey);
    end;
end;

begin
  ReadAllFromRegister;
  sleep(10000);
end.

Спасибо.

--
С уважением,
Дмитрий.