Hi everyone.
This is quite simple project, which allows to view some information about libraries and PE-files:
Export;
Import;
Delay import;
For type libraries and PE which contains the type libraries:
Interfaces;
CoClasses;
Types;
Enumerations;
Aliases.
It requires Edanmo's OLE interfaces & functions (olelib.tlb) for the work.
Regards,
Кривоус Анатолий.
Private Sub mnuOpen_Click()
Dim ofn As OPENFILENAME, Out As String, i As Long
ofn.nMaxFile = 260
Out = String(260, vbNullChar)
ofn.hwndOwner = hWnd
ofn.lpstrTitle = StrPtr("Открыть файл")
ofn.lpstrFile = StrPtr(Out)
ofn.lStructSize = Len(ofn)
ofn.lpstrFilter = StrPtr("Поддерживаемые файлы" & vbNullChar & "*.dll;*.ocx;*.exe;*.tlb" & vbNullChar)
If GetOpenFileName(ofn) Then
i = InStr(1, Out, vbNullChar, vbBinaryCompare)
If i Then Out = Left$(Out, i - 1)
LoadLib Out
End If
End Sub
Private Sub mnuOpen_Click()
Dim ofn As OPENFILENAME, Out As String, i As Long
ofn.nMaxFile = 260
Out = String(260, vbNullChar)
ofn.hwndOwner = hWnd
ofn.lpstrTitle = StrPtr("Открыть файл")
ofn.lpstrFile = StrPtr(Out)
ofn.lStructSize = Len(ofn)
ofn.lpstrFilter = StrPtr("Поддерживаемые файлы" & vbNullChar & "*.dll;*.ocx;*.exe;*.tlb" & vbNullChar)
If GetOpenFileName(ofn) Then
i = InStr(1, Out, vbNullChar, vbBinaryCompare)
If i Then Out = Left$(Out, i - 1)
LoadLib Out
End If
End Sub
Can translate?
Code:
Private Sub mnuOpen_Click()
Dim ofn As OPENFILENAME, Out As String, i As Long
ofn.nMaxFile = 260
Out = String(260, vbNullChar)
ofn.hwndOwner = hWnd
ofn.lpstrTitle = StrPtr("Open file")
ofn.lpstrFile = StrPtr(Out)
ofn.lStructSize = Len(ofn)
ofn.lpstrFilter = StrPtr("Supported files" & vbNullChar & "*.dll;*.ocx;*.exe;*.tlb" & vbNullChar)
If GetOpenFileName(ofn) Then
i = InStr(1, Out, vbNullChar, vbBinaryCompare)
If i Then Out = Left$(Out, i - 1)
LoadLib Out
End If
End Sub