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  万一  阅读(4210)  评论(0编辑  收藏  举报