>>982
これでいいんだよな？
一応4.24でコンパイルできて動作も出来た
5.00だとファイルサイズもでかくなって落ちる


Function Export PreTranslateMessage(msg As *MSG) As DWord
Dim lpmsg As *MSG
lpmsg = VarPtr(msg)

'ウィンドウ宛てにメッセージが送られてきたら
If g_hWnd And (lpmsg->hwnd = g_hWnd) Then
'TranslateとDispatchでメッセージを処理する
TranslateMessage(ByVal msg)
DispatchMessage(ByVal msg)