[HTTqp]

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

Код:

var
 key:hkey;
 Handle: HKEY;
Res: LongInt;
DataType, DataSize: DWORD;
begin
RegOpenKeyEx(HKEY_LOCAL_MACHINE, PChar('SOFTWARE\Skype\Installer'), 0, KEY_QUERY_VALUE, Handle);
Label1.Caption:=IntToStr(RegQueryValueEx(Handle, PChar('BINGSRCHFF'), nil, @DataType, nil, @DataSize));
RegCloseKey(Handle);
end;

но возвращается либо пустая строка либо не верное значение, что не так я делаю?

[NumLock]

Код:

var
  LKey: HKEY;
  DataType: DWORD;
  DataSize: DWORD;
  i: Integer;
begin
  if RegOpenKeyEx(HKEY_LOCAL_MACHINE, PChar('SOFTWARE\Skype\Installer'), 0,
  KEY_QUERY_VALUE, LKey)<>ERROR_SUCCESS then RaiseLastOSError;
  try
    DataSize:=SizeOf(Integer);
    if RegQueryValueEx(LKey, PChar('BINGSRCHFF'), nil,
    @DataType, @i, @DataSize)<>ERROR_SUCCESS then RaiseLastOSError;
    Label1.Caption:=IntToStr(i);
  finally
    RegCloseKey(LKey);
  end;
end;

[HTTqp]

NumLock , благодарю, все работает отлично)