哪位高手能帮我翻译成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
...全文
86 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
biku 2008-07-18
  • 打赏
  • 举报
回复
谢谢。我自己已经弄懂了。
ncdfly 2008-07-17
  • 打赏
  • 举报
回复
更正一下
((WINDOWPOS*)lParam)->cy = GetSystemMetrics(SM_CYMIN );
ncdfly 2008-07-17
  • 打赏
  • 举报
回复
C语言的行不?

elseif(uMsg == WM_WINDOWPOSCHANGING )
{
(WINDOWPOS)lParam.cy = GetSystemMetrics(SM_CYMIN );
renturn 0;
}
elseif(uMsg == WM_WINDOWPOSCHANGED )
return 0;
biku 2008-07-17
  • 打赏
  • 举报
回复
就这段就行了。难道没人吗?
.elseif eax == WM_WINDOWPOSCHANGING
invoke GetSystemMetrics, SM_CYMIN
mov edx, lParam
mov (WINDOWPOS PTR [edx]).cy, eax
xor eax, eax
ret
.elseif eax == WM_WINDOWPOSCHANGED
xor eax, eax
ret
它是不是截获了WM_WINDOWPOSCHANGED消息啊?

21,458

社区成员

发帖
与我相关
我的任务
社区描述
汇编语言(Assembly Language)是任何一种用于电子计算机、微处理器、微控制器或其他可编程器件的低级语言,亦称为符号语言。
社区管理员
  • 汇编语言
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