哪位高手能帮我翻译成DELPHI语言啊。谢谢啦!
biku 2008-07-09 02:51:52 哪位高手能帮我翻译成DELPHI语言啊。谢谢啦!
MsgProc proc hWnd:DWORD, uMsg:DWORD, wParam:DWORD, lParam:DWORD
mov eax, uMsg
; set minimum height
.if eax == WM_GETMINMAXINFO
; get system minimum height
invoke GetSystemMetrics, SM_CYMIN
mov edx, lParam
mov (MINMAXINFO PTR [edx]).ptMinTrackSize.y, eax
; consume message
xor eax, eax
ret
; maintain minimum height
.elseif eax == WM_WINDOWPOSCHANGING
; get system minimum height
invoke GetSystemMetrics, SM_CYMIN
mov edx, lParam
mov (WINDOWPOS PTR [edx]).cy, eax
; consume message
xor eax, eax
ret
; maintain minimum height
.elseif eax == WM_WINDOWPOSCHANGED
; consume message
xor eax, eax
ret
; unroll when closed
.elseif eax == WM_CLOSE
invoke WR_Unroll, hWnd
.endif
invoke GetWinProc, hWnd
mov hPrevProc, eax
invoke IsWindowUnicode, hWnd
.if eax == 0
invoke CallWindowProcA, hPrevProc, hWnd, uMsg, wParam, lParam
.else
invoke CallWindowProcW, hPrevProc, hWnd, uMsg, wParam, lParam
.endif
ret
MsgProc endp