创建大窗口

procedure TForm1.FormCreate(Sender: TObject);

begin

  SetWindowLong(

    Handle,

    GWL_STYLE,

    not (WS_THICKFRAME) and GetWindowLong(Handle, GWL_STYLE) or Integer(WS_POPUP)

  );

  SetWindowPos(Handle, 0, 0, 0, 1920, 1080, SWP_NOZORDER or SWP_NOMOVE);

end;