创建不能被最小化的窗体

如何产生不会按Win+M键而消失的小窗口，类似FLASHGET的悬浮窗，我重载了

procedure TLittlebox.CreateParams(var Params: TCreateParams);

begin

inherited CreateParams( Params);

Params.WndParent:=0;

end;

设这个Form的边为NONE，

结果在任务栏中出现这个窗口的标题，如何才能达到象FLASHGET一样的窗口呢？

我已经知道答案了，从CSDN得知

procedure TLittlebox.CreateParams(var Params: TCreateParams);

begin

inherited CreateParams( Params);

Params.ExStyle := Params.ExStyle or WS_EX_TOPMOST or WS_EX_TOOLWINDOW;

Params.WndParent := 0; // 这是必须的，否则当App变为后台时会将该窗体设置为不TopMost

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

with Application do

SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) and

not WS_EX_APPWINDOW or WS_EX_TOOLWINDOW);

SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);

end;