Сохранение и чтение настроек программы с .ini файла..

[FleXik]

Здравствуйте, есть антигейт ключ и находится он в Edit1, мне нужно чтобы при выходе программа сохраняла настройки Edit1 в .ini файл, и затем при запуске чтобы программа считывала настройки с этого же .ini файла..

[Lardes]

uses
  IniFiles;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  with TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Config.ini') do
  begin
    WriteString('Section', 'Antigate Key', Edit1.Text);
    Free;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Config.ini') do
  begin
    Edit1.Text := ReadString('Section', 'Antigate Key', '');
    Free;
  end;
end;

И на всякий случай: http://delphiworld.narod.ru/base/wor...ini_files.html

[FleXik]

Lardes, спасибо большое за помощь

[FleXik]

Люди добрые подскажите, можна ли сделать чтобы сохраняло в один и тот же ini файл если нужно подгружать настройки с 2 разных форм (запускаем софт подгружаем первую настройку, нажимаем кнопку на этой же форме, открывается 2 форма и туда тоже подгружаем с ini файла только уже вторую настройку)????

[Serge_Bliznykov]

ткрывается 2 форма и туда тоже подгружаем с ini файла только уже вторую настройку)????

можно, конечно.
в процедурах записи/чтения первый параметер - это имя секции.
Делайте различные секции для разных форм...
например:

  ReadString('Forma1', 'Antigate Key', '');
....
  ReadString('Forma2', 'Antigate Key', '');
...
  ReadString('Forma3', 'Antigate Key', '');

и т.д.

[Sciv]

А чего нет? Записал настройки каждой формы в отдельные секции - и все. Первая форма читает значения из секции "FORM1", а вторая - из "FORM2"

[FleXik]

Записало и в одной, просто вместо Antigate Key написал Antigate Key Key, еще раз спасибо что так быстро помагаете =)