Разместите нашу кнопку!

Новые статьи:

Programming articles

Создание сайтов на шаблонах

Множество вариантов работы с графикой на канве

Шифруем файл с помощью другого файла

Перехват API функций - Основы

Как сделать действительно хороший сайт

Создание почтового клиента в Delphi 7

Применение паскаля для решения геометрических задач

Управление windows с помощью Delphi

Создание wap сайта

Операционная система unix, термины и понятия

SQL враг или друг

Возникновение и первая редакция ОС UNIX

Оптимизация проекта в Delphi

Ресурсы, зачем нужны ресурсы

Термины программистов 20 века

Советы по созданию собственного сайта с нуля

Шифруем файл с помощью пароля

Фракталы - геометрия природы

Crypt - Delphi программа для шифрования

Рассылка, зачем она нужна и как ее организовать?

Учебник по C++ для начинающих программистов

Уроки для изучения ассемблера

Загадочный тип PCHAR

Средства по созданию сайтов

Операторы преобразования классов is и as

Borland Developer studio 2006. Всё в одном

Создание базы данных в Delphi, без сторонних БД


Software engineering articles



Реестр.

Реестр очень нужная вещь! Им должен уметь пользоваться каждый. Сегодня я покажу маленький пример как сохранить некоторые параметры Вашей программы.

Первое что надо сделать это добавить в 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;