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

[Seo_Neo]

Всем хай=)
Подскажите как сравнить значения в реестре, например если там 0 то нормально, если 1 то исправить на 0. Знаю как добавить только:

procedure CreateKeyRun(name:string);
var
  key:HKEY;
begin
if RegOpenKeyEx(HKEY_CURRENT_USER,'SOFTWARE\Microsoft\Windows\CurrentVersion\Run',0,KEY_CREATE_SUB_KEY or KEY_SET_VALUE, Key)=ERROR_SUCCESS then
 begin
  RegSetValueEx(key,PChar(Name),0,REG_SZ,PChar('путь к папке'),(lstrlen(PChar('путь к папке'))+1)*SizeOf(Char));
  RegCloseKey(key);
 end;
end;

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

[FaTaL]

Используй TRegistry, там немного проще.

[min@y™]

А как сравнить уже имеющийся?

Вероятно, прочитать его оттудасоответствующей функцией.

[Seo_Neo]

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

Используй TRegistry, там немного проще.

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

[Stilet]

зачем пользоваться лишними модулями

Потому что не всегда WinAPI уместно.
Впрочем не важно.
RegQueryValueEx() тебе в помошь для получения данных из ключа.
Можешь залезть в генфонд Делфи класса TRegustry и просто подсмотреть как эта функа там используется.

[Seo_Neo]

читаю так

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;

но почету то какой бы параметр не было выводится 0

[Shouldercannon]

Edit......

[Seo_Neo]

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

Edit......

что редактировать то, просто я не втупляю. Что делаю не так.

[Stilet]

выводится 0

Это хорошо. )
0 это ERROR_SUCCESS
А тебе бы не помешало внимательнее читать MSDN.
RegQueryValueEx() не возвращает данные из ключа, а возвращает код ошибки.
Данные возвращаются в некий буффер, который у тебя должен был быть вместо второго nil. Т.е. тебе нужно туда передать некую переменную, в которую и будет вписано значение ключа.

[Seo_Neo]

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

Это хорошо. )
0 это ERROR_SUCCESS
А тебе бы не помешало внимательнее читать MSDN.
RegQueryValueEx() не возвращает данные из ключа, а возвращает код ошибки.
Данные возвращаются в некий буффер, который у тебя должен был быть вместо второго nil. Т.е. тебе нужно туда передать некую переменную, в которую и будет вписано значение ключа.

ввел переменную buf:array[0..100] of PChar;
но результат тот же, в реестре этот параметр равен 7, а выводит 0

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