用RadASM 开发窗口程序

用RadASM新建一个项目；选择Win32exe模板；

一 在窗体上输出文字

在.data区添加

szText db '小狗狗，小兔兔，小猫猫 !',0

在WM_PAINT消息处理段中添加

invoke BeginPaint,hWnd,addr @stPs
mov @hDc,eax

invoke GetClientRect,hWnd,addr @stRect
invoke DrawText,@hDc,addr szText,-1,\
addr @stRect,\
DT_SINGLELINE or DT_CENTER or DT_VCENTER
invoke EndPaint,hWnd,addr @stPs

实现在窗体上输出文字；

二 获取Windows目录和系统目录并在窗体上输出

在.data?段添加

   bufferw db 50 dup(?)
   buffers db 50 dup(?)

在WM_CREATE消息处理段添加，

invoke GetWindowsDirectory, addr bufferw, sizeof bufferw ; 置Windows目录于缓冲区中
invoke GetSystemDirectory, addr buffers, sizeof buffers ;置系统目录于缓冲区中

在WM_PAINT消息处理段添加，

invoke DrawText,@hDc,addr bufferw,-1,\
addr @stRect,\
DT_SINGLELINE or DT_VCENTER or DT_LEFT

invoke DrawText,@hDc,addr buffers,-1,\
addr @stRect,\
DT_SINGLELINE or DT_VCENTER or DT_RIGHT

三 在窗体上画圆

添加一个画圆过程circle，代码见后；

在WM_PAINT消息处理段添加，

invoke  circle,hWnd,00E5C27Fh,10,10,50,50

效果；

代码：

windemo1.asm

.586
.model flat,stdcall
option casemap:none

   include windows.inc
   include user32.inc
   include kernel32.inc
   include gdi32.inc
   
   includelib user32.lib
   includelib kernel32.lib
   includelib gdi32.lib


WinMain proto :DWORD,:DWORD,:DWORD,:DWORD


.data
   ClassName db "MainWinClass",0
   AppName  db "Main Window",0
   szText		db	'小狗狗，小兔兔，小猫猫 !',0
   hCap db "WindowsDirectory",0


.data?
   hInstance HINSTANCE ?
   CommandLine LPSTR ?
   bufferw db 50 dup(?)
   buffers db 50 dup(?)

.code


; ---------------------------------------------------------------------------

circle proc hndl:DWORD,colr:DWORD,tx:DWORD,ty:DWORD,lx:DWORD,ly:DWORD

    LOCAL hDC     :DWORD
    LOCAL hPen    :DWORD
    LOCAL hPenOld :DWORD

    invoke GetDC,hndl
    mov hDC, eax

    invoke CreatePen,0,3,colr
    mov hPen, eax
  
    invoke SelectObject,hDC,hPen
    mov hPenOld, eax

    invoke Arc,hDC,tx,ty,lx,ly,0,0,0,0

    invoke SelectObject,hDC,hPenOld
    invoke DeleteObject,hPen

    ret

circle endp

start:
	invoke GetModuleHandle, NULL
	mov    hInstance,eax
	
	invoke GetCommandLine
	mov    CommandLine,eax
	
	invoke WinMain, hInstance,NULL,CommandLine, 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
	mov   wc.lpfnWndProc, OFFSET WndProc
	mov   wc.cbClsExtra,NULL
	mov   wc.cbWndExtra,NULL
	push  hInstance
	pop   wc.hInstance
	mov   wc.hbrBackground,COLOR_BTNFACE+1
	mov   wc.lpszMenuName,NULL
	mov   wc.lpszClassName,OFFSET ClassName
	
	invoke LoadIcon,NULL,IDI_APPLICATION
	mov   wc.hIcon,eax
	mov   wc.hIconSm,eax
	
	invoke LoadCursor,NULL,IDC_ARROW
	mov   wc.hCursor,eax
	
	invoke RegisterClassEx, addr wc
	INVOKE CreateWindowEx,NULL,ADDR ClassName,ADDR AppName,\
           WS_OVERLAPPEDWINDOW,CW_USEDEFAULT,\
           CW_USEDEFAULT,300,200,NULL,NULL,\
           hInst,NULL
	mov   hwnd,eax
	
	invoke ShowWindow, hwnd,SW_SHOWNORMAL
	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	@stPs:PAINTSTRUCT
		local	@stRect:RECT
		local	@hDc
	
	.IF uMsg==WM_DESTROY
		invoke PostQuitMessage,NULL
	.ELSEIF uMsg==WM_CREATE
		invoke GetWindowsDirectory, addr bufferw, sizeof bufferw ; 置Windows目录于缓冲区中
		invoke GetSystemDirectory, addr buffers, sizeof buffers ;置系统目录于缓冲区中
		
	.ELSEIF	uMsg ==	WM_PAINT
			invoke	BeginPaint,hWnd,addr @stPs
			mov	@hDc,eax

			invoke	GetClientRect,hWnd,addr @stRect
			invoke	DrawText,@hDc,addr szText,-1,\
				addr @stRect,\
				DT_SINGLELINE or DT_CENTER or DT_VCENTER
				
			invoke	DrawText,@hDc,addr bufferw,-1,\
				addr @stRect,\
				DT_SINGLELINE or DT_VCENTER or DT_LEFT
				
			invoke	DrawText,@hDc,addr buffers,-1,\
				addr @stRect,\
				DT_SINGLELINE or DT_VCENTER or DT_RIGHT
				
			invoke  circle,hWnd,00E5C27Fh,10,10,50,50


			invoke	EndPaint,hWnd,addr @stPs
		
	.ELSE
		invoke DefWindowProc,hWnd,uMsg,wParam,lParam		
		ret
	.ENDIF
	
	xor eax,eax
	ret
WndProc endp

end start