Итак, вопрос:
Есть библиотека system32\cards.dll в ней, в ресурсах, лежат битмапы карт игровой колоды, рубашки, иконки и пр. Хочется загружать их в объекты Image (IPictureDisp в общем).
Делаю так (Используя код от HiSER):
- Код: Выделить всё
Dim lib As Long
Dim ri As Long
Dim rd As Long
Dim hfile As Long
Dim wb As Long
Dim Pic As IPictureDisp
lib = LoadLibrary("c:\windows\system32\cards.dll")
Debug.Print "lib:", lib
ri = FindResource(lib, "#1", "BITMAP")
Debug.Print "ri:", ri
rd = LoadResource(lib, ri)
Debug.Print "rd:", rd
CopyMemory Pic, rd, SizeofResource(lib, ri)
Debug.Print "size:", SizeofResource(lib, ri)
img1.Picture = Pic
FreeLibrary lib
Но, ничего не грузится! Immediate говорит:
- Код: Выделить всё
lib: 1880752128
ri: 0
rd: 0
size: 0
Тоесть, даже до CopyMemory ни байта не доходит. Одни нули.
Где ошибка?
