Работа с курсорами

[Kardinalli]

Вопрос такой - как правильно работать с функцией LoadCursor, позволяющей загрузить курсор из ехе или dll файла?
К примеру, стандартные системные курсоры содержатся в user32.dll. Как их загрузить оттуда?

[Viper]

Как то так

Код: Выделить всё

Public Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Public Const IDC_WAIT As Long = 32514&
...
Dim hCursor As Long
hCursor = LoadCursor(0&, IDC_WAIT)

EDIT: поправил объявление функции.

[Kardinalli]

Как то так

Код: Выделить всё

Public Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Public Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As String) As Long
Public Const IDC_WAIT As Long = 32514&
...
Dim hCursor As Long
hCursor = LoadCursor(0&, IDC_WAIT)

Чтобы использовать предопределенный курсор Win32, прикладная программа должна установить параметр hInstance в значение ПУСТО (NULL)
В теории действительно так, на практике - фик фам, не срабатывает...
Кстати, объявить две функции с одинаковым именем тоже нереально.

[Хакер]

А зачем?

[Kardinalli]

Какой вопрос, такой и ответ - нужно.

[Хакер]

Аааа!!

Ну тогда только как-нибудь.

[Debugger]

Кстати, объявить две функции с одинаковым именем тоже нереально.

Да? А если в разных модулях? Одну приватную, вторую - Public?

[Kardinalli]

Кстати, объявить две функции с одинаковым именем тоже нереально.

Да? А если в разных модулях? Одну приватную, вторую - Public?

Не пробовал, но в принципе, это неважно, если известен тип данных, то проще использовать подходящее описание функции.

[Viper]

Только сейчас заметил, что опечатка у меня в ответе. Конечно функция должна быть одна - в данном случае с аргументом Long. Впрочем, вполне можно при необходимости объявить две функции с разными именами и аргументами для одной API функции.

[Kardinalli]

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