用MASM32编程获取并显示WinRAR的路径

;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; 文件名: rar_path.asm
; 功　能: 获取并显示WinRAR的路径
; 作　者: Purple Endurer
; 环　境: win 2K pro + masm32 V8

; log
;------------------------------------------------------------------------------------------
; 2006.03.24 创建
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

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

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

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


GetRarPath  PROTO :LPSTR, : DWORD

m_m2m  MACRO d1, d2
     push d2
     pop d1
ENDM


.data
g_szTitle        db  "WinRAR路径", 0
g_szRegPath  db   "SOFTWARE/Microsoft/Windows/CurrentVersion/App Paths/WinRAR.exe", 0
g_szFailRegOpenKeyEx   db  "RegOpenKeyEx失败!", 0
g_szFailRegQueryValueEx  db  "RegQueryValueEx失败!", 0
g_szPath  db  "Path", 0

.data?
g_szRarPath   db 256 dup(?)
g_hRegKey4RAR   HKEY    ?

.code
start:
         invoke GetRarPath,  ADDR g_szRarPath, SIZEOF g_szRarPath
         .if  eax==1
             mov  eax,  OFFSET g_szFailRegOpenKeyEx
         .elseif  eax==2
             mov  eax,  OFFSET g_szFailRegQueryValueEx
         .else
             mov  eax,  OFFSET g_szRarPath
         .endif
         invoke MessageBox, NULL,  eax,  OFFSET g_szTitle, MB_OK

         invoke ExitProcess,NULL

GetRarPath  PROC lpszRarPath: LPSTR,dwBufLen:  DWORD
     LOCAL dwcbData:  dword
  ;         LONG RegOpenKey(
  ;             HKEY hKey,    // handle of open key 
  ;             LPCTSTR lpSubKey,    // address of name of subkey to open 
  ;             PHKEY phkResult     // address of handle of open key 
  ;         );

     invoke  RegOpenKey, HKEY_LOCAL_MACHINE,  ADDR g_szRegPath,  ADDR g_hRegKey4RAR
     .if  eax!=ERROR_SUCCESS
        m_m2m  eax, 1
         ret
     .endif

  ;     LONG RegQueryValueEx(
  ;         HKEY hKey,          // 1.handle of key to query 
  ;         LPTSTR lpValueName, // 2.address of name of value to query 
  ;         LPDWORD lpReserved, // 3.reserved 
  ;         LPDWORD lpType,     // 4.address of buffer for value type 
  ;         LPBYTE lpData,      // 5.address of data buffer 
  ;         LPDWORD lpcbData    // 6.address of data buffer size 
  ;     );

    m_m2m dwcbData, dwBufLen
     invoke RegQueryValueEx, g_hRegKey4RAR,  ADDR g_szPath, NULL, NULL, lpszRarPath,  ADDR dwcbData

     .if  eax!=ERROR_SUCCESS
        m_m2m  eax, 2
     .else
         xor  eax,  eax
     .endif

  ; LONG RegCloseKey(
  ;     HKEY hKey     // handle of key to close  
  ; );
     invoke RegCloseKey, g_hRegKey4RAR

     ret
GetRarPath  ENDP

end start