Function GetVer(FilePathName As String) As String If FilePathName = Nothing Or FilePathName = "" Then FilePathName = App.Path & "\" & App.EXEName & ".exe" End If Dim fso As FileSystemObject Set fso = New FileSyste…
使用以下C#程序代码可以非常方便地获取Windows系统中任意一个文件(尤其是可执行文件)的文件版本.文件大小.版权.产品名称等信息.所获取到的信息类似于在Windows操作系统中右键点击该文件,然后点击[属性]-[详细信息]所看到的文件信息(Windows操作系统该界面上的文字信息不可复制). 详细C#程序代码如下: using System; using System.Collections.Generic; using System.Linq; using System.Text; cla…
CString strVersion; CString strPath(_T("xxxxxxxx.exe")); // 读文件信息 DWORD dwVerHnd = 0; DWORD dwVerInfoSize = ::GetFileVersionInfoSize(strPath, &dwVerHnd); if (dwVerInfoSize) { // If we were able to get the information, process it: HANDLE hMem…