Форум: "WinAPI";
Текущий архив: 2009.03.29;
Скачать: [xml.tar.bz2];
ВнизПроблема с реестром (просто) Найти похожие ветки
← →
Дмитрий (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]всем спасибо
← →
Anatoly Podgoretsky © (2008-04-05 18:06) [6]RegSetValueEx это функция, только не надо при ошибке выдавать, что все ОК
Какой код ошибки выдает? LastError
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2009.03.29;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.062 c