Исключение при AccessViolation при попытке загрузить библиотеку

Question

Я пытаюсь загрузить библиотеку в проект Delphi, и эта библиотека может находиться в двух местах. Таким образом, чтобы загрузить его, я использую следующий код:

try 
    FHandle:=LoadLibrary(('some\address')); 
    except on EAccessViolation do 
    FHandle:=LoadLibrary(('another\address')); 
    end; 

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

Есть ли у кого-нибудь идеи причины?

спасибо,

Answer 1

LoadLibrary не вызывает исключения. Это функция Win32. Обратитесь к documentation, и вы увидите, что он возвращает NULL, если он не работает.

Ваш код должен быть:

FHandle := LoadLibrary('some\address'); 
if FHandle = 0 then 
    FHandle := LoadLibrary('another\address'); 
if FHandle = 0 then 
    // handle the error, probably by raising an exception 

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

Answer 2

Чтобы добавить ответ Давида, если функция не вернется null т.е. не удалось, вы можете получить сообщение об ошибке с GetLastError(), см:

http://msdn.microsoft.com/en-us/library/ms679360.aspx

список кодов ошибок можно найти здесь:

http://msdn.microsoft.com/en-us/library/ms679360.aspx

Вы можете использовать результат GetLastError, чтобы поднять и исключить себя со значимым типом исключения и описанием.