.code

if  DEBUG
 include  Debug.asm
endif
;********************************************************************
; 关于对话框中超级连接的窗口程序
;********************************************************************
_HyperLinkProc proc hWnd:DWORD,uMsg:DWORD,wParam:DWORD,lParam:DWORD

  mov eax,uMsg
  .if eax == WM_LBUTTONUP
   invoke GetDlgCtrlID,hWnd
   .if eax == ID_HOMEPAGE
    invoke ShellExecute,0,0,offset szHomePage,0,0,0
   .elseif eax == ID_EMAIL
    invoke ShellExecute,0,0,offset szEmail,0,0,0
   .endif
  .elseif eax == WM_NCHITTEST
;将 WM_NCHITTEST 返回 TRUE 可以接收鼠标动作，实现按下功能 !
   mov eax,TRUE
   ret
  .elseif eax == WM_SETCURSOR
   invoke SetCursor,hCursorHandle
  .else
   invoke GetWindowLong,hWnd,GWL_USERDATA
   invoke CallWindowProc,eax,hWnd,uMsg,wParam,lParam
   ret
  .endif
  xor eax,eax
  ret

_HyperLinkProc endp
;********************************************************************
; 对话框窗口主程序
;********************************************************************
AboutDialogProc proc uses ebx edi esi, \
  hWnd:DWORD,uMsg:DWORD,wParam:DWORD,lParam:DWORD
  local @stWindow:RECT
  local @dwWidth:DWORD,@dwHeight:DWORD
  local @hWinTemp:DWORD
  local @stFont:LOGFONT,@hFontOutput:DWORD

  mov eax,uMsg
  .if eax == WM_CLOSE
   invoke EndDialog,hWnd,NULL
  .elseif eax == WM_INITDIALOG
   invoke GetModuleHandle,NULL
   invoke LoadCursor,eax,IDC_HANDLE
   mov hCursorHandle,eax
   invoke GetDlgItem,hWnd,ID_HOMEPAGE
   mov @hWinTemp,eax
   invoke SetWindowLong,@hWinTemp,GWL_WNDPROC,addr _HyperLinkProc
   invoke SetWindowLong,@hWinTemp,GWL_USERDATA,eax
   invoke GetDlgItem,hWnd,ID_EMAIL
   mov @hWinTemp,eax
   invoke SetWindowLong,@hWinTemp,GWL_WNDPROC,addr _HyperLinkProc
   invoke SetWindowLong,@hWinTemp,GWL_USERDATA,eax
  .elseif eax == WM_CTLCOLORSTATIC
   invoke GetDlgCtrlID,lParam
   .if eax == ID_HOMEPAGE || eax == ID_EMAIL
    invoke SendMessage,lParam,WM_GETFONT,0,0
    mov @hFontOutput,eax
    invoke GetObject,@hFontOutput,sizeof LOGFONT,addr @stFont
    mov @stFont.lfUnderline,TRUE
    invoke CreateFontIndirect,addr @stFont
    mov @hFontOutput,eax
    invoke SelectObject,wParam,eax
    invoke SetTextColor,wParam,Blue
    invoke GetSysColor,COLOR_MENU
    invoke SetBkColor,wParam,eax
    invoke DeleteObject,@hFontOutput
;********************************************************************
; 注意此处一定要把StockOject的返回值返回，否则无法显示颜色
;********************************************************************
    invoke GetStockObject,HOLLOW_BRUSH
   .else
    mov eax,FALSE
    ret
   .endif
   ret
  .else
;********************************************************************
; 注意：对话框的消息处理后，要返回 TRUE,对没有处理的消息
; 要返回 FALSE
;********************************************************************
   mov eax,FALSE
   ret
  .endif
  mov eax,TRUE
  ret

AboutDialogProc endp

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; 程序开始
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

start:
  invoke InitCommonControls
  invoke GetModuleHandle,NULL
  mov hInstance,eax
  invoke DialogBoxParam,hInstance,DLG_ABOUT,\
   NULL,offset AboutDialogProc,DLG_ABOUT
  invoke ExitProcess,NULL
;********************************************************************
  end start
程序的分析和要点

    在资源中，我们定义了两个文本框，ID 分别为 ID_HOMEPAGE 和 ID_EMAIL，在主对话框的过程的 initdialog 消息中，我们用 GetDlgItem 取的它们的 hWnd，然后进行子类化，我们把新的过程设置到了 _HyperLinkProc 中

   invoke GetDlgItem,hWnd,ID_HOMEPAGE
   mov @hWinTemp,eax
   invoke SetWindowLong,@hWinTemp,GWL_WNDPROC,addr _HyperLinkProc
   invoke SetWindowLong,@hWinTemp,GWL_USERDATA,eax
   invoke GetDlgItem,hWnd,ID_EMAIL
   mov @hWinTemp,eax
   invoke SetWindowLong,@hWinTemp,GWL_WNDPROC,addr _HyperLinkProc
   invoke SetWindowLong,@hWinTemp,GWL_USERDATA,eax

然后在新的处理过程中，检测到 WM_LBUTTONUP 消息（鼠标左键放开）就使用 ShellExecute API 来连到网站，检测 WM_NCHITTEST 来使文本控件接收鼠标的消息，检测 WM_SETCURSOR 消息把光标设置成手形，对这些消息以外的消息我们是不处理的，那就用 CallWindowProc 来调用原来的过程进行处理。

  .if eax == WM_LBUTTONUP
   invoke GetDlgCtrlID,hWnd
   .if eax == ID_HOMEPAGE
    invoke ShellExecute,0,0,offset szHomePage,0,0,0
   .elseif eax == ID_EMAIL
    invoke ShellExecute,0,0,offset szEmail,0,0,0
   .endif
  .elseif eax == WM_NCHITTEST
;将 WM_NCHITTEST 返回 TRUE 可以接收鼠标动作，实现按下功能 !
   mov eax,TRUE
   ret
  .elseif eax == WM_SETCURSOR
   invoke SetCursor,hCursorHandle
  .else
   invoke GetWindowLong,hWnd,GWL_USERDATA
   invoke CallWindowProc,eax,hWnd,uMsg,wParam,lParam
   ret
  .endif

上一页  [1] [2]