这个获取EXE或DLL文件版本，描述，公司信息的函数有时会导致程序崩溃，请帮忙看看,该如何处理
这个获取EXE或DLL文件版本，描述，公司信息的函数有时会导致程序崩溃，请帮忙看看
我用下面的代码来获取EXE或DLL文件的信息（进程管理器一样的东西），但是偶而会在MoveMemory时导致程序崩溃（一般在获取描述时），请各位帮忙看看哪个地方可能出错。
'---------------------------------------------------
' 文件信息模块
'--------------------------------------------------
Private Type VS_NEWINFO
astr As String * 1024
End Type
Private Type VS_FIXEDFILEINFO
dwSignature As Long
dwStrucVersionl As Integer
dwStrucVersionh As Integer
dwFileVersionMSl As Integer
dwFileVersionMSh As Integer
dwFileVersionLSl As Integer
dwFileVersionLSh As Integer
dwProductVersionMSl As Integer
dwProductVersionMSh As Integer
dwProductVersionLSl As Integer
dwProductVersionLSh As Integer
dwFileFlagsMask As Long
dwFileFlags As Long
dwFileOS As Long
dwFileType As Long
dwFileSubtype As Long
dwFileDateMS As Long
dwFileDateLS As Long
End Type
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, Source As Any, ByVal length As Long)
' 获取文件信息, 需要文件的完整路径, 这里获取版本号,描述和公司信息, 当然还可以获得其它的信息, 方法和获取描述一样
我用下面的代码来获取EXE或DLL文件的信息（进程管理器一样的东西），但是偶而会在MoveMemory时导致程序崩溃（一般在获取描述时），请各位帮忙看看哪个地方可能出错。
'---------------------------------------------------
' 文件信息模块
'--------------------------------------------------
Private Type VS_NEWINFO
astr As String * 1024
End Type
Private Type VS_FIXEDFILEINFO
dwSignature As Long
dwStrucVersionl As Integer
dwStrucVersionh As Integer
dwFileVersionMSl As Integer
dwFileVersionMSh As Integer
dwFileVersionLSl As Integer
dwFileVersionLSh As Integer
dwProductVersionMSl As Integer
dwProductVersionMSh As Integer
dwProductVersionLSl As Integer
dwProductVersionLSh As Integer
dwFileFlagsMask As Long
dwFileFlags As Long
dwFileOS As Long
dwFileType As Long
dwFileSubtype As Long
dwFileDateMS As Long
dwFileDateLS As Long
End Type
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, Source As Any, ByVal length As Long)
' 获取文件信息, 需要文件的完整路径, 这里获取版本号,描述和公司信息, 当然还可以获得其它的信息, 方法和获取描述一样