MASM32编程使用自动完成功能

深藏阁楼爱情的钟 2024-03-02 10:43 13阅读 0赞

;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  
; Function: Demo the method to call AutoComplete function  
; Author: Purple Endurer  
; DevEnv: Windows 2000 + Masm32 V8  
;  
; log  
; -------------------------------------------------------  
; 2006.10.11 Created!  
; Note:  
; 1. Need call CoInitialize() & CoUninitialize()  
; 2. If using shlwapi.inc(include SHAutoComplete)  
; & msi.inc(include DllGetVersion) included in MASM32,  
; then the version of shlwapi.dll will be 3.1.4000,  
; so this program can not demo the function.  
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  
  
.386  
.model flat, stdcall  
option casemap: none  
include /masm32/ include/windows.inc  
include /masm32/ include/user32.inc  
include /masm32/ include/kernel32.inc  
include /masm32/ include/gdi32.inc  
include /masm32/ include/ole32.inc  
  
includelib /masm32/ lib/gdi32.lib  
includelib /masm32/ lib/user32.lib  
includelib /masm32/ lib/kernel32.lib  
includelib /masm32/ lib/ole32.lib  
  
WinMain PROTO : DWORD, : DWORD, : DWORD, : DWORD  
  
IDC\_CkbOpen equ 103  
IDC\_EdtCmd equ 105  
  
c\_WinWidth equ 400  
c\_WinHeight equ 210  
  
c\_EditDemoTop equ 5  
c\_EditDemoLeft equ 2  
c\_EditDemoWidth equ 250  
c\_EditDemoHeight equ 20  
  
c\_CkbOpenTop equ c\_EditDemoTop  
c\_CkbOpenLeft equ (c\_EditDemoLeft+c\_EditDemoWidth+5)  
c\_CkbOpenWidth equ 130  
c\_CkbOpenHeight equ c\_EditDemoHeight  
  
SHACF\_AUTOSUGGEST\_FORCE\_ON = 10000000h  
;忽略注册表的设置并且打开autosuggest特性。它必须和SHACF\_FILESYSXXX或者SHACF\_URLXXX联合使用  
SHACF\_AUTOSUGGEST\_FORCE\_OFF = 20000000h  
;忽略注册表的设置并且关闭autosuggest特性。它必须和SHACF\_FILESYSXXX或者SHACF\_URLXXX联合使用  
SHACF\_AUTOAPPEND\_FORCE\_ON = 40000000h  
;忽略注册表的设置并且打开autoappend特性，它必须和SHACF\_FILESYSXXX或者SHACF\_URLXXX联合使用  
SHACF\_AUTOAPPEND\_FORCE\_OFF = 80000000h  
;忽略注册表的设置并且关闭autoappend特性，它必须和SHACF\_FILESYSXXX或者SHACF\_URLXXX联合使用  
SHACF\_DEFAULT = 0h ;缺省设置。它和SHACF\_FILESYSTE|SHACF\_URLALL等价。不能和任何标志值联合使用  
SHACF\_FILESYSTEM = 1h ;包含文件系统和虚拟文件夹（比如桌面或是控制面板）  
SHACF\_URLHISTORY = 2h ;包含历史记录的URL列表  
SHACF\_URLMRU = 4h ;包含最近使用过的URL列表  
SHACF\_URLALL = (SHACF\_URLHISTORY or SHACF\_URLMRU)  
  
DLLVER\_PLATFORM\_WINDOWS = 1h ;函数适合于任何Windows平台  
DLLVER\_PLATFORM\_NT = 2h ;函数适合于Windows NT平台  
  
  
m\_m2m MACRO d1, d2  
push d2  
pop d1  
ENDM  
  
  
.data  
g\_szClsName db "AutoCompleteCls", 0  
g\_szFailOpen db "无法开启"  
g\_szAppName db "自动完成功能演示", 0  
g\_szEditCls db "EDIT", 0  
g\_szBtnCls db "button", 0  
g\_szCkbOpenText db "开启自动完成功能", 0  
g\_szFailGetVerNo db "无法检测Shlwapi.dll的版本号", 0  
g\_szVerFmt db "Shlwapi.dll版本:%d.%d.%d", 0  
g\_szNeedIE5 db "自动完成功能需要使用IE5以上版本", 0  
g\_FailLoadDLL db "不能装载"  
g\_szShlwapiDLL db "shlwapi.dll", 0  
g\_FailGetProcAddr db "不能获取函数"  
g\_szDllGetVersion db "DllGetVersion", 0  
g\_szSHAutoComplete db "SHAutoComplete", 0  
  
  
.data?  
g\_hInstance HINSTANCE ?  
g\_hWndMain HANDLE ?  
g\_hEditDemo HANDLE ?  
g\_hCkbOpen HANDLE ?  
g\_Buf1 db 256 dup (?)  
g\_dvi DLLVERSIONINFO <>  
g\_lpfnDllGetVersion DWORD ?  
g\_lpfnSHAutoComplete DWORD ?  
g\_hDll HANDLE ?  
  
  
.code  
start:  
invoke GetModuleHandle, NULL  
mov g\_hInstance, eax  
invoke LoadLibrary, ADDR g\_szShlwapiDLL  
mov g\_hDll, eax  
.if eax==NULL  
xor eax, eax  
jz @F  
.endif  
  
