现在的显示分辨率是越来越高了,以至于是多少都搞不清楚,程序也往往需要知道分辨率才能合理安排窗体,所以要得到显示分辨率,下列的程序帮你忙: 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;
[ 查看全文 ]