VB 取得指定exe文件版本号

【函数】  
  GetFileVersionInfo  
   
  【操作系统】  
  Win9X:Yes  
  WinNT:Yes  
   
  【声明】  
  GetFileVersionInfo   Lib   "version.dll"     Alias   "GetFileVersionInfoA"   (ByVal   lptstrFilename   As   String,   ByVal   dwHandle   As   Long,   ByVal   dwLen   As   Long,   lpData   As   Any)   As   Long  
   
  【说明】  
   
      从支持版本标记的一个模块里获取文件版本信息    
   
  【返回值】  
   
      Long，非零表示成功，零表示失败。会设置GetLastError    
   
  【其它】  
   
      请看vb的api文本查看器中的声明：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  
   
  【参数表】  
      lptstrFilename   -     String，欲从中载入版本信息的一个文件的名字  
   
      dwHandle   -------     Long，win32中未用  
   
      dwLen   ----------     Long，由lpData参数指定的字节数组或缓冲区的大小。用GetFileVersionInfoSize函数判断要求的缓冲区长度有多大  
   
      lpData   ---------     Byte，指定一个字节缓冲区的第一个字节。该缓冲区用于装载文件的版本信息