一个小问题，是这样的........

Question

var
x:longint;  a:string;
begin
x := GetSystemMetrics(SM_CXSCREEN);
Str(x,a);
Label1.Caption := '显示器水平分辨率' + a;
x := GetSystemMetrics(SM_CYSCREEN);
Str(x,a);
Label2.Caption := '显示器垂直分辨率' + a;
end;得到了分辩率，就可以得到。应该是一样的吧

Answer 1

随便找个Form:
Form1.PixelPerInch  这个就是！
因为这个属性缺省就是取系统的！
不过，你要改动了，就不准了，那时，将缩放Form要不，Screen.PixelPerInch,这个是准的！

Answer 2

Screen.PixelPerInch这个返回的只是纵向的，而不是横向的，是不一样的！

Answer 3

PixelPerInch返回的只是纵向的，而不是横向的，是不一样的！