鱼C论坛

 找回密码
 立即注册
查看: 1521|回复: 3

Win32汇编语言程序设计,捣鼓老久也没成功。

[复制链接]
发表于 2013-2-15 22:12:50 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能^_^

您需要 登录 才可以下载或查看,没有账号?立即注册

x
本帖最后由 lyoal 于 2013-2-15 22:25 编辑
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;基础数据定义
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
   .386
   .model flat,stdcall
   option casemap:none
   
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;所需要的include头文件和导入库
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
include  windows.inc
include  user32.inc
includelib user32.lib
include  kernel32.inc
includelib kernel32.lib
include  gdi32.inc
includelib gdi32.lib;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;数据变量
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
   .data?
hInstance dd  ?
hWinMain dd  ?   .const
szMinCaption db  '窗口标题',0
szWinClass  db  '窗口类名',0
szMBCaption  db  '错误提示',0
szMBCont1  db  '获取模块句柄失败!',0
szWndCont  db  '这是我写的第一个窗口,请参观一下,呵呵。。。',0
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;窗口过程
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    local @stPs:PAINTSTRUCT
    local @stRect:RECT
    local @hDc:HDC
    
    mov eax,uMsg
    
    .if  eax == WM_PAINT
      invoke BeginPaint,hWnd,addr @stPs
      mov  @hDc,eax
      
      invoke GetClientRect,hWnd,addr @stRect
      invoke DrawText,@hDc,addr szWndCont,-1,\
        addr @stRect,\
        DT_SINGLELINE or DT_CENTER or DT_VCENTER
        
      invoke EndPaint,hWnd,addr @stPs
;**********************************************************************
    .elseif eax == WM_CLOSE   ;关闭窗口
      invoke DestroyWindow,hWinMain
      invoke PostQuitMessage,NULL
;**********************************************************************
    .else
      invoke DefWindowProc,hWnd,uMsg,wParam,lParam
      ret
    .endif
_ProcWinMain endp
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;主函数,注册窗口,创建窗口,显示窗口,更新窗口,消息循环等
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
_WinMain proc
   local @stWndClass:WNDCLASSEX
   local @stMsg:MSG
   
   
   ;获取模块句柄
   invoke GetModuleHandle,NULL
   .if eax
    mov hInstance,eax
   .else
    invoke MessageBox,NULL,offset szMBCont1,offset szMBCaption,MB_OK
   .endif
   
   invoke RtlZeroMemory,addr @stWndClass,sizeof @stWndClass
   xor eax,eax
   
;**************************************************************************
;注册窗口类
;**************************************************************************
   invoke LoadIcon,hInstance,IDI_APPLICATION
   mov  @stWndClass.hIcon,eax
   
   xor eax,eax
   invoke LoadCursor,hInstance,IDC_ARROW
   mov  @stWndClass.hCursor,eax
   
   push hInstance
   pop  @stWndClass.hInstance
   mov  @stWndClass.cbSize,sizeof WNDCLASSEX
   mov  @stWndClass.style,CS_HREDRAW OR CS_VREDRAW
   mov  @stWndClass.lpfnWndProc,offset _ProcWinMain
   mov  @stWndClass.hbrBackground,COLOR_WINDOW + 1
   mov  @stWndClass.lpszClassName,offset szWinClass
   invoke RegisterClassEx,addr @stWndClass
   
;**********************************************************************
;建立并显示窗口
;**********************************************************************
   invoke CreateWindowEx,WS_EX_CLIENTEDGE,\
     offset szWinClass,offset szMinCaption,\
     WS_OVERLAPPEDWINDOW,\
     100,100,300,400,\
     NULL,NULL,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 TranslateMessage,addr @stMsg
     invoke DispatchMessage,addr @stMsg
     .endw
     ret_WinMain  endp
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;入口
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
start:
  call _WinMain
  invoke ExitProcess,NULL
  
END start
 
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
发表于 2013-2-16 11:38:24 | 显示全部楼层

回帖奖励 +1 鱼币

程序结构对着那!怎么运行失败,??
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
发表于 2013-2-17 12:47:48 | 显示全部楼层
诶    没看出为什么  我技术太差了  我还是多问问别人吧
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
发表于 2013-3-3 08:36:27 | 显示全部楼层
这么慌张!把窗口过程的函数地址都丢了,_ProcWinMain proc
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2024-11-18 00:19

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表