能力值:
(RANK:410 )
|
-
-
2 楼
; 有颜色部分的是要修改的
.386
.model flat,stdcall
option casemap:none
;............................
include windows.inc
include user32.inc
includelib user32.lib
include kernel32.inc
includelib kernel32.lib
;............................
ICO_BIG equ 1000h
ICO_SMALL equ 1100h
IDM_MAIN equ 2000h
IDA_MAIN equ 2000h
IDM_EXIT equ 4001h
IDM_XXZL equ 4004h
IDM_CUR1 equ 4005h
IDM_CUR2 equ 4006h
IDM_BIG equ 4007h
IDM_SMALL equ 4008h
;.........................
.data?
hInstance dd ?
hWinMain dd ?
hMenu dd ?
hSubMenu dd ?
hBIG dd ?
HSMALL dd ?
hcur1 dd ?
hcur2 dd ?
.const
szClassName db 'myclass',0
szCaptionMain db '我的程序~- - !',0
szcursorfile1 db '1.ani',0
szcursorfile2 db '2.ani',0
;......................................
.code
;..................................
_Quit proc
invoke DestroyWindow,hWinMain
invoke PostQuitMessage,NULL
ret
_Quit endp
;.................................
_ProcWinMain proc uses ebx edi esi hWnd,uMsg,wParam,lParam
mov eax,uMsg
.if eax == WM_CREATE
invoke LoadCursorFromFile,addr szcursorfile1
mov hcur1,eax
invoke LoadCursorFromFile,addr szcursorfile2
mov hcur2,eax
invoke SendMessage,hWnd,WM_SETICON,ICON_BIG,hBIG
invoke SetClassLong,hWnd,GCL_HCURSOR,hcur1
;.........................................
.elseif eax == WM_COMMAND
mov eax,wParam
movzx eax,ax
.if eax == IDM_EXIT
call _Quit
.elseif eax == IDM_BIG
invoke SendMessage,hWnd,WM_SETICON,ICON_BIG,hBIG
invoke CheckMenuRadioItem,hMenu,IDM_BIG,IDM_SMALL,IDM_BIG,MF_BYCOMMAND
.elseif eax == IDM_SMALL
invoke SendMessage,hWnd,WM_SETICON,ICON_BIG,HSMALL
invoke CheckMenuRadioItem,hMenu,IDM_BIG,IDM_SMALL,IDM_SMALL,MF_BYCOMMAND
.elseif eax == IDM_CUR1
invoke SetClassLong,hWnd,GCL_HCURSOR,hcur1
invoke CheckMenuRadioItem,hMenu,IDM_CUR1,IDM_CUR2,IDM_CUR1,MF_BYCOMMAND
.elseif eax == IDM_CUR2
invoke SetClassLong,hWnd,GCL_HCURSOR,hcur2
invoke CheckMenuRadioItem,hMenu,IDM_CUR1,IDM_CUR2,IDM_CUR2,MF_BYCOMMAND
.endif
.elseif eax == WM_CLOSE
call _Quit
.else
invoke DefWindowProc,hWnd,uMsg,wParam,lParam
ret
.endif
xor eax,eax
ret
_ProcWinMain endp ; 你这里缺少一个_ProcWinMain endp
;...................................
_WinMain proc
local @stWndClass:WNDCLASSEX
local @stMsg:MSG
local @haccelerator
invoke GetModuleHandle,NULL
mov hInstance,eax
invoke LoadMenu,hInstance,IDM_MAIN
mov hMenu,eax
invoke LoadAccelerators,hInstance,IDA_MAIN
mov @haccelerator,eax
;..............................
invoke RtlZeroMemory,addr @stWndClass,sizeof @stWndClass
invoke LoadIcon,hInstance,ICO_BIG
mov hBIG,eax
mov @stWndClass.hIcon,eax
invoke LoadIcon,hInstance,ICO_SMALL
mov HSMALL,eax
mov @stWndClass.hIconSm,eax
push hInstance
pop @stWndClass.hInstance
mov @stWndClass.cdSize,sizeof WNDCLASSEX ; 应该是cbSize
mov @stWndClass.style,CS_HREDRAW or CS_VREDRAW
mov @stWndClass.lpfnWndproc,offset _ProcWinMain ; 这里应该是lpfnWndProc(注意大小写)
mov @stWndClass.lpszClassName,offset szClassName
mov @stWndClass.hbrBackground,COLOR_BTNFACE + 1 ; 在这里替你添加了一下背景颜色
invoke RegisterClassEx,addr @stWndClass
;..................................
invoke CreateWindowEx,WS_EX_CLIENTEDGE,offset szClassName,offset szCaptionMain,WS_OVERLAPPEDWINDOW,\
100,100,400,300,NULL,hMenu,hInstance,NULL
mov hWinMain,eax
invoke ShowWindow,hWinMain,SW_SHOWNORMAL
invoke UpdateWindow,hWinMain
;.................................
.while TRUE
invoke GetMessage,addr @stMsg,NULL,0,0
.break .if eax == 0
invoke TranslateAccelerator,hWinMain,@haccelerator,addr @stMsg
.if eax == 0
invoke TranslateMessage,addr @stMsg
invoke DispatchMessage,addr @stMsg
.endif
.endw
ret
_winMain endp ; 这里应该是_WinMain(注意大小写)
;.................................
start:
call _WinMain
invoke ExitProcess,NULL
;.........................
end start
|