Delphi windows下如何获取DPI

在Delphi环境下，如果你想在Windows平台上获取当前窗口（或其他控件）的DPI（ dots per inch，每英寸点数），你可以使用`TWinControl` 类的`ScaleFactor`属性。这个属性返回的是一个整数值，它代表了屏幕密度相对于96dpi的比例。

以下是一个简单的示例：

uses
  Windows, Messages, Vcl.Controls;

function GetDeviceScaleFactor(Control: TWinControl): Integer;
begin
  Result := Control.ScaleFactor;
end;

// 使用示例
var
  Form: TForm1;
begin
  Form := TForm1.Create(nil);
  try
    ShowMessage(IntToStr(GetDeviceScaleFactor(Form)));
  finally
    FreeAndNil(Form);
  end;
end;

在这个例子中，我们首先从`TForm1`实例（假设这是包含需要测量的控件的窗体）中获取`ScaleFactor`，然后将其转换为字符串并显示出来。