把某个窗口设置为最前就想任务管理器那样不被遮挡

Question

把某个窗口设置为最前就想任务管理器那样不被遮挡
以记事本为例子谁能给个参考代码
越简短越好
不是自身窗口，是某个窗口

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var fHwnd:hwnd;
    rect:Trect;
begin
fHwnd:=FindWindowEx(0,0,nil,'计算器');  //获得句柄
GetwindowRect(fHwnd,rect);  //获得句柄控件的位置
SetWindowPos(fhwnd,HWND_TOPMOST,rect.Left ,rect.Top ,rect.Right ,rect.Bottom ,SWP_NOOWNERZORDER);
end;

Answer 2

楼上是正解，唯一遗憾是宽度和高度可不是rect.Right ,rect.Bottom ，而是rect.Right-rect.Left,rect.Bottom-rect.Top