[11-22]MASM32编程获取文件语言、版本信息v3

雨点打透心脏的1/2处 2024-02-05 20:07 35阅读 0赞

;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  
; FileName: VerInfo3.asm  
; Function: Demo the way to get file's version information and language  
; Author: Purple Endurer  
;  
; LOG  
; ----------------------------------------------------------------------------------------  
; 2006-11-22 Can display in CN  
; 2006-11-20 Added comments!  
; 2006-09-14 Created!  
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  
  
.386  
.model flat, stdcall  
option casemap: none  
include /masm32/ include/windows.inc  
  
include /masm32/ include/kernel32.inc  
includelib /masm32/ lib/kernel32.lib  
include /masm32/ include/user32.inc  
includelib /masm32/ lib/user32.lib  
include /masm32/ include/shell32.inc  
includelib /masm32/ lib/shell32.lib  
include /masm32/ include/comdlg32.inc  
includelib /masm32/ lib/comdlg32.lib  
include /masm32/ include/version.inc  
includelib /masm32/ lib/version.lib  
  
  
WinMain PROTO : DWORD, : DWORD, : DWORD, : DWORD  
ResizeConctrol PROTO  
ShowVerInfo PROTO :LPSTR  
btnShow\_Click PROTO  
btnBrowse\_Click PROTO  
  
  
;.const  
IDC\_BtnBrowse equ 101  
IDC\_BtnShow equ 103  
IDC\_EdtFileSpec equ 105  
IDC\_EdtVerInfo equ 107  
c\_BufLen EQU MAX\_PATH  
  
  
c\_EditFileSpecLeft equ 2  
c\_EditFileSpecTop equ 5  
c\_EditFileSpecWidth equ 300  
c\_EditFileSpecHeight equ 20  
  
c\_BtnBrowseTop equ c\_EditFileSpecTop  
c\_BtnBrowseLeft equ (c\_EditFileSpecLeft+c\_EditFileSpecWidth+10)  
c\_BtnBrowseWidth equ 70  
c\_BtnBrowseHeight equ c\_EditFileSpecHeight  
  
c\_BtnShowTop equ c\_EditFileSpecTop  
c\_BtnShowLeft equ (c\_BtnBrowseLeft+c\_BtnBrowseWidth+10)  
c\_BtnShowWidth equ 70  
c\_BtnShowHeight equ c\_BtnBrowseHeight  
  
c\_EdtVerInfoLeft equ 2  
c\_EdtVerInfoTop equ 30  
c\_EdtVerInfoWidth equ c\_BtnShowLeft+c\_BtnShowWidth+2  
c\_EdtVerInfoHeight equ 165  
  
c\_WinWidth equ c\_EdtVerInfoLeft+c\_EdtVerInfoWidth+10  
c\_WinHeight equ c\_EdtVerInfoTop+c\_EdtVerInfoHeight+30  
  
m\_CatStr MACRO szStr: REQ  
invoke SendMessage, g\_hEditVerInfo, EM\_REPLACESEL, FALSE, ADDR szStr  
ENDM  
  
m\_GoNextLine MACRO  
invoke SendMessage, g\_hEditVerInfo, EM\_REPLACESEL, FALSE, ADDR g\_szCR  
ENDM  
  
  
.data  
g\_szClsName db "FileVerInfoCls", 0  
g\_szAppName db "文件版本信息", 0  
g\_szEditCls db "EDIT", 0  
g\_szBtnCls db "button", 0  
g\_szBtnBrowseText db "&B 浏览", 0  
g\_szBtnShowText db "&S 显示", 0  
g\_szEnterFileErr db "请先输入文件说明符", 0  
g\_szFailGetVerSize db "获取文件版本信息大小失败!", 0  
g\_szFailAllocMem db "申请内存失败!", 0  
g\_szFailGetVerInfo db "获取文件版本信息失败!", 0  
g\_szFailFailGetLangPage db "获取语言和代码页失败!", 0  
g\_szCR db 0dh, 0ah, 0  
g\_szOp db "properties", 0  
g\_szPeFileFilter db "\*.EXE;\*.DLL",0, "\*.EXE;\*.DLL", 0, 0  
  
  
.data?  
g\_hInstance HINSTANCE ?  
g\_hWndMain HANDLE ?  
g\_hEditFileSpec HANDLE ?  
g\_hBtnShow HANDLE ?  
g\_hBtnBrowse HANDLE ?  
g\_hEditVerInfo HANDLE ?  
g\_szFileSpec db c\_BufLen dup (?)  
g\_ofn OPENFILENAME <?>  
g\_ShlExecInfo SHELLEXECUTEINFO <?>  
  
