求助！请问如何让一个应用程序获得焦点 100分（给个例子）

Question

Shell返回0就是没有执行成功，否则就是执行成功。
例如
if Shell("c:\windows\notepad.exe",1)=0 then
   '没有成功执行
第二个参数1＝vbNormalFocus，表示执行的程序窗口得到焦点，且以正常方式显示

Answer 1

呵呵，你可以看看以前的帖子，我不用VB，说一下思路吧，用FINDWINDOWEX找到该exe的句柄，如果已经运行，用postmessage给这个句柄发送消息就可以了。

Answer 2

如果可执行程序路径唯一的话,可以用以下代码
Private Sub Form_Load()
 If App.PrevInstance = True Then
  Unload Form1 
 End If
End Sub
否则,用API函数CreateMutex,GetLastError,CloseHandle,可以判定程序是否已经执行

Answer 3

能不能给个vb实现这种功能的全过程啊sub form_load()
end subsub command1_onclick()
if app.prevInstance=true then  '如果app.prevInstance可以判断notepad.exe是否执行
   Shell("c:\windows\notepad.exe",1)
else
   myret=msgbox("该程序已经执行",vbokonly)
     if(myret=1) then
        执行一个让notepad.exe到前台的函数      请问这个函数是哪个函数(
     end if
End If
这样才彻底啊，各位大虾，请不吝赐教

Answer 4

能不能给个vb实现这种功能的全过程啊sub form_load()
end subsub command1_onclick()
if app.prevInstance=true then  '如果app.prevInstance可以判断notepad.exe是否执行
   Shell("c:\windows\notepad.exe",1)
else
   myret=msgbox("该程序已经执行",vbokonly)
     if(myret=1) then
        执行一个让notepad.exe到前台的函数      请问这个函数是哪个函数(
     end if
End If
这样才彻底啊，各位大虾，请不吝赐教,我一定给您加分