怎樣用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

我也想下來看看啊