.code  
start:  
invoke GetModuleHandle, NULL  
mov g\_hInstance, eax  
invoke WinMain, g\_hInstance, NULL, NULL, SW\_SHOWDEFAULT  
invoke ExitProcess, eax  
  
  
WinMain proc hInst: DWORD, hPrevInst: DWORD, CmdLine: DWORD, CmdShow: DWORD  
LOCAL wc: WNDCLASSEX  
LOCAL msg: MSG  
LOCAL hwnd: HWND  
  
mov wc.cbSize, SIZEOF WNDCLASSEX  
mov wc.style, CS\_HREDRAW or CS\_VREDRAW  
mov wc.lpfnWndProc, OFFSET WndProc  
mov wc.cbClsExtra, NULL  
mov wc.cbWndExtra, NULL  
mov eax, g\_hInstance  
mov wc.hInstance, eax  
mov wc.hbrBackground, COLOR\_APPWORKSPACE  
mov wc.lpszMenuName, NULL  
mov wc.lpszClassName, OFFSET g\_szClsName  
invoke LoadIcon, NULL, IDI\_APPLICATION  
mov wc.hIcon, eax  
mov wc.hIconSm, eax  
invoke LoadCursor, NULL, IDC\_ARROW  
mov wc.hCursor, eax  
invoke RegisterClassEx, addr wc  
invoke CreateWindowEx, WS\_EX\_TOPMOST, ADDR g\_szClsName,/  
ADDR g\_szAppName, WS\_OVERLAPPEDWINDOW+WS\_VISIBLE,/  
CW\_USEDEFAULT, CW\_USEDEFAULT, c\_WinWidth, c\_WinHeight,/  
NULL, NULL, hInst, NULL  
mov hwnd, eax  
.while TRUE  
invoke GetMessage, ADDR msg, NULL, 0, 0  
.BREAK .IF (! eax)  
  
;--- process keystrokes directly in the message loop  
.if msg.message == WM\_SYSKEYUP  
.if msg.wParam == VK\_B ; Alt + B  
invoke PostMessage, hwnd, WM\_COMMAND, IDC\_BtnBrowse, BM\_CLICK  
.elseif msg.wParam == VK\_S ; Alt + S  
invoke PostMessage, hwnd, WM\_COMMAND, IDC\_BtnShow, BM\_CLICK  
.endif  
.endif  
; ------------------------------------------------  
invoke TranslateMessage, ADDR msg  
invoke DispatchMessage, ADDR msg  
.endw  
mov eax, msg.wParam  
ret  
WinMain endp  
  
  
WndProc proc hWnd: HWND, uMsg: UINT, wParam: WPARAM, lParam: LPARAM  
LOCAL rect: RECT  
LOCAL hdc: DWORD  
  
.if uMsg==WM\_CREATE  
mov eax, hWnd  
mov g\_hWndMain, eax  
  
;--- Create file spec editbox  
invoke CreateWindowEx, NULL, offset g\_szEditCls, NULL,  
WS\_CHILD+WS\_VISIBLE+ES\_AUTOHSCROLL+WS\_BORDER,/  
c\_EditFileSpecLeft, c\_EditFileSpecTop, c\_EditFileSpecWidth, c\_EditFileSpecHeight,/  
hWnd, IDC\_EdtFileSpec, g\_hInstance, NULL  
mov g\_hEditFileSpec, eax  
  
;--- Create browse button  
invoke CreateWindowEx, NULL, offset g\_szBtnCls, offset g\_szBtnBrowseText,/  
WS\_CHILD+WS\_VISIBLE, c\_BtnBrowseLeft, c\_BtnBrowseTop, c\_BtnBrowseWidth, c\_BtnBrowseHeight,/  
hWnd, IDC\_BtnBrowse, g\_hInstance, NULL  
mov g\_hBtnBrowse, eax  
  
;--- Create show button  
invoke CreateWindowEx, NULL, offset g\_szBtnCls, offset g\_szBtnShowText,/  
WS\_CHILD+WS\_VISIBLE, c\_BtnShowLeft, c\_BtnShowTop, c\_BtnShowWidth, c\_BtnShowHeight,/  
g\_hWndMain, IDC\_BtnShow, g\_hInstance, NULL  
mov g\_hBtnShow, eax  
  
