Delphi 10 Seattle更改为Win32 GetPath和冗余TPoint和_POINTL记

新的Win32 API函数签名是：

function GetPath(DC: HDC; Points: PPointL; Types: PByte; nSize: Integer): Integer; stdcall;

在XE8中,先前该函数具有“var Points,Types”,其通常被称为“var untyped”参数.

修复代码以使用Delphi 10 Seattle意味着“统一”应用程序代码中的任意类型,以准确使用单元本身中声明的类型.然而令我困惑的是,有两种类型,PPointL和TPoint,当我使GetPath函数工作时,它填充的数据被填充到_POINTL记录数组中,因此在Winapi.Windows中声明：

type
  _POINTL = record      { ptl }
    x: Longint;
    y: Longint;
  end;
  {$EXTERNALSYM _POINTL}
  PPointL = ^TPointL;
  TPointL = _POINTL;

但是,还有另一种类型TPoint,在System.Types中声明：

TPoint = record
    X: FixedInt;
    Y: FixedInt;
  public

在其他地方,对于32位和64位Windows,FixedInt都是Longint的别名,所以就我所知,TPoint和_POINTL至少在Windows平台上是等效的.

如果现有的应用程序组件代码都使用名为TPoint的类型,如下所示：

procedure AddPoint(const P:TPoint);

……对于Delphi 10中的RTL源内部的情况,我有什么意义？我应该怎样解决这个问题？别名TPoint到单位级_POINTL？

我该如何解决这个问题并继续进行？由于此代码是商业组件,我想我会等到供应商修复此问题,但是,我认为理解RTL中的_POINTL和TPoint,以及为什么这些结构在定义中冗余/重复,将有助于其他人将低级Win32代码从Delphi XE8移植到Delphi 10 Seattle.

更新：作为一种解决方法,我发现我可以重新声明GetPath函数的导入,并在我自己的私有单元实现区域导入中将其保留为var无类型,并继续：

{$ifdef D23}
{$POINTERMATH ON}
      // Delphi 10 Seattle: function GetPath(DC: HDC; Points: PPointL; Types: PByte; nSize: Integer): Integer; stdcall;
      // previously had "var Points,Types" untyped,const
   gdi32     = 'gdi32.dll';

{$EXTERNALSYM GetPath}
function GetPath(DC: HDC; var Points,Types; nSize: Integer): Integer; stdcall; external gdi32 name 'GetPath';
{$endif}