(495) 925-0049, ITShop интернет-магазин 229-0436, Учебный Центр 925-0049
  Главная страница Карта сайта Контакты
Поиск
Вход
Регистрация
Рассылки сайта
 
 
 
 
 

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

Источник: rusdoc

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

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

Ссылки по теме


 Распечатать »
 Правила публикации »
  Написать редактору 
 Рекомендовать » Дата публикации: 03.12.2007 
 

Магазин программного обеспечения   WWW.ITSHOP.RU
Microsoft Office 365 Профессиональный Плюс. Подписка на 1 рабочее место на 1 год
Microsoft 365 Business Standard (corporate)
Microsoft Office 365 Персональный 32-bit/x64. 1 ПК/MAC + 1 Планшет + 1 Телефон. Все языки. Подписка на 1 год.
Microsoft Office для дома и учебы 2019 (лицензия ESD)
Microsoft 365 Business Basic (corporate)
 
Другие предложения...
 
Курсы обучения   WWW.ITSHOP.RU
 
Другие предложения...
 
Магазин сертификационных экзаменов   WWW.ITSHOP.RU
 
Другие предложения...
 
3D Принтеры | 3D Печать   WWW.ITSHOP.RU
 
Другие предложения...
 
Новости по теме
 
Рассылки Subscribe.ru
Информационные технологии: CASE, RAD, ERP, OLAP
Безопасность компьютерных сетей и защита информации
Новости ITShop.ru - ПО, книги, документация, курсы обучения
CASE-технологии
Программирование на Microsoft Access
Мир OLAP и Business Intelligence: новости, статьи, обзоры
Проект mic-hard - все об XP - новости, статьи, советы
 
Статьи по теме
 
Новинки каталога Download
 
Исходники
 
Документация
 
 



    
rambler's top100 Rambler's Top100