窗口如何激活自己

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

　　在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);

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