;--- Create file ver info editbox  
invoke CreateWindowEx, NULL, addr g\_szEditCls, NULL,/  
WS\_CHILD+WS\_VISIBLE+ES\_MULTILINE+WS\_HSCROLL+WS\_VSCROLL+WS\_BORDER,/  
c\_EdtVerInfoLeft, c\_EdtVerInfoTop, c\_EdtVerInfoWidth, c\_EdtVerInfoHeight,/  
g\_hWndMain, IDC\_EdtVerInfo, g\_hInstance, NULL  
mov g\_hEditVerInfo, eax  
  
;--- Initialize OPENFILENAME structure  
invoke RtlZeroMemory, offset g\_ofn, sizeof g\_ofn  
mov g\_ofn.lStructSize, sizeof OPENFILENAME  
mov eax, g\_hInstance  
mov g\_ofn.hInstance, eax  
mov g\_ofn.nMaxFile, c\_BufLen  
mov g\_ofn.Flags, OFN\_HIDEREADONLY + OFN\_FILEMUSTEXIST + OFN\_PATHMUSTEXIST + OFN\_EXPLORER  
mov g\_ofn.lpstrFilter, OFFSET g\_szPeFileFilter  
mov g\_ofn.lpstrFile, OFFSET g\_szFileSpec  
mov eax, g\_hWndMain  
mov g\_ofn.hWndOwner, eax  
  
;--- Initialize SHELLEXECUTEINFO structure  
invoke RtlZeroMemory, offset g\_ShlExecInfo, sizeof SHELLEXECUTEINFO  
mov g\_ShlExecInfo.cbSize, sizeof g\_ShlExecInfo  
mov g\_ShlExecInfo.fMask, SEE\_MASK\_INVOKEIDLIST  
mov g\_ShlExecInfo.lpVerb, offset g\_szOp  
mov g\_ShlExecInfo.lpFile, offset g\_szFileSpec  
  
.elseif uMsg==WM\_COMMAND  
.IF lParam  
mov edx, wParam  
mov eax, edx  
shr edx, 16  
.if dx == BN\_CLICKED  
.IF ax == IDC\_BtnShow  
invoke btnShow\_Click  
.else  
invoke btnBrowse\_Click  
.endif  
.ENDIF  
.endif  
.elseif uMsg==WM\_DESTROY  
invoke PostQuitMessage, NULL  
.elseif uMsg==WM\_SIZE  
invoke ResizeConctrol  
xor eax, eax  
jz @F  
.else  
@@:  
invoke DefWindowProc, hWnd, uMsg, wParam, lParam  
ret  
.endif  
xor eax, eax  
ret  
WndProc endp  
  
  
btnShow\_Click proc  
invoke GetWindowText, g\_hEditFileSpec, ADDR g\_szFileSpec, SIZEOF g\_szFileSpec  
.IF eax==0  
invoke MessageBox, g\_hWndMain, OFFSET g\_szEnterFileErr, OFFSET g\_szAppName, MB\_ICONERROR+MB\_OK  
.ELSE  
;--- clear the file ver info box  
invoke SendMessage, g\_hEditVerInfo, WM\_SETTEXT, 0, NULL  
invoke ShowVerInfo, OFFSET g\_szFileSpec  
.if eax > 0  
.IF eax==1  
mov eax, OFFSET g\_szFailGetVerSize  
.ELSEIF eax==2  
mov eax, OFFSET g\_szFailAllocMem  
.ELSEIF eax==3  
mov eax, OFFSET g\_szFailGetVerInfo  
.ELSEIF eax==4  
mov eax, OFFSET g\_szFailFailGetLangPage  
.ENDIF  
invoke MessageBox, g\_hWndMain, eax, OFFSET g\_szAppName, MB\_ICONERROR+MB\_OK  
.else  
invoke ShellExecuteEx, offset g\_ShlExecInfo  
.endif  
.ENDIF  
ret  
btnShow\_Click endp  
  
  
btnBrowse\_Click proc  
invoke GetOpenFileName, ADDR g\_ofn  
.if eax != 0  
invoke SendMessage, g\_hEditFileSpec, WM\_SETTEXT, 0, OFFSET g\_szFileSpec  
.endif  
ret  
btnBrowse\_Click endp  
  
  
ResizeConctrol PROC  
LOCAL st\_Rect: RECT  
  
invoke GetClientRect, g\_hWndMain, ADDR st\_Rect  
  
;--- Resize the Show button  
mov eax, st\_Rect.right  
sub eax, 5+c\_BtnShowWidth  
push eax  
invoke MoveWindow, g\_hBtnShow, eax, c\_BtnShowTop, c\_BtnShowWidth, c\_BtnShowHeight, TRUE  
  
