Два разных проекта

[Михаил Юрьевич]

Есть два откомпилированных проекта проект1 и проект2
Смысл всего этого: В проекте2 создаю ini-файл и ввожу
пароль,а в проекте1 проверяю.Но в проекте2 все вводится
и создается ini-файл,а когда проверяю выдает ошибку из строки:
Edit1.Text:=inif.ReadString('Bloc', 'Password','Неверно');
Слово "неверно"появляется во проект1,как я понимаю неполучается
прочитать строку,но в чем причина не пойму?

unit Unit11;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,IniFiles;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  inif:TIniFile;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
pas:String;
begin
 Inif:= TIniFile.Create(ChangeFileExt(ParamStr(0),'Super.INI'));
 Edit1.Text:=inif.ReadString('Bloc','Password','Неверно');
  inif.Free;
end;

end.


unit Unit22;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Inifiles;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Ini:Tinifile;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
pass:String;
begin
pass:=Edit1.Text;
Ini:= TIniFile.Create(ChangeFileExt(ParamStr(0),'Super.INI'));
ini.WriteString('Bloc','Password',pass);
ini.Free;
end;

end.

[Sibedir]

В обеих программах вы используете ParamStr(0), который выдает имя файл исполняемой программы, а они, я так понимаю, разные. Соответственно и пароль записывается в один ini-файл, а читается из другова. Выбирите одно имя ini-файла для обеих программ.

[Михаил Юрьевич]

Но ведь программы в одной папке

[Sibedir]

Имена EXE-файлов разные. Поставте в обеих программах перед
Ini:= TIniFile.Create
строку
Showmessage (ParamStr(0))

[Михаил Юрьевич]

Большое спасибо,все заработало,в обеих программах указал конкретный
путь к файлу

[Alter]

Лучше используйте такое:

Вместо ParamStr(0) можно использовать Application.ExeName.

Inif:= TIniFile.Create( ExtractFilePAth(ParamStr(0))+'Super.INI' );