新微赢技术网

标题: 窗口如何激活自己 [打印本页]

作者: 海的无奈 时间: 2009-3-16 14:55
标题: 窗口如何激活自己
在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);
那么，窗口就可以自己激活自己了，爽吧！

作者: SJPP 时间: 2009-12-31 14:05
我来自火星刚到地球什么都不懂

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)