;--- Resize the Show button  
pop eax  
sub eax, 5+c\_BtnShowWidth  
push eax  
invoke MoveWindow, g\_hBtnBrowse, eax, c\_BtnBrowseTop, c\_BtnBrowseWidth, c\_BtnBrowseHeight, TRUE  
  
;--- Resize the file spec editbox  
pop eax  
sub eax, 10  
invoke MoveWindow, g\_hEditFileSpec, c\_EditFileSpecLeft, c\_EditFileSpecTop, eax, c\_EditFileSpecHeight, TRUE  
  
;--- Resize the Ver info editbox  
mov eax, st\_Rect.right  
sub eax, 5  
  
mov edi, st\_Rect.bottom  
sub edi, 30  
  
invoke MoveWindow, g\_hEditVerInfo, c\_EdtVerInfoLeft, c\_EdtVerInfoTop, eax, edi, TRUE  
  
ret  
ResizeConctrol ENDP  
  
  
;/  
; Result:  
; eax == 0 sucess  
; eax == 1 Fail to get file ver info size  
; eax == 2 Fail to alloc global memory  
; eax == 3 Fail to get file ver info  
; eax == 4 Fail to get the language id and code page  
;/  
ShowVerInfo PROC lpszFileSpec: LPSTR  
LOCAL dwBufSize: DWORD  
LOCAL hMem: HANDLE  
LOCAL bInfoStr\[MAX\_PATH\]: byte  
LOCAL lpszValue: LPSTR  
LOCAL bLangCharset\[9\]: byte  
  
invoke GetFileVersionInfoSize, lpszFileSpec, ADDR dwBufSize  
or eax , eax  
jnz @F  
mov eax, 1  
ret  
@@:  
mov dwBufSize, eax  
invoke GlobalAlloc, GMEM\_ZEROINIT, eax  
cmp eax, NULL  
jnz @F  
mov eax, 2  
ret  
@@:  
mov hMem, eax  
; BOOL GetFileVersionInfo(  
; LPTSTR lptstrFilename, // pointer to filename string  
; DWORD dwHandle, // ignored   
; DWORD dwLen, // size of buffer  
; LPVOID lpData // pointer to buffer to receive file-version info.  
; );  
  
invoke GetFileVersionInfo, lpszFileSpec, 0, dwBufSize, hMem  
or eax, eax  
jnz @F  
invoke GlobalFree, hMem  
mov eax, 3  
ret  
g\_szTranslation db "/VarFileInfo/Translation", 0  
@@:  
; BOOL VerQueryValue(  
; const LPVOID pBlock, // address of buffer for version resource  
; LPTSTR lpSubBlock, // address of value to retrieve  
; LPVOID \*lplpBuffer, // address of buffer for version pointer  
; PUINT puLen // address of version-value length buffer  
; );  
  
  
invoke VerQueryValue, hMem, OFFSET g\_szTranslation, ADDR lpszValue, ADDR dwBufSize  
or eax, eax  
jnz @F  
invoke GlobalFree, hMem  
mov eax, 4  
ret  
g\_szProductName db 'ProductName', 0  
g\_szProductVersion db 'ProductVersion', 0  
g\_szFileDescription db 'FileDescription', 0  
g\_szLegalCopyright db 'LegalCopyright', 0  
g\_szFileVersion db 'FileVersion', 0  
g\_szCompanyName db 'CompanyName', 0  
g\_szLegalTradeMarks db 'LegalTradeMarks', 0  
g\_szInternalName db 'InternalName', 0  
g\_szOriginalFileName db 'OriginalFileName', 0  
g\_szComments db "Comments", 0  
  
g\_lpszInfo label dword  
dword OFFSET g\_szFileVersion  
dword OFFSET g\_szFileDescription  
dword OFFSET g\_szLegalCopyright  
dword OFFSET g\_szComments  
dword OFFSET g\_szProductVersion  
dword OFFSET g\_szProductName  
dword OFFSET g\_szCompanyName  
dword OFFSET g\_szLegalTradeMarks  
dword OFFSET g\_szInternalName  
dword OFFSET g\_szOriginalFileName  
c\_lpszInfoLen equ ($-g\_lpszInfo)/4  
  
c\_language\_cn equ 1  
if c\_language\_cn eq 1  
g\_szProductName\_cn db '产品名称', 0  
g\_szProductVersion\_cn db '产品版本', 0  
g\_szFileDescription\_cn db '说明', 0  
g\_szLegalCopyright\_cn db '版权', 0  
g\_szFileVersion\_cn db '文件版本', 0  
g\_szCompanyName\_cn db '公司名称', 0  
g\_szLegalTradeMarks\_cn db '合法商标', 0  
g\_szInternalName\_cn db '内部名称', 0  
g\_szOriginalFileName\_cn db '源文件名', 0  
g\_szComments\_cn db "备注", 0  
  
