RegTweakXP
Всем привет!Ща убираю глюки в своей проге RegTweakXP.Нужно сделать следующее.ЧТобы прога сверяла если значение есть в реестре,тогда показать что типо чекбокс включен.
Вот код:
=========================================================
пишу в uses Registry
обьявляю переменную
reg:Tregistry;
sys1:integer;
try
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
{False because we do not want to create it if it doesn’t exist}
Reg.OpenKey('\Software\RegtweakXP',False);
sys1:=Reg.ReadInteger('data');
finally
reg.free;
end;
/////////////////////////
if sys1=0000001 then
begin
checkbox1.checked;
end;-->>>это я и по таймеру пробовал делать,не получается,также пробовал
if sys1=0000001 then
begin
checkbox1.click;
end;
=========================================================
Что тут неверно?
С уважением,SNAKE
Вот код:
=========================================================
пишу в uses Registry
обьявляю переменную
reg:Tregistry;
sys1:integer;
try
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
{False because we do not want to create it if it doesn’t exist}
Reg.OpenKey('\Software\RegtweakXP',False);
sys1:=Reg.ReadInteger('data');
finally
reg.free;
end;
/////////////////////////
if sys1=0000001 then
begin
checkbox1.checked;
end;-->>>это я и по таймеру пробовал делать,не получается,также пробовал
if sys1=0000001 then
begin
checkbox1.click;
end;
=========================================================
Что тут неверно?
С уважением,SNAKE
вообще-то чтобы галочку поставить надо делать так:
а чтобы снять
во-вторых если ты integer читаешь, то и пиши
а не 0000001.
Код:
checkbox1.checked:=true;
а чтобы снять
Код:
checkbox1.checked:=false;
во-вторых если ты integer читаешь, то и пиши
Код:
if sys1=1 then
а не 0000001.
Еще неплохо бы reg.ValueExists() добавить.
