TScreen 类 - 屏幕的逻辑宽度与高度

为什么80%的码农都做不了架构师？>>>   

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

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

 
 
 
 
 

 

 

  

转载于:https://my.oschina.net/hermer/blog/319604