一个很简单的问题（关于SendMessage的）

[费墨von]

我有如下一段vb的程序谁能帮我把它转成delphi的程序。
主要是SendMessage一直写不对，希望各位高手帮忙！谢谢！
Private Const HWND_TOPMOST = -1
Private Const WM_GETTEXT = &HD
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const Flags = SWP_NOMOVE Or SWP_NOSIZE

Private Type pointAPI
x As Long
y As Long
End Type

Private oldPoint As pointAPI

Private Sub Form_Load()
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, Flags
End Sub

Private Sub Timer1_Timer()
'
Dim hact As Long
Dim lngLen As Long
Dim lngRet As Long
Dim strTemp As String
lngLen = 21
strTemp = Space(20)
GetCursorPos oldPoint
hact = WindowFromPoint(oldPoint.x, oldPoint.y)
lngRet = SendMessage(hact, WM_GETTEXT, lngLen, ByVal strTemp)
Label1.Caption = strTemp
End Sub

[费墨von]

有哪位高手可以帮我一下。

[kxy]

var
StrTemp : string;
begin
SetLength(StrTemp,21);
IngRet = SendMessage(hact,WM_GETTEXT,IngLen,LongInt(@StrTemp));
end;

[yiyu]

Var StrTemp:array [0..254] of char

SendMessage(hact,Wm_GetText,255,longint(@StrTemp)

就可以了.

[kxy]

IngRet := SendMessage(Button1.Handle,WM_GETTEXT,IngLen,LongInt(PChar(StrTemp)));
StrTemp := String(PChar(StrTemp));