calender.asm

用ASM写的日历程序

.486
.model flat, stdcall
option casemap :none
include \masm32\include\windows.inc
include \masm32\include\user32.inc
include \masm32\include\kernel32.inc
include \masm32\include\Comctl32.inc
includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib
includelib \masm32\lib\Comctl32.lib
.code
para dd WS_OVERLAPPED or DS_CENTER or DS_SETFONT,0
  dw 2
  dw 32h,32h,220,79h
  dd 0
  dw "T","o","d","a","y",0
  dw 10
  dw "M","S"," ","S","a","n","s"," ","S","e","r","i","f",0
  dd WS_VISIBLE or WS_CHILD or MCS_WEEKNUMBERS,0
  dw 5,5,160,100,101
  dw "S","y","s","M","o","n","t","h","C","a","l","3","2",0,0,0,0
  dd WS_VISIBLE or WS_CHILD or WS_TABSTOP,0
  dw 172,5,40,12,2,0ffffh,80h
  dw "C","l","o","s","e",0
  dd 0
dlgproc proc hWin:DWORD,uMsg:DWORD,wParam:DWORD,lParam:DWORD
  .if uMsg == WM_COMMAND
		invoke EndDialog,hWin,0
  .endif
  xor eax, eax
  ret
dlgproc endp
start:
	invoke GetModuleHandle,NULL
	invoke DialogBoxIndirectParam,eax,offset para,0,offset dlgproc,0  
	invoke ExitProcess,NULL
	invoke InitCommonControls
end start