Как проверить загружена ли DLL ?

Такой код подвисает на функции LoadLibrary
Но если убрать первую строчку, то LoadLibrary работает нормально

 Id := GetModuleHandle(Path);
 if Id = 0 then LoadLibrary(Path)

Как получить список всех загруженных DLL ?

Вообщето LoadLibrary это функция.