[fidoshnik]

Сообщение от The Shadow

Код:

if not FileExists(ExtractFilePath(Application.ExeName) + 'Params.ini') then
Form1.ShowModal;
with TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Params.ini') do
begin
WinExec(PChar(ReadString('Param1', 'Params', ''), SW_SHOWNORMAL);
WinExec(PChar(ReadString('Param2', 'Params', ''), SW_SHOWNORMAL);
Free;
end;

А в событии OnClose второй формы

Код:

with TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Params.ini') do
begin
WriteString('Param1', 'Params', Edit1.Text);
WriteString('Param2', 'Params', Edit2.Text);
Free;
end;

Вроде так.

Ну вроде суть понял, но компилятор на TIniFile ругаеться чет не пойму как исправить.

Код:

[Error] Unit1.pas(30): Undeclared identifier: 'TIniFile'
  [Error] Unit1.pas(32): Undeclared identifier: 'ReadString'
  [Error] Unit1.pas(32): ')' expected but ',' found
  [Error] Unit1.pas(33): ')' expected but ',' found
  [Error] Unit1.pas(34): Undeclared identifier: 'Free'
  [Error] Unit1.pas(36): '.' expected but ';' found
  [Error] Unit1.pas(39): 'DO' expected but identifier 'Create' found
  [Error] Unit1.pas(41): Undeclared identifier: 'WriteString'
  [Error] Unit1.pas(46): ';' expected but '.' found
  [Error] Unit1.pas(48): Declaration expected but end of file found
  [Error] Unit1.pas(13): Unsatisfied forward or external declaration: 'TForm1.FormCreate'
  [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'