LoadLibrary

← →
OpoloXAI (2003-01-30 14:12) [0]

Добрый день.
Помогите разобраться:
DllHandle:=LoadLibrary("MyDll.dll");
ShowMessage(IntToStr(DllHandle));
Finally FreeLibrary(DllHandle);
{сама Dll расположена в директории с исполняемым файлом}
Если запускаю из-под Delphi, то нормально определяеся Handle и всё работает нормально, но если я запускаю это приложение из-под Windows{Far}, то всегда возвращается Handle=0. Почему?
Заранее спасибо.

← →
han_malign © (2003-01-30 14:21) [1]

GetLastError...

← →
REA © (2003-01-30 14:24) [2]

Надежнее конечно полный путь прописать или кинуть DLL в System.

← →
anbezr (2003-01-30 14:26) [3]

надо, чтобы DLL лежала в папке, к которой есть PATH или в начало программы надо добавить:
SetCurrentDir(ExtractFilePath(Application.ExeName));
должно работать...

← →
Cancel (2003-01-30 14:27) [4]

DLLFileName:= ExtractFilePath(ParamStr(0)) + "MyDll.dll";
DllHandle:=LoadLibrary(PChar(DLLFileName));
ShowMessage(IntToStr(DllHandle));
if DllHandle > 0 then
try
.....
finally
FreeLibrary(DllHandle);
end;

← →
Cancel (2003-01-30 14:38) [5]

>>надо, чтобы DLL лежала в папке, к которой есть PATH или в >>начало программы надо добавить:
>>
>>SetCurrentDir(ExtractFilePath(Application.ExeName));
>>
>>должно работать...

- CurrentDir может поменяться после вызова например диалога сохранения или открытия файла.

LoadLibrary Найти похожие ветки