Не находит dll второй раз

[Kronos913]

Использую такую процедуру для загрузки процедуры из Dll

Function DllProcedureLoad(const DllName, ProcedureFunctionName: PChar; var Handle1: THandle; var PointerProcedureFunction:Pointer): boolean;
begin
  try
    Handle1 := loadLibrary (DllName);
    if Handle1 <> 0 then begin
      PointerProcedureFunction:=getProcAddress ( Handle1, ProcedureFunctionName );
      Result:= (addr(PointerProcedureFunction^) <> nil);
    end else Result:=false;
  except
    Result:=false;
  end;
end;

После использования процедуры "закрываю" библиотеку

freeLibrary(H);

И возникает вот какая проблема:
После одного использования, процедура FileExists не находит dll, который находился в первый раз в рамках одного запуска программы

[northener]

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

И возникает вот какая проблема:
После одного использования, процедура FileExists не находит dll, который находился в первый раз в рамках одного запуска программы

Бред. Проспись и попробуй ещё раз.

[Vapaamies]

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

После одного использования, процедура FileExists не находит dll, который находился в первый раз в рамках одного запуска программы

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

[Kronos913]

Попробовал абсолютный адрес - dll вообще не срабатывает
При локальном хотя бы через раз запускалось

[Arigato]

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

При локальном хотя бы через раз запускалось

В принципе это не проблема. Просто при запуске программы выдать пользователю сообщение, что программа запускается через раз, если не запустилась, просто попробуйте еще раз!

[p51x]

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

Попробовал абсолютный адрес - dll вообще не срабатывает

Вы же понимаете, что это бред?..

[Vapaamies]

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

Вы же понимаете, что это бред?..

Не, не так.

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

Попробовал абсолютный адрес - dll вообще не срабатывает

НА ЗАВОД!!!

[FaTaL]

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

Просто при запуске программы выдать пользователю сообщение, что программа запускается через раз, если не запустилась, просто попробуйте еще раз!

))))))

[northener]

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

НА ЗАВОД!!!

Ни в коем случае. На заводах дорогие станки, даже если они серии "Догнать И Перегнать" или полученные по репарации у Германии после второй мировой. А ну как после его работы и эти станки будут работать через раз?!
Не. Только дворником! Метлы и лопаты гораздо дешевле.

[digitalis]

Напрасно вы так. Смотрю на темы, поднимаемые ТСом - нечто эпохальное человек ваяет. Новая операционная система?