我是这样取得的//取得水平方向每英寸打印机的点数 function HPointsPerInch: Integer; overload; begin Result := GetDeviceCaps(Printer.Handle, LOGPIXELSX); end;//取得水平方向每英寸屏幕的点数 function HPointsPerInch(Canvas: TCanvas): Integer; overload; begin Result := GetDeviceCaps(Canvas.Handle, LOGPIXELSX); end;
function HPointsPerInch: Integer; overload;
begin
Result := GetDeviceCaps(Printer.Handle, LOGPIXELSX);
end;//取得水平方向每英寸屏幕的点数
function HPointsPerInch(Canvas: TCanvas): Integer; overload;
begin
Result := GetDeviceCaps(Canvas.Handle, LOGPIXELSX);
end;