Проблема с реестром (просто)

← →
Дмитрий (2008-04-05 16:11) [0]

Господа, здравствуйте!

Я работаю с реестром используя WinAPI. Не понимаю, что у меня не так?
Подскажите пожалуйста!

program AK; {$APPTYPE CONSOLE} //--------------------------------------------- uses Windows, SysUtils, Messages; //--------------------------------------------- var MyKey: HKey; Err : longint; str : string; begin str:= "Testing" + #0; Err:= RegOpenKeyEx(HKEY_CLASSES_ROOT,"test",0,KEY_WRITE,MyKey); if Err <> ERROR_SUCCESS then begin Err:= RegSetValueEx(MyKey,"Test_KEY",0,REG_SZ,@str,SizeOf(str)); if Err <> ERROR_SUCCESS then begin writeln("OK"); sleep(10000); end; RegCloseKey(MyKey); end; end.

← →
Anatoly Podgoretsky © (2008-04-05 16:29) [1]

> Дмитрий (05.04.2008 16:11:00) [0]

А чего ты хочешь?
Вроде бы все в соответствии с кодом, если ошибка то выдаем ОК

← →
Дмитрий (2008-04-05 16:40) [2]

да, но доло в том, что в реестр не пишется

← →
Дмитрий (2008-04-05 16:42) [3]

я хочу в реестр, в: HKEY_CLASSES_ROOT\test записать Test_KEY со значением Testing

← →
MBo © (2008-04-05 16:48) [4]

наверно, не @str, а PChar(str) надо использовать
и не SizeOf(str), а Length(str)

← →
Дмитрий (2008-04-05 17:17) [5]

всем спасибо

RegSetValueEx это функция, только не надо при ошибке выдавать, что все ОК
Какой код ошибки выдает? LastError

Проблема с реестром (просто) Найти похожие ветки