用Delphi实现程序永远置顶

貌似可以把Form的

formstyle属性设为StayOnTop，

把Form的ParantForm（ParantWindow我记不太清楚了是那个了，本机没装DELPHI）设为桌面。其句柄为

GetDC（0）

ParantForm：=GetDC（0）；

不值得我记得准不准，你可以试下。

用SetWindowPos

SetWindowPos(Handle, HWND_BOTTOM, 0,0, Width,Height, SWP_SHOWWINDOW)

这个是SetWindowPos的参数说明

SetWindowPos(

hWnd: HWND {窗口句柄}

hWndInsertAfter: HWND{窗口的 Z 顺序}

X, Y: Integer{位置}

cx, cy: Integer {大小}

uFlags: UINT {选项}

): BOOL

procedure StayOnTop(Handle:HWNDOnTop:Boolean)

const

csOnTop:array[Boolean] of HWND=(HWND_NOTOPMOST,HWND_TOPMOST)

begin

SetWindowPos(Handle,csOnTop[OnTop],0,0,0,0,SWP_NOMOVE or SWP_NOSIZE)

end

//handle为你想要置顶的句柄form.handle

试下吧。。。

---