g\_lpszInfo\_cn label dword  
dword OFFSET g\_szFileVersion\_cn  
dword OFFSET g\_szFileDescription\_cn  
dword OFFSET g\_szLegalCopyright\_cn  
dword OFFSET g\_szComments\_cn  
dword OFFSET g\_szProductVersion\_cn  
dword OFFSET g\_szProductName\_cn  
dword OFFSET g\_szCompanyName\_cn  
dword OFFSET g\_szLegalTradeMarks\_cn  
dword OFFSET g\_szInternalName\_cn  
dword OFFSET g\_szOriginalFileName\_cn  
c\_lpszInfo\_cn\_Len equ ($-g\_lpszInfo\_cn)/4  
g\_szLang\_cn db "语言"  
g\_szBlkColonBlk db " : ", 0  
else  
g\_szLang db "Langeage"  
g\_szBlkColonBlk db " : ", 0  
endif  
g\_szPre db 'StringFileInfo/', 0 ;080404B0  
g\_szInfoFmt db "%s%s/%s", 0  
g\_szHexFmt db "%08X", 0  
  
@@:  
;--- Now, lpszValue is a pointer to four 4 bytes of Hex number,  
; first two bytes are language id, and last two bytes are code page.  
; However, Lang\_Charset\_String needs a string of 4 hex digits,  
; the first two characters correspond to the language id  
; and last two the last two character correspond to the code page id.  
  
if c\_language\_cn eq 1  
m\_CatStr g\_szLang\_cn  
else  
m\_CatStr g\_szLang  
endif  
mov eax, lpszValue  
mov eax, \[ eax\]  
push eax  
  
;---Get the description string  
; DWORD VerLanguageName(  
; DWORD wLang, // Microsoft language identifier  
; LPTSTR szLang, // pointer to buffer for language description string  
; DWORD nSize // size of buffer  
; );   
movzx eax, ax  
mov dwBufSize, eax  
invoke VerLanguageName, dwBufSize, ADDR bInfoStr, MAX\_PATH  
or eax, eax  
jz @F  
m\_CatStr bInfoStr  
@@:  
m\_GoNextLine  
pop eax  
  
;--- Change the order of the language id and code page  
rol eax, 16  
  
;--- Convert the language id and code page into a 8 bytes Hex string representation  
invoke wsprintf, ADDR bLangCharset, ADDR g\_szHexFmt, eax  
  
;--- For example, the language id and code page may look like 040904E4  
; Or to pull it all apart:  
; 04------ = SUBLANG\_ENGLISH\_USA  
; --09---- = LANG\_ENGLISH  
; ----04E4 = 1252 = Codepage for Windows:Multilingual  
  
c\_showTranslation equ 0  
if c\_showTranslation eq 1  
; --- Show the language id and code page in editbox  
m\_CatStr g\_szTranslation  
  
m\_CatStr g\_szBlkColonBlk  
m\_CatStr bLangCharset  
m\_GoNextLine  
endif  
  
xor eax, eax  
.while eax < c\_lpszInfoLen  
push eax  
or eax, eax  
jz @F  
shl eax, 2 ; eax<--eax \* 4  
@@:  
push eax  
  
if c\_language\_cn eq 1  
invoke SendMessage, g\_hEditVerInfo, EM\_REPLACESEL, FALSE, \[ eax\+g\_lpszInfo\_cn\]  
else  
invoke SendMessage, g\_hEditVerInfo, EM\_REPLACESEL, FALSE, \[ eax\+g\_lpszInfo\]  
endif  
  
m\_CatStr g\_szBlkColonBlk  
pop eax  
invoke wsprintf, ADDR bInfoStr, ADDR g\_szInfoFmt, OFFSET g\_szPre, ADDR bLangCharset, \[ eax\+g\_lpszInfo\]  
invoke VerQueryValue, hMem, ADDR bInfoStr, ADDR lpszValue, ADDR dwBufSize  
or eax, eax  
jz @F  
invoke SendMessage, g\_hEditVerInfo, EM\_REPLACESEL, FALSE, lpszValue  
@@:  
m\_GoNextLine  
pop eax  
inc eax  
.endw  
invoke GlobalFree, hMem  
xor eax, eax  
ret  
ShowVerInfo ENDP  
  
  
end start