用ShellExecute调用了一个外部程序，能不能让它始终显示在桌面最前面

[hamzsy]

如上，请高手指教

[hamzsy]

谢谢！

[武稀松]

用这个API
SetWindowPos
其中参数的窗体句柄设为想要居顶端的窗体句柄

[武稀松]

例如：
var

h:Integer;

p:Tpoint;

begin

GetCursorPos(p);//得到鼠标坐标

h:=windowfrompoint(p);//得到鼠标处的窗体句柄

SetWindowPosh,HWND_TOPMOST,0,0,0,0,SWP_NOSIZE);

end;

[My_first]

设置formstyle属性为fsStayOnTop

form1.formstyle:=fsStayOnTop;
form1.width:=screen.Width; //让窗体全屏幕显示
form1.height:=screen.Height;
form1.Position:=poScreenCenter;