Código:
Private Declare Function LoadLibraryEx _
Lib "kernel32.dll" _
Alias "LoadLibraryExA" (ByVal lpLibFileName As String, _
ByVal hFile As Long, _
ByVal dwFlags As Long) As Long
Private Declare Function EnumResourceNames _
Lib "kernel32.dll" _
Alias "EnumResourceNamesA" (ByVal hModule As Long, _
ByVal lpType As Long, _
ByVal lpEnumFunc As Long, _
ByVal lParam As Long) As Boolean
Código:
hModule = LoadLibraryEx(szFileName, 0, LOAD_LIBRARY_AS_DATAFILE)
Código:
Do While EnumResourceNames(hModule, lResourceType, AddressOf EnumResNameProcSplit, 0) = True
Loop
Thanks a lot!