Question

VB判断程序已经在运行

如何判断“我的程序.exe”已经在运行，再打开就恢复之前已经打开的程序界面，如果最小化也从任务栏里面恢复到默认窗口，就相当于聚焦已经打开的程序窗口。
咱是小虾新手，请VB高手或熟手指教，最好给出具体示例代码（包括API）
netbartp的程序试过了，可以实现直接打开主程序FORM的激活和只允许一个程序运行的功能，但我这个程序有登录的过程，登录的form完成之后就unload了，然后show出主程序的form，这样这个程序就不起作用了。

Answer 1

'从百度贴吧搜索帖子：“只允许有一个本程序运行的实例”，可找到较全面的资料

Option Explicit
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SYSCOMMAND = &H112
Private Const SC_RESTORE = &HF120&
Private LockedFile$
'只允许本程序有一个实例运行
'作者：netbartp QQ：89323884
'程序为原创，如需转载请保留此信息
Private Sub Form_Load()
On Error GoTo ErrHand '错误跳转
Dim MeHwnd&, MePid&
LockedFile = "c:\temp.temp" '临时文件

'打开临时文件(如果发生70错误，则判定本程序正在运行中)
Open LockedFile For Binary Access Read Lock Read Write As #1

'将自己的pid存到注册表的一个位置
SaveSetting "AppName", "LoadMe", "MePid", GetCurrentProcessId

'将自己的句柄hwnd存到注册表的一个位置
SaveSetting "AppName", "LoadMe", "MeHwnd", Me.hwnd
Exit Sub
ErrHand:
Select Case Err.Number
Case Is = 70
'获取本程序上次打开时的pid
MePid = GetSetting("AppName", "LoadMe", "MePid")

'获取本程序上次打开时的hwnd
MeHwnd = GetSetting("AppName", "LoadMe", "MeHwnd")
'如果是最小化就将其还原成正常窗口状态
SendMessage MeHwnd, &H112, &HF120&, 0

'激活上次打开的本程序。并退出当前程序
AppActivate MePid: End
Case Else
'其他操作
End Select
End Sub

Private Sub Form_Terminate()
Reset '关闭所有打开的文件
Kill LockedFile '删除临时文件
End Sub

Answer 2

这需要API函数才能实现

Answer 3

'判断程序已经运行
If App.PrevInstance = True Then

end if

Answer 4

有判断程序正在运行的代码,不用API的.代码如下:
Private Sub Form_Load()
If App.PrevInstance Then
MsgBox "程序正在运行!"
Unload Me
End If
End Sub

至于聚焦打开的程序窗口嘛,我还不会.

Answer 5

测试App.PrevInstance可以防止程序的多个复本运行在同一台计算机上。
如果想恢复之前打开的程序界面，需要用API函数检测已运行程序的窗口标题信息，打开之前运行的程序窗口。