Скачать: CL | DM;

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

← →
Дмитрий   (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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c