Re: [VB6] - Library info.
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 ?)....
Re: [VB6] - Library info.
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.
Re: [VB6] - Library info.
- 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:
Re: [VB6] - Library info.
Re: [VB6] - Library info.
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:
- Interfaces;
- CoClasses;
- Types;
- Enumerations;
- 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?
Re: [VB6] - Library info.
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
Re: [VB6] - Library info.
Re: [VB6] - Library info.
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.
Re: [VB6] - Library info.
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.