把这段检查环境的代码放在什么位置比较好,谢谢

Question

if (screen.Height < 600) or (screen.Width < 800) then
  begin
    showmessage('屏幕分辨率不能小于800*600,请重新设置');
  end;如果上面这段代码在程序启动前检查,如果不符合就退出程序,谢在什么事件里比较好,,,
我放在form的onShow事件里,但我不知道怎样释放form及程序,所以向大家请教,谢谢

Answer 1

在主程序的project 中
user windows,  ...;var rect :Trect;begin
  systemparametersinfo(SPI_GETWORKAREA,0,@rect,0);
  with rect do
    if ((right-left)<800) or ((buttom-top)<600) then halt;
  ...
end.

Answer 2

哦,我也想过在主程序里加的,,,但我怎么把错误信息show出来呢.谢谢