Работа с реестром

← →
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]

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

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

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

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;

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