обновление в блоге - Работа с реестром

[Pblog]

Работа с реестром

pblog.ruРеестр очень нужная вещь! Им должен уметь пользоваться каждый. Сегодня я покажу маленький пример как сохранить некоторые параметры Вашей программы.
Первое что надо сделать это добавить в uses модуль Registry
Затем написать две процедуры:
type
TForm1 = class(TForm)
procedure SaveProgParam;
procedure LoadProgParam;
procedure TForm1.SaveProgParam;
var
FIniFile: TRegIniFile;
Begin
// по умолчанию всё делается в HKEY_CURRENT_USER
FIniFile := TRegIniFile.Create(’Software’);
FIniFile.OpenKey(’Папка_вашей_прогр аммы’,true);
if Form1.WindowState=wsNormal then
begin
FIniFile.WriteInteger(’Option’, ‘Width’, Width);
// Write… - означает запись, …Integer – означает тип записываемой переменной
// Первый параметр ‘Option’ – это подраздел: ‘Папка_вашей_программы\Option\ ’
// Второй параметр ‘Width’ – название ключа (файла в реестре)
// Третий – это переменная которую мы записываем
FIniFile.WriteInteger(’Option’, ‘Heigth’, Height);
FIniFile.WriteInteger(’Option’, ‘Left’, Left);
FIniFile.WriteInteger(’Option’, ‘Top’, Top);
end;
FIniFile.WriteInteger(’Option’, ‘WinState’, Integer(WindowState));
FIniFile.Free; //освобождаем переменную
end;
Здесь мы записали положение окна и развёрнуто ли оно. Далее мы пишем процедуру загрузки этих параметров:
(more…)