Question

怎样用API使被最小化的窗口最大化并前置

Answer 1

代码如下：
Private Declare Function FindWindow Lib "user32 " Alias "FindWindowA"
(ByVal lpClassName As Any, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Sub MDIForm_Load()
Me.Caption = "test"
If App.PrevInstance = True Then
hwndCalc = FindWindow(0&, "测试")
ShowWindow hwndCalc, 9
hwndCalc = SetForegroundWindow(hwndCalc)
End
Else
Me.Caption = "测试"
'Form1.Show
'Form1.Top = 50
'Form1.Left = 50
End If
End Sub