invoke GetProcAddress, g\_hDll, ADDR g\_szDllGetVersion  
.if eax==NULL  
xor eax, eax  
jz @FreeDll  
.endif  
mov g\_lpfnDllGetVersion, eax  
  
invoke GetProcAddress, g\_hDll, ADDR g\_szSHAutoComplete  
.if eax==NULL  
xor eax, eax  
jz @FreeDll  
.endif  
mov g\_lpfnSHAutoComplete, eax  
  
invoke WinMain, g\_hInstance, NULL, NULL, SW\_SHOWDEFAULT  
@FreeDll:  
invoke FreeLibrary, g\_hDll  
@@:  
invoke ExitProcess, eax  
  
  
WinMain proc hInst: DWORD, hPrevInst: DWORD, CmdLine: DWORD, CmdShow: DWORD  
LOCAL wc: WNDCLASSEX  
LOCAL msg: MSG  
LOCAL hwnd: HWND  
  
m\_m2m wc.cbSize, SIZEOF WNDCLASSEX  
m\_m2m wc.style, CS\_HREDRAW or CS\_VREDRAW  
m\_m2m wc.lpfnWndProc, OFFSET WndProc  
m\_m2m wc.cbClsExtra, NULL  
m\_m2m wc.cbWndExtra, NULL  
m\_m2m wc.hInstance, g\_hInstance  
m\_m2m wc.hbrBackground, COLOR\_APPWORKSPACE  
m\_m2m wc.lpszMenuName, NULL ;IDR\_MAINMENU  
m\_m2m 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)  
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  
.if uMsg==WM\_CREATE  
m\_m2m g\_hWndMain, hWnd  
; Create demo editbox  
;--------------------------  
invoke CreateWindowEx, WS\_EX\_CLIENTEDGE, addr g\_szEditCls, NULL,/  
WS\_CHILD + WS\_VISIBLE + ES\_AUTOHSCROLL,/  
c\_EditDemoLeft, c\_EditDemoTop, c\_EditDemoWidth, c\_EditDemoHeight, hWnd, IDC\_EdtCmd, g\_hInstance, NULL  
mov g\_hEditDemo, eax  
  
; Create autocheckbox  
;--------------------------  
invoke CreateWindowEx, NULL, addr g\_szBtnCls, addr g\_szCkbOpenText,/  
WS\_CHILD+WS\_VISIBLE+BS\_AUTOCHECKBOX, c\_CkbOpenLeft, c\_CkbOpenTop, c\_CkbOpenWidth, c\_CkbOpenHeight,/  
hWnd, IDC\_CkbOpen, g\_hInstance, NULL  
mov g\_hCkbOpen, eax  
  
; Get the version of Shlwapi.dll  
;--------------------------  
m\_m2m g\_dvi.cbSize, SIZEOF g\_dvi  
;invoke DllGetVersion, addr g\_dvi  
push OFFSET g\_dvi  
call g\_lpfnDllGetVersion  
.if eax != 0  
invoke MessageBox, hWnd, ADDR g\_szFailGetVerNo, ADDR g\_szAppName, MB\_ICONERROR+MB\_OK  
xor eax, eax  
jz @F  
.endif  
  
invoke wsprintf, ADDR g\_Buf1, ADDR g\_szVerFmt, g\_dvi.dwMajorVersion, g\_dvi.dwMinorVersion, g\_dvi.dwBuildNumber  
invoke SetWindowText, g\_hEditDemo, ADDR g\_Buf1  
  
.if g\_dvi.dwMajorVersion < 5  
invoke MessageBox, hWnd, ADDR g\_szNeedIE5, ADDR g\_szAppName, MB\_ICONERROR+MB\_OK  
@@:  
invoke PostQuitMessage, NULL  
ret  
.endif  
  
invoke CoInitialize, NULL  
  
.elseif uMsg==WM\_COMMAND  
.if lParam!=0  
mov eax, wParam  
.IF ax==IDC\_CkbOpen  
shr eax, 16  
.if ax==BN\_CLICKED  
invoke SendMessage, g\_hCkbOpen, BM\_GETCHECK, NULL, NULL  
  
;invoke SHAutoComplete, g\_hEditDemo, SHACF\_DEFAULT  
.if eax==BST\_CHECKED  
push SHACF\_DEFAULT  
.else  
push SHACF\_AUTOSUGGEST\_FORCE\_OFF+SHACF\_FILESYSTEM+SHACF\_URLALL  
.endif  
push g\_hEditDemo  
call g\_lpfnSHAutoComplete  
  
.if eax!=0  
invoke MessageBox, hWnd, ADDR g\_szFailOpen, addr g\_szAppName, MB\_ICONERROR+MB\_OK  
xor eax, eax  
jz @B  
.endif  
invoke SetFocus, g\_hEditDemo  
.endif  
.ENDIF  
.endif  
.elseif uMsg==WM\_DESTROY  
invoke CoUninitialize  
invoke PostQuitMessage, NULL  
.else  
invoke DefWindowProc, hWnd, uMsg, wParam, lParam  
ret  
.endif  
xor eax, eax  
ret  
WndProc endp  
  
end start