精彩编程与编程技巧-判断应用程序是否仍在运行并设置焦点...

判断应用程序是否仍在运行并设置焦点

下面的程序将利用VB程序的一个独有的特点：隐藏的父窗口。每一个VB应用程序都
有一个隐藏的父窗口。该父窗口的标题（Caption） 就是你在“生成EXE”文件时
所提供的应用程序的名称。 这就是为什么当你按下Ctl+Alt+Del查看时，任务列表
中显示的总是应用程序的名称，而不是程序主窗口窗口的标题。

既然父窗口是隐藏的，那我们就没有必要去改变父窗口的标题。结果是，几乎所有
的VB程序都可以用下面的小程序。

请注意，有一类程序不能应用下面这段小程序：如果你在“生成EXE”文件时，将
应用程序的名称设置成为零字符，那么这段程序就无效 了。这是因为很多很多窗
口都将其标题设为零字符。

另一个需要注意的地方就是：该程序用到了App.Previnstance来检查程序的另一个
实例正在运行。这样做可以提高程序的效率， 但代价是你不能同时运行两个或以
上的要检查的程序。如果你想这样做的话，请将有App.Previnstance的那一行语句
注释掉。

请将下面的代码放置在模块中：

Declare Function GetWindowWord% Lib "User" (ByVal hWnd%, ByVal nIndex%) 
Declare Function GetWindowText% Lib "User" (ByVal hWnd%, ByVal lpString$,
ByVal aint%) 
Declare Function GetWindowTextLength% Lib "User" (ByVal hWnd%) 
Declare Function GetWindow% Lib "User" (ByVal hWnd%, ByVal wCmd%) 
Declare Function SetFocusAPI% Lib "User" Alias "SetFocus" (ByVal hWnd%) 

' get window word constants 
Const GWW_HWNDPARENT = (-8)