急急！！！如何显示外部隐藏程序

Question

比如说“计算器" 隐藏后。如何显示出来。谢谢

Answer 1

是你隐藏的吗？如果是，按隐藏的方法改变下参数不就好了，不过不是，先用findwindow找到程序的窗口，得到该窗口句柄，再用showwindow函数，将其显示即可。

Answer 2

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal HWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const WM_SYSCOMMAND = &H112Private Const SC_RESTORE = &HF120&Private Sub Command1_Click()
Dim HWnd As LongHWnd = FindWindow(vbNullString, "计算器")
SendMessage HWnd, WM_SYSCOMMAND, SC_RESTORE, 0&End Sub

Answer 3

问题已经解决。用showwindow 是无法显示出来的。
谢谢大家