|
|
#1
|
|||
|
|||
Checkbox
Господа товарищи, очень прошу помощи...
Дело все в том, что либо я старею (мозги усохли), либо ....(на этом мысль обрывается)... Пожалуйста, если кто может, напишите кусок кода, описание которого я разместил ниже... Суть дела в том, что при запуске прога должна сверять установленное значение в реестре и в зависимости от этого ставить (или убирать) Checkbox... Конкретный пример: [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion] "RegDone"="1" - если стоит 1, то ChekBox включен, если стоит 2 - выключен... Очень жду вашей помощи!!! Спасибо! |
#2
|
||||
|
||||
Пишу прямо тут, не проверяя
Код:
uses Registry; var reg:TRegistry; begin reg:=TRegistry.Create(KEY_READ); with reg do begin RootKey:=HKEY_LOCAL_MACHINE; if OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion',false) then MyMegaCheckBox.Checked:=ReadInteger('RegDone')=1; end; reg.free; end |