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

var
  w,h: Integer;
begin
  w := Screen.Width;
  h := Screen.Height;

  Text := Format('当前屏幕的分辨率是: %d*%d', [w,h]);
end;

posted on 2008-01-22 13:09  万一  阅读(...)  评论(...编辑  收藏