Текущий архив: 2003.02.06;
Скачать: CL | DM;

Вниз

Работа с реестром   Найти похожие ветки 

← →
stdnet   (2003-01-27 14:15) [0]

Привет! Подскажите как работать с Реесторм. Вот что я делаю:
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. Подскажите как быть?

---

← →
Anatoly Podgoretsky   (2003-01-27 14:29) [1]

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

---

← →
stdnet   (2003-01-27 14:34) [2]

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

[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

---

← →
Delirium^.Tremens   (2003-01-27 14:37) [3]

Убери палки \ :-)
и пиши строку прим. так:
"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) [4]

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

---

← →
Delirium^.Tremens   (2003-01-27 14:59) [5]

> 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, \"+

---

← →
icWasya   (2003-01-27 15:17) [6]

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

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;

---

Страницы: 1 вся ветка

Текущий архив: 2003.02.06;
Скачать: CL | DM;

Наверх

Память: 0.45 MB
Время: 0.009 c