VB代码，有朋友帮忙车成delphi哇?很简单的，我自己转的有问题！

Question

Private Sub Command1_Click()
Dim Tmp As Long
    SendMessageCallback -1, 15, 0, 0, AddressOf SednAsyncProc, Tmp
End Sub
//////////////Attribute VB_Name = "Module1"
Option Explicit
Public Declare Function SendMessageCallback Lib "user32" Alias "SendMessageCallbackA" (ByVal hWnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long, ByVal lpResultCallBack As Long, ByVal dwData As Long) As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As LongPublic Function SednAsyncProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal dwData As Long, ByVal lResult As Long) As Long
Dim szTitalBuffer As String * 1024
Dim sf As String * 254
//MsgBox hWnd
    GetWindowText hWnd, szTitalBuffer, 1024
    If InStr(szTitalBuffer, "新建 文本文") <> 0 Then MsgBox hWnd
End Function就是找这个新建 文本文的句柄，这个代码运行没问题，但是我转成delphi找不到。。有朋友帮忙 转一下测试行不行 谢谢啦！！！！！！！！

Answer 1

就两个申明而已,只要会一点语法的都能办到,由此推断楼主是Delphi一点也不会吧?