EXE / DLL / OCX File - information

Posted: 2002-06-01
By: ArchiveBot
Viewed: 102

Filed Under:

VB6 Code Cache

This sample project shows how to get the following information out of EXE / DLL / OCX files: CompanyName , FileDescription , fileVersion , InternalName , LegalCopyright , OriginalFileName , ProductName , ProductVersion

Original Author: Joost Rongen

Inputs

Name of file to inquire

Returns

CompanyName , FileDescription , fileVersion , InternalName , LegalCopyright , OriginalFileName , ProductName , ProductVersion

Side Effects

none (tested under W2K)

API Declarations

Declare Function GetFileVersionInfo Lib "Version.dll" Alias _
"GetFileVersionInfoA" (ByVal lptstrFilename As String, ByVal _
dwhandle As Long, ByVal dwlen As Long, lpData As Any) As Long
Declare Function GetFileVersionInfoSize Lib "Version.dll" Alias _
"GetFileVersionInfoSizeA" (ByVal lptstrFilename As String, _
lpdwHandle As Long) As Long
Declare Function VerQueryValue Lib "Version.dll" Alias _
"VerQueryValueA" (pBlock As Any, ByVal lpSubBlock As String, _
lplpBuffer As Any, puLen As Long) As Long
Declare Function GetSystemDirectory Lib "kernel32" Alias _
"GetSystemDirectoryA" (ByVal Path As String, ByVal cbBytes As _
Long) As Long
Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
dest As Any, ByVal Source As Long, ByVal Length As Long)
Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" ( _
ByVal lpString1 As String, ByVal lpString2 As Long) As Long
' -----------------------------------

Comments on this post

No comments have been added for this post.

You must be logged in to make a comment.