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

Question

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

Answer 1

例如：
var  h:Integer;  p:Tpoint;begin  GetCursorPos(p);//得到鼠标坐标  h:=windowfrompoint(p);//得到鼠标处的窗体句柄 SetWindowPosh,HWND_TOPMOST,0,0,0,0,SWP_NOSIZE);end;

Answer 2

设置formstyle属性为fsStayOnTopform1.formstyle:=fsStayOnTop;
form1.width:=screen.Width;         //让窗体全屏幕显示
form1.height:=screen.Height;
form1.Position:=poScreenCenter;