[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);