Сохранение параметров плагина в ини

[z-wer]

Собственно проблема такова.
Есть несколько программ, написан к ним плагин.
Все программы совместимые.

На событие OnDestroy формы плагина происходит сохранение настроек в ини файл.
С несколькими программами проблем нет, в одной сохранение не происходит.
Пытался подключить апи конкретной программы - результат тот же.
Где копать не знаю.
Может кто сталкивался с подобной проблемой?

[Пепел Феникса]

как сохраняете то?

[z-wer]

обычный ини файл.
Типа процедуры SaveParams повешена на событие формы плагина OnDrestroy.

[Пепел Феникса]

как вы создаете файл, я конечно телепат со стажем, но знаете, телепатировать не люблю.(просто как открываете файл достаточно)

[z-wer]

пример.
TForm - это форма плагина.

procedure TForm1.ReadParams;
// чтение настроек программы
var
ini: TIniFile;
begin
ini := TIniFile.Create(FilePath + 'Pos.ini');
Count := ini.ReadInteger('Digit', 'Count', 0);
Step := ini.ReadInteger('Digit', 'Steps', 5);
ini.Free;
end;

procedure TForm1.SaveParams;
// сохранение настроек программы
var
ini: TIniFile;
begin
ini := TIniFile.Create(FilePath + 'Pos.ini');
ini.WriteInteger('Digit', 'Count', Count);
ini.WriteInteger('Digit', 'Steps', Step);
ini.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
if (FileSearch(Pos.ini')) then
ReadParams
else
.....
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
SaveParams;
....
end;

[chertovich]

Наверное проблема в том, что нужно использовать полный путь. Дело в том, что если программа запускается с ярлыка и у него изменено свойство "Рабочая папка" то относительный путь может измениться.
А исключение вызывается?

[z-wer]

FilePath - эта функция вычисления полного пути.

К примеру имею 4 проги, к которым написан плагин.
прога 1 - все ок
прога 2 - все ок
прога 3 - все ок
прога 4 - плагин читает настройки, при выходе из программы 4 просто нет сохранения в инишку.
Все программы полностью совместимые, все функции заложенные в плагине выполняются полностью, кроме сохранения в ини в проге 4.

[chertovich]

код функции FilePath пожалуйста

[Аватар]

FilePath - эта функция вычисления полного пути.

А если ее копнуть? Код FilePath покажите

[z-wer]

копайте, но не в ней дело

function TForm1.FilePath: String;
// путь к файлам настроек
var
FileName: array[0..MAX_PATH] of Char;
begin
FillChar(FileName, SizeOf(FileName), #0);
GetModuleFileName(hInstance, FileName, MAX_PATH);
Result := ExtractFilePath(FileName);
end;

С остальными прогами все нормально работает.