Сверить параметры реестра

[min@y™]

но результат тот же, в реестре этот параметр равен 7, а выводит 0

слышь, ты меня устал!
когда ж до тебя допрёт открыть registry.pas и тупо посмотреть, как там используется эта ядрёна функция RegQueryValueEx()!
Она там минимум в двух местах вызывается, сам проверил щас!

[northener]

но результат тот же, в реестре этот параметр равен 7, а выводит 0

Что ты выводишь, то и выводит. Зачем ты завел переменную buf, если не смотришь что в неё записалось?

Сообщение от Seo_Neo

ну так сказать зачем пользоваться лишними модулями если можно обойтись имеющими))) я так понимаю мой способ из модуля window берется если я правильно знаю

А это действительно твой способ? Сомневаюсь я что-то.
Ну а уж если ты используешь VCL, то о "лишних" модулях типа Registry может волноваться либо параноик (надеюсь ты не страдаешь этой болезнью), либо неуч-троешник.

[FaTaL]

Я понял бы если бы модуль Registry весил много, но он ни килобайта в весе программы не прибавит.

[Stilet]

но результат тот же, в реестре этот параметр равен 7, а выводит 0

Кудесненько ))
Меня ты слушать не хотишь.
А зачем ты тогда в WinAPI полез если даже не знаешь как этими функциями пользоваться? Ну уменьшишь ты размер на 0,01%, и при этот твоя программа будет работать тяп-ляп.
Вот как надо было делать:

var
 key:hkey;
 Res: Integer;
 DataType, DataSize: DWORD;
begin
Res:=0;
DataType:=REG_DWORD;  //Указываем тип выбираемого значения
DataSize:=SizeOf(Res); //Указываем размер значения в байтах
if RegOpenKeyEx(HKEY_CURRENT_USER, PChar('SOFTWARE\Skype\Installer'), 0, KEY_QUERY_VALUE, key)=0 then begin
 if RegQueryValueEx(key, PChar('BINGSRCHFF'), nil, @DataType, @Res, @DataSize)=0 then begin
  Caption:=IntToStr(Res);
 end  else ShowMessage(SysErrorMessage(GetLastOSError));
end else ShowMessage(SysErrorMessage(GetLastOSError));
RegCloseKey(key);
end;

А для других типов по другому параметры указываются.
Поэтому не парься - используй TRegistry.