求助，帮忙将VB代码翻译为BCB代码(100分)

这是鼠标键盘动作纪录与回放的VB代码，请高手帮我翻译为C++ Builder下的代码，或谁有现成的能发我一份到邮箱吗？，谢谢！！Email:hdqself2008@163.com
Option Explicit
Public Type EVENTMSG
message As Long
paramL As Long
paramH As Long
time As Long
hwnd As Long
End Type
Public Declare Function CallNextHookEx Lib "user32"
_
(ByVal hHook As Long, _
ByVal ncode As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
Public Declare Function SetWindowsHookEx Lib "user32"
_
Alias "SetWindowsHookExA"
_
(ByVal idHook As Long, _
ByVal lpfn As Long, _
ByVal hmod As Long, _
ByVal dwThreadId As Long) As Long
Public Declare Sub CopyMemoryT2H Lib "kernel32"
_
Alias "RtlMoveMemory"
_
(ByVal Dest As Long, _
Source As EVENTMSG, _
ByVal Length As Long)
Public Declare Sub CopyMemoryH2T Lib "kernel32"
_
Alias "RtlMoveMemory"
_
(Dest As EVENTMSG, _
ByVal Source As Long, _
ByVal Length As Long)
Public Declare Function UnhookWindowsHookEx Lib "user32"
_
(ByVal hHook As Long) As Long
Public Const WH_JOURNALPLAYBACK = 1
Public Const WH_JOURNALRECORD = 0
Public Const HC_SYSMODALOFF = 5
Public Const HC_SYSMODALON = 4
Public Const HC_SKIP = 2
Public Const HC_GETNEXT = 1
Public Const HC_ACTION = 0
Public EventArr(1000) As EVENTMSG
Public EventLog As Long
Public PlayLog As Long
Public hHook As Long
Public hPlay As Long
Public recOK As Long
Public canPlay As Long
Public bDelay As Boolean
Public Function HookProc(ByVal iCode As Long, ByVal wParam As Long, _
ByVal lParam As Long) As Long
Dim Result As Long

recOK = 1
Result = 0
If iCode < 0 then
'iCode小于0必须直接调用下一个消息钩子函数
Result = CallNextHookEx(hHook, iCode, wParam, lParam)
else
If iCode = HC_SYSMODALON then
'不允许纪录
recOK = 0
else
If iCode = HC_SYSMODALOFF then
'允许纪录
recOK = 1
else
If ((recOK > 0) And (iCode = HC_ACTION)) then
'将消息纪录在纪录队列中
CopyMemoryH2T EventArr(EventLog), lParam, Len(EventArr(EventLog))
EventLog = EventLog + 1
If EventLog >= 1000 then
'当纪录大于1000后释放消息钩子
UnhookWindowsHookEx hHook
End If
End If
HookProc = Result
End Function
Public Function PlaybackProc(ByVal iCode As Long, ByVal wParam As Long, _
ByVal lParam As Long) As Long
Dim Result As Long

canPlay = 1
Result = 0
If iCode < 0 then
'iCode小于0必须直接调用下一个消息钩子函数
Result = CallNextHookEx(hPlay, iCode, wParam, lParam)
else
If iCode = HC_SYSMODALON then
'不允许回放
canPlay = 0
else
If iCode = HC_SYSMODALOFF then
'允许回放
canPlay = 1
else
If ((canPlay = 1) And (iCode = HC_GETNEXT)) then
If bDelay then
bDelay = False
Result = 50
End If
'从纪录队列中取出消息并赋予lParam指针指向的EVENTMSG区域
CopyMemoryT2H lParam, EventArr(PlayLog), Len(EventArr(EventLog))
else
If ((canPlay = 1) And (iCode = HC_SKIP)) then
bDelay = True
PlayLog = PlayLog + 1
End If

If PlayLog >= EventLog then
UnhookWindowsHookEx hPlay
End If
PlaybackProc = Result
End Function
在Form1的代码窗口中加入以下代码：
Option Explicit
Private Sub Command1_Click()
EventLog = 0
hHook = SetWindowsHookEx(WH_JOURNALRECORD, AddressOf HookProc, _
App.hInstance, 0)
Command2.Enabled = True
Command1.Enabled = False
End Sub
Private Sub Command2_Click()
UnhookWindowsHookEx hHook
hHook = 0
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = True
End Sub
Private Sub Command3_Click()
PlayLog = 0
hPlay = SetWindowsHookEx(WH_JOURNALPLAYBACK, AddressOf PlaybackProc, _
App.hInstance, 0)
Command3.Enabled = False
End Sub
Private Sub Form_Load()
Command1.Caption = &quot;纪录&quot;
Command2.Caption = &quot;停止&quot;
Command3.Caption = &quot;回放&quot;
Command2.Enabled = False
Command3.Enabled = False
End Sub

请各位高手帮帮忙啊，分数不够的话，可以再加的啊

老兄，这个消息处理的。如果你不懂消息处理的话，你可以看看这方面的书籍啊。全都是api。bcb/delphi都很容易处理的。

我不懂这方面的啊

多人接受答案了。