[Grimm]

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, sSkinManager, StdCtrls, sGroupBox, sEdit, sComboBox,
  sLabel, sButton, sCheckBox, IniFiles;

type
  TForm1 = class(TForm)
    Image1: TImage;
    sSkinManager1: TsSkinManager;
    sGroupBox1: TsGroupBox;
    sLabel1: TsLabel;
    sLabel2: TsLabel;
    sComboBox1: TsComboBox;
    sEdit1: TsEdit;
    sButton2: TsButton;
    sButton1: TsButton;
    sCheckBox1: TsCheckBox;
    procedure sButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  IniFile:TIniFile;

implementation

{$R *.dfm}

procedure TForm1.sButton1Click(Sender: TObject);
begin
 ShowMessage(ExtractFilePath(paramstr(0)));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
IniFile:=IniFile.Create(ExtractFilePath(paramstr(0))+'Settings.ini');
end;

end.

ВЫскакивает ошибка! нажимаешь ок, выводит форму. Что это? если ини убрать, всё работает

[ryderx34]

Код:

IniFile := TIniFile.Create(ExtractFilePath(paramstr(0))+'Settings.ini');

[lux16]

Че за ошибка выскакивает ?! А лучше скрин зааттачь

[Grimm]

Сообщение от ryderx34

Код:

IniFile := TIniFile.Create(ExtractFilePath(paramstr(0))+'Settings.ini');

Спасибо помогло!