[VB6] - Library info.

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.
http://thetrick.esy.es/Images/Librar...screenshot.png
Regards,
Кривоус Анатолий.

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

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

Quote:

---

Originally Posted by Thierry76

Thousand thanks The trick... your code is so cleaver ! I learn a lot with it :o .... 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.

- 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 :thumb:

HOW to get Library Name by Com DLL with vb6?

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

Quote:

---

Originally Posted by 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.
http://www.vbforums.com/
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?

Quote:

---

Originally Posted by m65jo

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

---

Thank You Very Much :)

I actually had to perform a few google handsprings to find
Edanmo's OLE interfaces & functions (olelib.tlb), so here it is for the rest of us.

Just FYI if you want an updated alternative, my oleexp.tlb project is originally forked from olelib and apart from some bug fixes and sub/function changes, the original parts are unmodified, so can be substituted without change (you may need to do a find/replace of "olelib." to "oleexp." without the quotes).

This project runs with only one change besides unchecking olelib and checking oleexp in references, in LoadTypeInfo, StringFromGUID2 tAttr.iid, strGuid, 39 must use StrPtr(strGuid) instead.