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

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

Работа с реестром [D5, D7, Win95/98, WinME, NT4, Win2k, WinXP]

stdnet ©   (2003-01-27 14:15:00) 

Привет! Подскажите как работать с Реесторм. Вот что я делаю:
REG := TRegistry.Create;
REG.RootKey:=HKEY_LOCAL_MACHINE;
REG.OpenKey("Какойто путь",true);
REG.WriteString("d", "3,00,53,00,43,00,46,00,6c,00,61,00,67,00,73,00,3d,00,30,00,\
00,00,4d,00,61,00,78,00,55,00,73,00,65,00,73,00,3d,00,34,00,32,00,39,00,34,\
00,39,00,36,00,37,00,32,00,39,00,35,00,00,00,50,00,61,00,74,00,68,00,3d,00,\
44,00,3a,00,5c,00,00,00,50,00,65,00,72,00,6d,00,69,00,73,00,73,00,69,00,6f,\
00,6e,00,73,00,3d,00,30,00,00,00,52,00,65,00,6d,00,61,00,72,00,6b,00,3d,00,\
00,00,54,00,79,00,70,00,65,00,3d,00,30,00,00,00,00,00");
REG.CloseKey;
REG.Destroy;
А оно нехочет все эти цифры записывать в Значение параметра d. Подскажите как быть?

---

icWasya   (2003-01-27 15:17:00) [1]

а если попробовать так

procedure TForm1.Button1Click(Sender: TObject);
Var S : WideString;
REG : TRegistry;
begin
S:=#3+
"SCFlags=0"#0+
"MaxUseses=4294967295"#0+
"Path=D:\"#0+
"PermissionType=00"#0#0;

REG := TRegistry.Create;
try
REG.RootKey:=HKEY_LOCAL_MACHINE;
REG.OpenKey("\software\MySoft",true);
REG.WriteBinaryData("d",S[1],Length(S)*2);
finally
REG.Free;
end;

end;

---

Delirium^.Tremens   (2003-01-27 14:59:00) [2]

> stdnet (27.01.03 14:50)
> А если с палками надо?

:-)
Ну, тогда так:
"3,00,53,00,43,00,46,00,6c,00,61,00,67,00,73,00,3d,00,30,00, \"+

---

stdnet   (2003-01-27 14:50:00) [3]

А если с палками надо?

---

Delirium^.Tremens   (2003-01-27 14:37:00) [4]

Убери палки \ :-)
и пиши строку прим. так:
"3,00,53,00,43,00,46,00,6c,00,61,00,67,00,73,00,3d,00,30,00,"+
...

---

stdnet   (2003-01-27 14:34:00) [5]

Ошибок много :)

[Error] Unit1.pas(33): Unterminated string
[Error] Unit1.pas(34): Missing operator or semicolon
[Error] Unit1.pas(34): Illegal character in input file: "\" ($5C)
[Error] Unit1.pas(37): Syntax error in real number
[Error] Unit1.pas(38): Unterminated string

---

Anatoly Podgoretsky   (2003-01-27 14:29:00) [6]

WriteString это запись не цифр, а символов, но писать должна, какая у тебя возникает ошибка.

---

Наверх