Считать значение REG_DWORD из реестраDelphi , ОС и Железо , РеестрСчитать значение REG_DWORD из реестра
Оформил: DeeCo uses Registry; // Read REG_DWORD procedure TForm1.Button1Click(Sender: TObject); var Reg: TRegistry; RegKey: DWORD; Key: string; begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_USERS; Key := '.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Internet Settings\URL History'; if Reg.OpenKeyReadOnly(Key) then begin if Reg.ValueExists('DaysToKeep') then begin RegKey := Reg.ReadInteger('DaysToKeep'); Reg.CloseKey; ShowMessage(IntToStr(RegKey)); end; end; finally Reg.Free end; end; // Write REG_DWORD procedure TForm1.Button2Click(Sender: TObject); var Reg: TRegistry; Key: string; begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_USERS; Key := '.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Internet Settings\URL History'; if Reg.OpenKey(Key, True) then begin Reg.WriteInteger('DaysToKeep', 20); Reg.CloseKey; end; finally Reg.Free end; end; Статья Считать значение REG_DWORD из реестра раздела ОС и Железо Реестр может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |