在masm32中获取IE版本的方法2

;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; Filename: getIEver1.asm
; Function: get & display version of IE
;   Author: purple endurer
;  Develop: win 2K pro + masm32

; log
;--------------------------------------------------------- ;2005.10.23 Created!
;   Use the version of file shlwapi.dll as the IE version.
;   In my PC, the version of IE is 6.0.2800.1106
;   and the version of shlwapi.dll is 6.0.2800.1740,
;   but this program displayed version is 6.0.2800, 
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
;下载：您可以到​​ ​http://purpleendurer.ys168.com​​​的/myworks/demo_only中
;下载源代码和可执行文件

.386
.model  flat,  stdcall
option  casemap: none
include /masm32/ include/windows.inc

include /masm32/ include/user32.inc
include /masm32/ include/kernel32.inc

includelib /masm32/ lib/user32.lib
includelib /masm32/ lib/kernel32.lib

GetIEVerStr  PROTO :LPSTR

m_m2m  MACRO d1, d2
     push d2
     pop d1
ENDM

DllVersionInfo STRUCT
    cbSize  dword ?
    dwMajorVersion  dword ?
    dwMinorVersion  dword ?
    dwBuildNumber  dword ?
    dwPlatformID  dword ?
DllVersionInfo  ENDS



.data
g_szTitle        db  "IE版本", 0
g_fmt4IEVer   db  "Internet Explorer %d.%d.%d", 0
g_FailLoadDLL  db  "不能装载"
g_szShlwapiDLL  db  "shlwapi.dll", 0
g_FailGetProcAddr  db  "不能获取函数"
g_szDllGetVersion  db  "DllGetVersion", 0

.data?
g_szIEVer   db 256 dup(?)
g_DVI   DllVersionInfo <?>
g_lpfnDllGetVersion  DWORD ?
g_hDll  HANDLE  ?

.code
start:
        m_m2m g_DVI.cbSize, SIZEOF g_DVI
         invoke GetIEVerStr,  ADDR g_szIEVer
         .if  eax==1
             mov  eax,  OFFSET g_FailLoadDLL
         .elseif  eax==2
             mov  eax,  OFFSET g_FailGetProcAddr
         .else
             mov  eax,  OFFSET g_szIEVer
         .endif
         invoke MessageBox, NULL,  eax,  OFFSET g_szTitle, MB_OK

         invoke ExitProcess,NULL

GetIEVerStr  PROC lpszIEVer: LPSTR
     invoke LoadLibrary,  ADDR g_szShlwapiDLL
     mov g_hDll,  eax
     .if  eax==NULL
        m_m2m  eax, 1
         ret
     .endif

     invoke GetProcAddress, g_hDll,  ADDR g_szDllGetVersion
     mov g_lpfnDllGetVersion, eax
     .if  eax==NULL    
         invoke FreeLibrary, g_hDll
        m_m2m  eax, 2
         ret
     .endif

     ;m_m2m DVI.cbSize, SIZEOF g_DVI
     push  OFFSET g_DVI
     call g_lpfnDllGetVersion

     invoke wsprintf, lpszIEVer,  ADDR g_fmt4IEVer, g_DVI.dwMajorVersion,/
            g_DVI.dwMinorVersion, g_DVI.dwBuildNumber
     invoke FreeLibrary, g_hDll
     xor  eax,  eax     ;m_m2m eax, 0
     ret
GetIEVerStr  ENDP

end