窗口如何激活自己

在Window98以下，如果程序要激活自己，只需要简单的调用SetForegroundWindow即可达到目的。但到Win98以后，再也没有这么简单了。

新建一个简单的工程，加进一个Timer控件，设置时间间隔为3秒，接着在时间事件中写SetForegroundWindow(Handle)，好，运行程序，将窗口切换到后台，3秒钟之后，你看到的只是任务栏上闪了闪，窗口仍然躺在后面。

这是怎么回事呢，原来在Win98以后，窗口要使用SetForegroundWindow激活自己，必须得到“允许”，允许的方式有很多种，我只介绍最简单的一种，就是利用这个API：LockSetForegroundWindow先解锁Foreground的窗口，然后再调用SetForegroundWindow。

LockSetForegroundWindow在Delphi的Windows单元中并没有声明，需要自己声明，我将激活的函数重新封装如下，需要的朋友直接用就可以了：

const

LSFW_LOCK = 1;

LSFW_UNLOCK = 2;

function LockSetForegroundWindow(uLockCode: DWORD): BOOL; stdcall;

implementation

function LockSetForegroundWindow; external 'user32.dll' name 'LockSetForegroundWindow';

function wdSetForegroundWindow(Handle: THandle): Boolean;

begin

//-----------------------------------------------------

//作者：linzhenqun

//时间：2006-11-1

//说明：使Win98以上的窗口都可以设置Foreground的函数

//-----------------------------------------------------

if ((Win32Platform = VER_PLATFORM_WIN32_NT) and (Win32MajorVersion> 4))//up win 2000

or ((Win32Platform = VER_PLATFORM_WIN32_WINDOWS) and //up win 98

((Win32MajorVersion > 4) or

((Win32MajorVersion = 4) and

(Win32MinorVersion > 0)))) then

LockSetForegroundWindow(LSFW_UNLOCK);

Result := SetForegroundWindow(Handle);

end;

现在你在时间事件中写下如下代码：

Application.Restore;

wdSetForegroundWindow(Handle);

那么，窗口就可以自己激活自己了，爽吧！