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

Реєстр дуже потрібна річ! Ним повинен вміти користуватися кожен. Сьогодні я покажу маленький приклад, як зберегти деякі параметри вашої програми.


Перше, що треба зробити – це додати у 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;


Тут ми записали положення вікна і розгорнуто воно. Далі ми пишемо процедуру завантаження цих параметрів:

procedure TForm1.LoadProgParam;

var

FIniFile: TRegIniFile;

Begin

/ / За замовчуванням все робиться в HKEY_CURRENT_USER

FIniFile := TRegIniFile.Create(`Software`);

FIniFile.OpenKey (`Папка_вашей_программи`, true);

Width:=FIniFile.ReadInteger(`Option`, `Width`, 600);

/ / Read: – означає читання,: Integer – означає тип зчитується змінної

/ / Перший параметр `Option` – це підрозділ: `Папка_вашей_программиOption`

/ / Другий параметр `Width` – назва ключа (файлу в реєстрі)

/ / Третій параметр 600 – це значення за умовчанням, якщо ключ з назвою `Width` не буде знайдений

Height:=FIniFile.ReadInteger(`Option`, `Heigth`, 300);

Left:=FIniFile.ReadInteger(`Option`, `Left`, 10);

Top:=FIniFile.ReadInteger(`Option`, `Top`, 10);

WindowState: = TWindowState (FIniFile.ReadInteger (`Option`, `WinState`, 0));

FIniFile.Free; / / звільняємо змінну

end;


І тепер впроваджуємо ці процедури в програму:

procedure TForm1.FormCreate(Sender: TObject);

begin

LoadProgParam;

end;

procedure TForm1.FormClose (Sender: TObject; var Action: TCloseAction);

begin

SaveProgParam;

end;

Схожі статті:


Сподобалася стаття? Ви можете залишити відгук або підписатися на RSS , щоб автоматично отримувати інформацію про нові статтях.

Коментарів поки що немає.

Ваш отзыв

Поділ на параграфи відбувається автоматично, адреса електронної пошти ніколи не буде опублікований, допустимий HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

*

*