Форум: "Основная";
Текущий архив: 2003.02.06;
Скачать: [xml.tar.bz2];
Вниз
Работа с реестром Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c
