随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253


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;

posted on 2009-12-27 14:54  万一  阅读(...)  评论(...编辑  收藏