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

我这里用记事本测试是没问题的

同样是用VB编写的程序就不行的。

您可以试一下这个。
我做的是当一个程序启动时检测自身是否已在运行中，如果正在运行中，那就将正在运行中的那份前置，然后退出第二次运行的程序。
连续执行两次编译出来的程序就行。

测试用例.rar

2011-02-15 15:09 上传点击文件名下载附件下载积分: 电元 -5
4 KB, 下载次数: 4, 下载积分: 电元 -5

感觉你FindWindow找到的是自己

咦，这样啊，我再试一下。

唉，头痛了，刚刚听从您的建议，在程序确认是第一次启动后再修改标题名，确实，窗口能正常显示出来了。然后多测试了两次，突然间又失效了…………悲剧啊…………

太感谢了！已经成功了。果然是电脑出问题了。注销了下就一切正常了。
代码如下：
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

我也想下来看看啊