求 VB嵌入DOS窗口，并固定DOS窗口位置和大小

xiaomingt10

如题，代码如下
问题，SetWindowLong对DOS窗口的操作始终无效，求解……

1. 
   
2. bas
   
3. 
   
4. Option Explicit
   
5. Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
   
6. Public Declare Function DefWindowProc Lib "user32" Alias "DefWindowProcA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
   
7. Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
   
8. Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
9. 
   
10. Public Const GWL_WNDPROC = (-4)
    
11. Public Const WM_NCHITTEST = &H84
    
12. Public Const HTCAPTION = 2
    
13. 
    
14. Public oldhwnd As Long
    
15. Public Flag As Boolean
    
16. 
    
17. 
    
18. 
    
19. Public Function WndProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    
20.    
    
21.     If Flag = False Then
    
22.         Flag = True
    
23.         Debug.Print "WndprocHandle="; hWnd
    
24.     End If
    
25.    
    
26.     If uMsg = WM_NCHITTEST Then
    
27.         If DefWindowProc(hWnd, uMsg, wParam, lParam) = HTCAPTION Then
    
28.             WndProc = 1
    
29.             Exit Function
    
30.         End If
    
31.     End If
    
32.    
    
33.    WndProc = CallWindowProc(oldhwnd, hWnd, uMsg, wParam, lParam)
    
34. End Function
    
35. 
    
36. form1
    
37. 
    
38. Option Explicit
    
39. Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
    
40. 
    
41. Private Sub Command1_Click()
    
42. 
    
43.     Dim commandstring As String
    
44.     Dim TaskID As Long
    
45.     Dim hWnd As Long
    
46.    
    
47.     TaskID = Shell("cmd.exe", vbNormalNoFocus)
    
48.    
    
49.     MsgBox "开始运行DOS"
    
50.    
    
51.     hWnd = FindWindow("ConsoleWindowClass", "C:\WINDOWS\system32\cmd.exe")
    
52.    
    
53.    
    
54.     SetParent hWnd, Form1.hWnd
    
55.    
    
56.     oldhwnd = SetWindowLong(hWnd, -4, AddressOf WndProc)
    
57.    
    
58. End Sub
    
59. 
    
60. Private Sub Form_Unload(Cancel As Integer)
    
61.     Unload Form1
    
62. End Sub
    
63. 
    

复制代码