| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Дмитрий ©   (2008-04-05 16:11:00) 

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

Я работаю с реестром используя 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 18:06:00) [1]

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

---

Дмитрий   (2008-04-05 17:17:00) [2]

всем спасибо

---

MBo   (2008-04-05 16:48:00) [3]

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

---

Дмитрий   (2008-04-05 16:42:00) [4]

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

---

Дмитрий   (2008-04-05 16:40:00) [5]

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

---

Anatoly Podgoretsky   (2008-04-05 16:29:00) [6]

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

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

---

Наверх