创建大窗口

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;