.386 .model flat, stdcall option casemap: none include windows.inc include user32.inc include kernel32.inc include comdlg32.inc includelib user32.lib includelib kernel32.lib includelib comdlg32.lib ICO_MAIN equ 1000 DLG_MAIN equ 1000 IDM_MAIN equ 1000 IDM_OPEN equ 1101 IDM_SAVEAS equ 1102 IDM_PAGESETUP equ 1103 IDM_EXIT equ 1104 IDM_FIND equ 1201 IDM_REPLACE equ 1202 IDM_SELFONT equ 1203 IDM_SELCOLOR equ 1204 .data? hInstance dd ? hWinMain dd ? dwFontColor dd ? dwBackColor dd ? dwCustColors dd 16 dup (?) stLogFont LOGFONT szFileName db MAX_PATH dup (?) szBuffer db 1024 dup (?) idFindMessage dd ? stFind FINDREPLACE szFindText db 100 dup (?) szReplaceText db 100 dup (?) .const FINDMSGSTRING db 'commdlg_FindReplace', 0 szSaveCaption db '请输入保存的文件名', 0 szFormatColor db '您选择的颜色值%08x', 0 szFormatFont db '您的选择：%s', 0dh, 0ah, '字体名称：%s', 0dh, 0ah db '字体颜色值：%08x，字体大小：%d', 0 szFormatFind db '您按下了“%s”按钮', 0dh, 0ah,'查找字符串：%s', 0dh, 0ah db '替换字符串：%s', 0 szFormatPrt db '您选择的打印机：%s', 0 szCaption db '执行结果', 0 szFindNext db '查找下一个', 0 szReplace db '替换', 0 szReplaceAll db '全部替换', 0 ; 最后一个字符串后需要跟两个0 szFilter db 'Text Files(*.txt)', 0, '*.txt', 0 db 'All Files(*.*)', 0, '*.*', 0, 0 szDefExt db 'txt', 0 .code _PageSetup proc local @stPS: PAGESETUPDLG invoke RtlZeroMemory, addr @stPS, sizeof @stPS mov @stPS.lStructSize, sizeof @stPS mov eax, hWinMain mov @stPS.hwndOwner, eax invoke PageSetupDlg, addr @stPS .if eax && @stPS.hDevMode mov eax, @stPS.hDevMode mov eax, [eax] invoke wsprintf, addr szBuffer, addr szFormatPrt, eax invoke MessageBox, hWinMain, addr szBuffer, addr szCaption, MB_OK .endif ret _PageSetup endp _SaveAs proc local @stOF: OPENFILENAME invoke RtlZeroMemory, addr @stOF, sizeof @stOF mov @stOF.lStructSize, sizeof @stOF mov eax, hWinMain mov @stOF.hwndOwner, eax mov @stOF.lpstrFilter, offset szFilter ; 程序初始化后全局变量szFileName清0，不会发生字符串乱码问题 mov @stOF.lpstrFile, offset szFileName mov @stOF.nMaxFile, offset MAX_PATH mov @stOF.Flags, offset OFN_PATHMUSTEXIST mov @stOF.lpstrDefExt, offset szDefExt mov @stOF.lpstrTitle, offset szSaveCaption invoke GetSaveFileName, addr @stOF .if eax invoke MessageBox, hWinMain, addr szFileName, addr szCaption, MB_OK .endif ret _SaveAs endp _OpenFile proc local @stOF: OPENFILENAME invoke RtlZeroMemory, addr @stOF, sizeof @stOF mov @stOF.lStructSize, sizeof @stOF mov eax, hWinMain mov @stOF.hwndOwner, eax mov @stOF.lpstrFilter, offset szFilter ; 程序初始化后全局变量szFileName清0，不会发生字符串乱码问题 mov @stOF.lpstrFile, offset szFileName mov @stOF.nMaxFile, offset MAX_PATH mov @stOF.Flags, offset OFN_FILEMUSTEXIST or OFN_PATHMUSTEXIST invoke GetOpenFileName, addr @stOF .if eax invoke MessageBox, hWinMain, addr szFileName, addr szCaption, MB_OK .endif ret _OpenFile endp _ChooseColor proc local @stCC: CHOOSECOLOR invoke RtlZeroMemory, addr @stCC, sizeof @stCC mov @stCC.lStructSize, sizeof @stCC mov eax, hWinMain mov @stCC.hwndOwner, eax mov eax, dwBackColor mov @stCC.rgbResult, eax mov @stCC.Flags, CC_RGBINIT OR CC_FULLOPEN mov @stCC.lpCustColors, offset dwCustColors invoke ChooseColor, addr @stCC .if eax mov eax, @stCC.rgbResult mov dwBackColor, eax invoke wsprintf, addr szBuffer, addr szFormatColor, eax invoke MessageBox, hWinMain, addr szBuffer, addr szCaption, MB_OK .endif ret _ChooseColor endp _ChooseFont proc local @stCF: CHOOSEFONT invoke RtlZeroMemory, addr @stCF, sizeof @stCF mov @stCF.lStructSize, sizeof @stCF mov eax, hWinMain mov @stCF.hwndOwner, eax mov @stCF.lpLogFont, offset stLogFont mov eax, dwFontColor mov @stCF.rgbColors, eax mov @stCF.Flags, CF_SCREENFONTS or CF_INITTOLOGFONTSTRUCT or CF_EFFECTS invoke ChooseFont, addr @stCF .if eax mov eax, @stCF.rgbColors mov dwFontColor, eax mov eax, @stCF.iPointSize shl eax, 1 invoke wsprintf, addr szBuffer, addr szFormatFont, addr stLogFont.lfFaceName, dwFontColor, eax invoke MessageBox, hWinMain, addr szBuffer, addr szCaption, MB_OK .endif ret _ChooseFont endp _ProcDlgMain proc uses ebx edi esi, hWnd, uMsg, wParam, lParam local @szBuffer[128]: byte mov eax, uMsg .if eax == WM_CLOSE invoke EndDialog, hWnd, NULL .elseif eax == WM_INITDIALOG mov eax, hWnd mov hWinMain, eax mov stFind.hwndOwner, eax mov stFind.lStructSize, sizeof stFind mov stFind.Flags, FR_DOWN mov stFind.lpstrFindWhat, offset szFindText mov stFind.wFindWhatLen, sizeof szFindText mov stFind.lpstrReplaceWith, offset szReplaceText mov stFind.wReplaceWithLen, sizeof szReplaceText invoke RegisterWindowMessage, addr FINDMSGSTRING mov idFindMessage, eax .elseif eax == WM_COMMAND mov eax, wParam .if ax == IDM_EXIT invoke EndDialog, hWnd, NULL .elseif ax == IDM_OPEN invoke _OpenFile .elseif ax == IDM_SAVEAS invoke _SaveAs .elseif ax == IDM_PAGESETUP invoke _PageSetup .elseif ax == IDM_FIND and stFind.Flags, not FR_DIALOGTERM invoke FindText, addr stFind .elseif ax == IDM_REPLACE and stFind.Flags, not FR_DIALOGTERM invoke ReplaceText, addr stFind .elseif ax == IDM_SELFONT invoke _ChooseFont .elseif ax == IDM_SELCOLOR invoke _ChooseColor .endif .elseif eax == idFindMessage xor ecx, ecx .if stFind.Flags & FR_FINDNEXT mov ecx, offset szFindNext .elseif stFind.Flags & FR_REPLACE mov ecx, offset szReplace .elseif stFind.Flags & FR_REPLACEALL mov ecx, offset szReplaceAll .endif .if ecx invoke wsprintf, addr szBuffer, addr szFormatFind, ecx, addr szFindText, addr szReplaceText invoke MessageBox, hWinMain, addr szBuffer, addr szCaption, MB_OK .endif .else mov eax, FALSE ret .endif ; 此处与窗口过程正好相反，处理完成返回TRUE， 交给系统处理返回FALSE mov eax, TRUE ret _ProcDlgMain endp start: invoke GetModuleHandle, NULL mov hInstance, eax invoke DialogBoxParam, hInstance, DLG_MAIN, NULL, offset _ProcDlgMain, NULL invoke ExitProcess, NULL end start