[VB6] - Library info.

[The trick]

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:
  
  1. Interfaces;
  2. CoClasses;
  3. Types;
  4. Enumerations;
  5. Aliases.

It requires Edanmo's OLE interfaces & functions (olelib.tlb) for the work.

Regards,
Кривоус Анатолий.

[Thierry76]

Thousand thanks The trick... your code is so cleaver ! I learn a lot with it .... you are a genious

NB In my society TlbInf32 isn't alway install (may be remove ? or a problem of UAC, policies ?)....

[The trick]

Thousand thanks The trick... your code is so cleaver ! I learn a lot with it .... you are a genious

NB In my society TlbInf32 isn't alway install (may be remove ? or a problem of UAC, policies ?)....

Thanks for reply!
This code has no dependencies after compiling. It doesn't require olelib.tlb on target machine.

[Thierry76]

- This code has no dependencies after compiling. It doesn't require olelib.tlb on target machine.

Of course I notice this ! and it's while I love it so much....
One again thanks for all the good code you share with us

[xiaoyao]

HOW to get Library Name by Com DLL with vb6?

https://www.vbforums.com/showthread....m-DLL-with-vb6

[m65jo]

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:
  
  1. Interfaces;
  2. CoClasses;
  3. Types;
  4. Enumerations;
  5. 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

Can translate?

[The trick]

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?

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

[m65jo]

Thank You Very Much