Question

vb：如何在防止多重启动的同时激活已启动应用程序

防止同一应用程序多重启动，其方法是判断App的PrevInstance属性若App.PrevInstance为True，则表示此应用程序在执行中，可以直接结束本此执行

Private Sub Form_Initialize()
If App.PrevInstance Then End
End Sub

可是在End的那部分我想换成同时将已打开的应用程序激活，应该怎么办？
请高手指教！
XnnYygn：不行啊，还有别的方法吗?

Answer 1

使用API函数
Declare Function ShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Integer, ByVal nCmdShow As Integer) As Integer

运行时用FINDWINSOWS(API函数)来取得一个进程句柄，
ShowWindow(HWND(取得的句柄),1)可以还原后显示窗口，要最大化，用SW_SHOWMAXIMIZED(API常数值)

Answer 2

关闭新打开的窗口，并把以前打开的窗口在最前面显示出来，这方面的资料我也查过，据说很费事，网上没找到代码