delphi调用SetWindowPos函数, 让当前窗口始终处在程序的最前面拜托各位大神

>

工具原料：电脑 +win10+office2010

激活office2010方法如下：

1、首先安装好microsoft office2010

2、使用下载的压缩包(破解工具在上面的microsoft office2010压缩包里)，可以看到KMS激活”里面有如下图的一个程序。

3、准备激活，这个时候需要关闭防火墙(确保激活过程中“电脑联网”)，打开后会出现如下的界面。

4、点击“Install/Uninstall KMService”安装“KMS”服务器。如下图所示，在d出的窗口输入 Y ，安装KMS服务器。安装过程与结果如下图所示，看到“Press any key to exit”，即表示安装成功，这个时候随便按一个键盘，退出窗口。

5、再点击“Rearm office 2010”进行重置，同样也会d出一个窗口，在d出窗口中输入 Y，进行重置。稍微等一会即可看到看到“Press any key to exit”，确定，进入下一步。

6、最后，点击“Activate office 2010 VL”，即可成功激活，什么都不需要输入，如下图所示。会显示180天的限制，不用担心，到180天再次运行这个正版激活工具，又是180天。

7、在上面的第6步，很多朋友反应不太一样，会出现下面这个界面，这个时候输入 1 即可实现成功激活。

8、再去检查下microsoft office2010的激活状态，显示版本信息，说明已激活。

1、首先需要准备好Office Tool Plus，双击打开软件。

2、然后点击左侧的安装选项按钮，在版本中选择O365ProPlusRetail，安装方式修改为在线安装，点击开始安装按钮进行安装。

3、等待安装完成即可。

4、安装好以后接下来点击左侧的激活按钮，选择证书为图示的证书，点击安装许可证按钮安装证书。

5、最后打开office软件，即可看到软件是激活的了。

你这样试试看
procedure TFmMainWebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var
str: string;
begin
//禁止d页面
Cancel:= true;
try
str:= WebBrowser1oleObjectdocumentActiveElementGetAttribute('href');
if str <> '' then
begin
try
WebBrowser1Navigate(str);
except
showmessage('暂时无法打开此站点!');
end;
end;
except
end;
end;

---