procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := Params.Style and not WS_CAPTION;
  Params.Style := Params.Style or WS_POPUP;
//设为总在最上边
  Params.ExStyle := Params.ExStyle or WS_EX_TOPMOST;
//设WINDOWS OWNER为DESKTOP WINDOWS
  Params.WndParent := GetDesktopWindow();  //Params.WndParent := GetDesktopWindow;
end;