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

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

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