Программа не видит ini-файл

[AlexPv]

Доброго времени суток!
Написал программу на Delphi, в тексте программы считываются некоторые параметры из ini-файла

// Чтение амплитуды входного сигнала
 if ConfigIni.ValueExists('Generator', 'Ain') = False then
 begin
  MessageDlg('Ключ "Ain" в секции "Generator" не найден!', mtError, [mbOK], 0);
 end
 else
 begin
  // Установка амплитуды входного сигнала
  Ain := ConfigIni.ReadFloat('Generator', 'Ain', Ain);
  // Индицируем в милливольтах
  Label9.Caption := FloatToStr(Ain * 1000);
  end;

Всё работает, но проблема в том, что мне эту программу надо запускать под WinXP у который отключен explorer.exe
Я сделал следующее:
local machine\software\microsoft\windows nt\current version\winlogon параметр Shell = MyProg.exe
Программа запускается и сразу выдаёт сообщения, что не может найти ключи в ini-файле, т.е. его не видит.
Почему так происходит подскажите пожалуйста.

[Berlioz]

Гугл и Win32API тебе в помощь. Я в свое время это делал. Все находил в гугле.
Подсказать подробнее тебе не смогу - сырцы сгорели вместе с винтом

[s-andriano]

Для программы нужно указать не только расположение ее самой, но и ее рабочий каталог.
Ну, либо программу устанавливать в жестко предопределенном месте и жестко прописывать в ней полный путь к ini-файлу.

[AlexPv]

Сообщение от s-andriano

Для программы нужно указать не только расположение ее самой, но и ее рабочий каталог.
Ну, либо программу устанавливать в жестко предопределенном месте и жестко прописывать в ней полный путь к ini-файлу.

В реестре пробовал в параметр shell писать полный путь - не помогло.
Сейчас в программе сделано так:
ConfigIni := TIniFile.Create(dir + '\Config.ini');
Попробую жёстко прописать путь, т.к. перемещение файлов программы не нужно:
ConfigIni := TIniFile.Create('C:\My\Config.ini') ;

[AlexPv]

Всё теперь работает, сделал так:

...бла...бла...
var
 ConfigIni: TIniFile;

begin

 ConfigIni := TIniFile.Create(ExtractFilePath(ParamStr(0)) + '\Config.ini');

 // Чтение минимального значения коэффициента усиления П-регулятора
 if ConfigIni.ValueExists('Loop', 'Ko_min') = False then
 begin
  MessageDlg('Ключ "Ko_min" в секции "Loop" не найден!', mtError, [mbOK], 0);
 end
 else
 begin
  Ko_min := ConfigIni.ReadInteger('Loop', 'Ko_min', Ko_min);
  // Начальная предустановка коэффициента усиления П-регулятора
  Ko := Ko_min;
  // Индицируем
  Label24.Caption := IntToStr(Ko_min);
 end;
...бла...бла...