Я пишу программу для работы с удаленным реестром, и столкнулся с непонятной проблемой: программа не создает и не меняет значения.
Я использую следующий код:
подключаюсь к этому реестру (к своему в данном случае)
lRet := RegConnectRegistryA('127.0.0.1',HKEY_LOCAL_MACHINE, hRemoteReg);
If (lRet = ERROR_SUCCESS) then
Showmessage('Удачно сконектился')
else
showmessage('Не конектится');

Изменяю или создаю и изменяю значение
lRetVal:=RegOpenKeyEx(hRemoteReg, PChar(Edit1.Text), 0, KEY_ALL_ACCESS, hK);
if (lRetVal<>ERROR_SUCCESS) then
begin
showmessage('ключа нет');
lRetVal:=RegCreateKeyex(hRemoteReg, PChar(Edit1.Text), 0, nil, REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, nil, hK, @i);
if (lRetVal<>ERROR_SUCCESS) then showmessage('не могу создать');
lRetVal:=RegSetValueEx(hK,PChar(Edit2.Text),0,REG_SZ,@sValue,SizeOf(sValue));
if (lRetVal<>ERROR_SUCCESS) then showmessage('не могу установить значение');
RegCloseKey(hK);
end
else RegCloseKey(hK);

Причем, читает нормально, хотя там почти все то же.
Помогите написать так, чтобы работало.

RTFM по ф-и RegSetValueEx:
If the data is of type REG_SZ, REG_EXPAND_SZ, or REG_MULTI_SZ, cbData must include the size of the terminating null character or characters.

все прекрасно работает

Спасибо! Все работает!
Моя ошибка была в том, что я пытался создавать значения в разделах, которых нет.