.386

.MODEL FLAT,STDCALL

option casemap:none

include \masm32\include\windows.inc

include \masm32\include\kernel32.inc

include \masm32\include\user32.inc

includelib \masm32\lib\kernel32.lib

includelib \masm32\lib\user32.lib

gerenteJanela proto :DWORD, :DWORD, :DWORD, :DWORD

.DATA?

mInstancia DWORD ?

linhaComando DWORD ?

.DATA

NomeClasse db "JanelaNua",0

TituloJanela db "Janelinha NumaBoa",0

.CODE

inicio:

invoke GetModuleHandle, NULL

mov mInstancia, eax

invoke GetCommandLine

mov linhaComando, eax

invoke gerenteJanela, mInstancia, NULL, linhaComando, SW_SHOWDEFAULT

invoke ExitProcess,0

gerenteJanela proc mInst:DWORD, mInstAnt:DWORD, linhaCmd:DWORD, Mostra:DWORD

LOCAL ej:WNDCLASSEX

LOCAL mJanela:HWND

LOCAL malote:MSG

mov ej.cbSize, SIZEOF WNDCLASSEX

mov ej.style, CS_HREDRAW or CS_VREDRAW

mov ej.lpfnWndProc, OFFSET gerenteMensagem

mov ej.cbClsExtra, NULL

mov ej.cbWndExtra, NULL

push mInst

pop ej.hInstance

invoke LoadIcon, NULL, IDI_WINLOGO

mov ej.hIcon, eax

mov ej.hIconSm, eax

invoke LoadCursor, NULL, IDC_ARROW

mov ej.hCursor, eax

mov ej.hbrBackground, COLOR_WINDOW+1

mov ej.lpszMenuName, NULL

mov ej.lpszClassName, OFFSET NomeClasse

invoke RegisterClassEx, ADDR ej

invoke CreateWindowEx, NULL, ADDR NomeClasse, ADDR TituloJanela,

WS_OVERLAPPEDWINDOW, CW_USEDEFAULT,

CW_USEDEFAULT, CW_USEDEFAULT,

CW_USEDEFAULT, NULL, NULL, mInst, NULL

mov mJanela,eax

invoke ShowWindow, mJanela, SW_SHOWNORMAL

invoke UpdateWindow, mJanela

.WHILE TRUE

invoke GetMessage, ADDR malote, NULL, 0, 0

.BREAK .IF (eax < 1)

invoke TranslateMessage, ADDR malote

invoke DispatchMessage, ADDR malote

.ENDW

mov eax, malote.wParam

ret

gerenteJanela endp

gerenteMensagem proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM

.IF uMsg == WM_CREATE

 

.ELSEIF uMsg == WM_SIZE

 

.ELSEIF uMsg == WM_PAINT

 

.ELSEIF uMsg == WM_COMMAND

 

.ELSEIF uMsg == WM_CLOSE

 

.ELSEIF uMsg==WM_DESTROY

invoke PostQuitMessage, NULL

xor eax,eax

ret

.ENDIF

invoke DefWindowProc, hWnd, uMsg, wParam, lParam

ret

gerenteMensagem endp

end inicio

largJanela:DWORD

altJanela: DWORD

...

Também podemos transformar este código numa função, por exemplo:

CalcMeio proto :DWORD, :DWORD

...

CalcMeio proc dimJanela:DWORD, dimTela:DWORD

shr dimTela,1

shr dimJanela,1

mov eax, dimJanela

sub dimTela, eax

return dimTela

CalcMeio endp

Macro para produzir o valor de uma cor em RGB no registrador EAX.

RGB macro red, green, blue

xor eax, eax

mov ah, blue

shl eax, 8

mov ah, green

mov al, red

endm

Programa para gerar e compilar arquivos de recursos.

Autor: Symantec

Tipo: ?

Origem: hutch

Download: nre.exe (1.691 Kb)

Programa para gerar uma estrutura RGNDATA (região de dados) a partir de arquivos gráficos.

Autor: Richard De Oude

Tipo: Freeware

Origem: CodeProject ou CodeGuru

Download: RGNCreator_demo.zip (317 Kb)