窗口显示问题？？（有点难度）

Question

能不能使窗口显示以独占的方式显示？
如：窗口在屏幕的最上方，其他应用程序最大化时，也只是在我创建窗口的下方。
就像Windows的任务栏(taskbar)一样，我们最大化窗口时，也只是在taskbar的上面。。

Answer 1

现在设置 form 的fsStyle ＝ fsStayOnTop 没用吗？
不行可用 SetWindowPos(handle,hwnd_topmost,0,0,0,0,swp_nomove   or   swp_nosize);

Answer 2

用下面的API置顶后，   
  SetWindowPos(Handle,   HWND_TOPMOST,   0,   0,   0,   0,   SWP_NOMOVE   or   SWP_NOSIZE);   
    
  怎么再把窗口改成正常的状态呢？   SetWindowPos(Handle,   HWND_NOTOPMOST,   0,   0,   0,   0,   SWP_NOMOVE   or   SWP_NOSIZE);我GOOGLE的, 最后还是在CSDN里找到答案,呵呵

Answer 3

一个例子, 通过SystemParametersInfo函数来设置Windows的工作区(WorkArea),这样桌面上的图标和设置之后运行的程序都会在新的工作区中显示了。unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    btnExit: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure btnExitClick(Sender: TObject);
  private
    procedure MyFormMove(var Msg: TMessage); message WM_NCHITTEST;
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.MyFormMove(var Msg: TMessage);
begin
  //nothing to do...
end;procedure TForm1.FormCreate(Sender: TObject);
var
  WorkArea: TRect;
begin
  Self.BorderStyle := bsNone;
  Self.FormStyle := fsStayOnTop;
  Self.Left := 0;
  Self.Top  := 0;
  Self.Width := Screen.Width;
  SystemParametersInfo(SPI_GETWORKAREA, 0, @WorkArea, 0);
  WorkArea.Top := WorkArea.Top + Self.Height;
  SystemParametersInfo(SPI_SETWORKAREA, 0, @WorkArea, SPIF_SENDCHANGE);
end;procedure TForm1.FormDestroy(Sender: TObject);
var
  WorkArea: TRect;
begin
  SystemParametersInfo(SPI_GETWORKAREA, 0, @WorkArea, 0);
  WorkArea.Top := WorkArea.Top - Self.Height;
  SystemParametersInfo(SPI_SETWORKAREA, 0, @WorkArea, SPIF_SENDCHANGE);
end;procedure TForm1.btnExitClick(Sender: TObject);
begin
  Self.Close;
end;end.

Answer 4

SetWindowPos(handle,hwnd_topmost,0,0,0,0,swp_nomove   or   swp_nosize);

Answer 5

D5开发人员指南
第24章   扩展Windows外壳
24.2   应用程序桌面工具栏
TAppBar

Answer 6

我想用hook，期待你更简单的解决

Answer 7

感谢jadeluo(秀峰) 的回答：现在还有一个问题，在该窗口启动后，后面启动的窗口是在新设定的WordArea里面，在他前面启动的窗口的WorkArea，还是全屏。我要的效果如：Oracle8.0.0.5服务器版本中的Administrator Toolbar(VOM.exe)

Answer 8

setwindowpos(application.handle,hwnd_top,0,0,0,0,swp_hidewindow);

Answer 9

To slzzg:
测试了一下, 遍历目前显示在桌面上的窗体, 给它们发送最小化消息，然后再发送还原消息，应该能解决问题。