[KOEHL]

Не идет запись значения в ветку реестра( Пытаюсь дописать так:
var
...
value:=1;

Код:

RegOpenKeyEx(HKEY_LOCAL_MACHINE, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\Program', 0, KEY_ALL_ACCESS, RegResult);

RegSetValueEx(RegResult, PChar('SystemComponent'), 0, REG_DWORD,value , 255);

[KOEHL]

..............

[KOEHL]

Ну что, никто не поможет?(

[The Shadow]

прав наверно нет, попробуйте заменить ключ KEY_ALL_ACCESS

[Yurk@]

а не проще так?:

Код:

uses Registry;
var 
R :TRegistry;

begin 
  try
    R:=TRegistry.Create;
    R.RootKey:=HKEY_LOCAL_MACHINE;
    R.OpenKey('путь в реестре',True);
    R.WriteString('имя параметра','значение');
    R.CloseKey;
  Except R.Free;
  end;
end;

[KOEHL]

В том то и дело, что нужно именно на API(

[The Shadow]

права доступа меняли? что возвращает функция?

[KOEHL]

Главное запись таких параметров как UninstallString, DisplayIcon и др. идет, а вот параметра SystemComponent - нет. Права менял тоже самое.