capturemap.asm

windows汇编语言程序设计 吴中平著 一书所附所有源代码。 该书重点讲解了Windows环境下汇编语言程序设计的基本原理及其实现过程

include .\head.inc
WinMain PROTO :DWORD,:DWORD,:DWORD,:DWORD
.const
IDR_MENU           equ   101
IDM_CAPTURE     equ   40001
IDM_EXIT            equ   40002
.data
ClassName       db "WinClass",0
TitleName        db "全屏幕抓图",0
Display            db "display",0
.data?
hInstance	         HINSTANCE ?
hdcScreen          HDC             ?
hdcCompatible    HDC             ?
hbmScreen         HBITMAP     ?
bm                     BITMAP      <>

.code
start:
   invoke GetModuleHandle, NULL
   mov    hInstance,eax
   invoke WinMain, NULL,NULL,NULL, SW_SHOWDEFAULT
   invoke ExitProcess,eax

WinMain proc hInst:HINSTANCE,hPrevInst:HINSTANCE,CmdLine:LPSTR,CmdShow:DWORD
   LOCAL wc:WNDCLASSEX
   LOCAL msg:MSG
   LOCAL hwnd:HWND
   mov   wc.cbSize,SIZEOF WNDCLASSEX
   mov   wc.style, CS_HREDRAW or CS_VREDRAW or CS_DBLCLKS
   mov   wc.lpfnWndProc, OFFSET WndProc
   mov   wc.cbClsExtra,NULL
   mov   wc.cbWndExtra,NULL
   mov   eax, hInstance
   mov   wc.hInstance,eax
   invoke GetStockObject,WHITE_BRUSH 
   mov   wc.hbrBackground,eax
   mov   eax,IDR_MENU
   mov   wc.lpszMenuName,eax
   mov   wc.lpszClassName,OFFSET ClassName
   invoke LoadIcon,NULL,IDI_ASTERISK
   mov   wc.hIcon,eax
   mov   wc.hIconSm,0
   invoke LoadCursor,NULL,IDC_HAND
   mov   wc.hCursor,eax
   invoke RegisterClassEx, addr wc
   invoke CreateWindowEx,WS_EX_CLIENTEDGE+WS_EX_APPWINDOW+WS_EX_TOPMOST,addr ClassName,\
       addr TitleName,WS_OVERLAPPEDWINDOW,CW_USEDEFAULT,CW_USEDEFAULT,400,200,\
       NULL,NULL,hInst,NULL
   mov   hwnd,eax
   invoke ShowWindow,hwnd,CmdShow
   invoke UpdateWindow,hwnd
   .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
   LOCAL hdc:HDC
   LOCAL x:DWORD
   LOCAL y:DWORD
   .if    uMsg==WM_DESTROY
      invoke PostQuitMessage,NULL
   .elseif uMsg==WM_COMMAND
      mov eax,wParam
      .if  ax==IDM_CAPTURE
         invoke CreateDC,addr Display, NULL, NULL, NULL 
         mov hdcScreen,eax
         invoke CreateCompatibleDC,eax
         mov hdcCompatible,eax
         invoke GetDeviceCaps,hdcScreen, HORZRES
         mov x,eax
         invoke GetDeviceCaps,hdcScreen, VERTRES
         mov y,eax
         invoke CreateCompatibleBitmap,hdcScreen,x,y
         mov hbmScreen,eax
         invoke SelectObject,hdcCompatible, eax
         invoke ShowWindow,hWnd,SW_HIDE
         invoke BitBlt,hdcCompatible,0,0,x,y,hdcScreen,0,0,SRCCOPY
         invoke GetObject,hbmScreen,sizeof BITMAP,addr bm
         invoke GetDC,hWnd
         mov hdc,eax
         invoke ShowWindow,hWnd,SW_SHOW
         invoke StretchBlt,hdc,0,0,bm.bmWidth,bm.bmHeight,hdcCompatible,0,0,x,y,SRCCOPY
         invoke ReleaseDC,hWnd, hdc
      .elseif  ax==IDM_EXIT
         invoke DestroyWindow,hWnd
      .endif    
   .else
      invoke DefWindowProc,hWnd,uMsg,wParam,lParam		
      ret
   .endif
   xor eax,eax
   ret
WndProc endp
end start