|
|
#1
|
||||
|
||||
Пишу прямо тут, не проверяя
Код:
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 |