Question

帮忙VB一小段代码转化为delphi，谢谢哦

Option Explicit
Private Declare Function GetWindowRect Lib "user32" _
( _
ByVal hWnd As Long, _
lpRect As RECT _
) As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
( _
ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any _
) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Const WM_LBUTTONDOWN = &H201
Const WM_LBUTTONUP = &H202
Const MK_LBUTTON = &H1

Private Sub MyClick(hWnd As Long)
Dim Rc As RECT
Dim mPoint As Long
Dim X As Long
Dim Y As Long
Call GetWindowRect(hWnd, Rc)
X = (Rc.Right - Rc.Left) / 2
Y = (Rc.Bottom - Rc.Top) / 2
mPoint = (Y * &H10000) Or X
Call SendMessage(hWnd, WM_LBUTTONDOWN, MK_LBUTTON, ByVal mPoint)
Call SendMessage(hWnd, WM_LBUTTONUP, 0, ByVal mPoint)
End Sub
对VB不懂，这些看不懂，请大侠们帮忙翻译一下，帮忙解析为delphi代码，谢谢哦

Answer 1

朋友 win32编程都是一样的
这个只不过是发送几个按钮事件而已
虽然我不懂VB
还是能看懂一点的

Answer 2

为什么要用Delphi？VB也也很强大的