如何取得.exe文件“属性-版本”中的“产品名称”？

Question

楼上，VB爱好者乐园的网址是什么？到：http://caotang.myetang.com/temp/appinfo.zip下载一个给你满意的例子顺便提一下：现在是吃饭时候，大部分网友都吃饭去啦，人当然少了！

Answer 1

TO：　enmity(灵感之源)　VB爱好者乐园的网址http://www.d1vb.com/

Answer 2

看看 VB中菜单 工程->属性->生成选项卡

Answer 3

Private 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
Private Declare Function GetFileVersionInfoSize Lib "version.dll" Alias "GetFileVersionInfoSizeA" (ByVal lptstrFilename As String, lpdwHandle As Long) As Long
Private Declare Function VerQueryValue Lib "version.dll" Alias "VerQueryValueA" (pBlock As Any, ByVal lpSubBlock As String, lplpBuffer As Any, puLen As Long) As Long
Private Declare Sub MoveMemory Lib "Kernel32" Alias "RtlMoveMemory" (dest As Any, ByVal Source As Long, ByVal Length As Long)
Private Declare Function lstrcpy Lib "Kernel32" Alias "lstrcpyA" (ByVal lpString1 As String, ByVal lpString2 As Long) As Long
Public Declare Function VerLanguageName Lib "Kernel32" Alias "VerLanguageNameA" (ByVal wLang As Long, ByVal szLang As String, ByVal nSize As Long) As Long就用这些函数。