怎么样让窗体一直处于最上层 ( 积分: 20 )

我在程序里面调用了一个外部程序，在调用它的同时打开一个自己编写的窗体，我希望自己编写的窗体始终在外部程序的界面上存在，不被外部程序所覆盖；即使点击外部程序界面上的其他按钮或者菜单，这个窗体也一直在，请问怎么样实现呢？快没分了，请大家见谅

我在程序里面调用了一个外部程序，在调用它的同时打开一个自己编写的窗体，我希望自己编写的窗体始终在外部程序的界面上存在，不被外部程序所覆盖；即使点击外部程序界面上的其他按钮或者菜单，这个窗体也一直在，请问怎么样实现呢？快没分了，请大家见谅

这怎么感觉象个外挂啊..............
偶以为要将窗体FormStyle=fsStayOnTop
同时获取外部程序的句柄..
试试看吧,偶也没经验.呵呵

是啊，我查了好多delphi的帖子了，formstyle属性设置成fsstayontop是可以，但是一点击外部程序上的其他按钮，就又不见了；我也试了用程序的句柄控制，createprocess但是显示出来的窗体不能用，就是一片空白啊；请问各位大侠还有什么好方法啊，教教我吧，谢谢拉～～～～～～～～～～～

unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm2 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
procedure CreateParams(var Params: TCreateParams);
override;
end;

var
Form2: TForm2;
implementation
uses Unit1;
{$R *.dfm}
{ TForm2 }
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
params.WndParent:=xhandle;
Xhandle 是你的外部程序的 窗口的handle
end;

end.