Тут вот проблема есть - делаю программу для просмотра ресурсов в разных EXE и DLL файлах. Всё бы хорошо, но вот как только загружаю строковые ресурсы, постоянно выскакивает ошибка "Отправить отчёт/Не отправлять..."
, так как программа совершила недостустимое. Как же мне прочесть все эти данные?
Вот собственно функция:
Public Function ResGetString(strResName As String) As String
Dim hResource As Long
Dim hGlobal As Long
Dim lpData As Long
Dim lData() As Long
Dim lSize As Long
hResource = FindResourceByNum(hModule, strResName, 6)
If hResource = 0 Then Exit Function
hGlobal = LoadResource(hModule, hResource)
lpData = LockResource(hGlobal)
lSize = SizeofResource(hModule, hResource)
If lSize = 0 Then Exit Function
ReDim lData(lSize - 1)
Call CopyMemory(lData(0), ByVal lpData, lSize)
Call FreeResource(hGlobal)
ResGetString = Str$(lData)
End Function
