public
{ Public declarations }
procedure CreateParams(var Params: TCreateParams); override;
{$R *.dfm}
procedure TForm1.Createparams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do
begin
Style := (Style or WS_POPUP) and (not WS_DLGFRAME);
EXStyle := ExStyle or {WS_EX_TOPMOST or} WS_EX_ACCEPTFILES;
wndParent := GetDesktopWindow; //关键一行
end;
end;
上面是保持窗口保持在最上面，快捷任务栏的最小化所有程序对这个都无效。
下面是最大化和最小化：
PostMessage(handle, WM_SYSCOMMAND, SC_MAXIMIZE, 0); //最大化
PostMessage(handle, WM_SYSCOMMAND, SC_RESTORE, 0); //还原
