GetWindowLong versus GetWindowLongPtr

[himitsu]

Für irgendwas müssen die Quellcodes ja gut sein.

Delphi-Quellcode:

function GetWindowLong(hWnd: HWND; nIndex: Integer): NativeInt;
begin
  Result := GetWindowLongPtr(hWnd, nIndex);
end;
function GetWindowLongA(hWnd: HWND; nIndex: Integer): NativeInt;
begin
  Result := GetWindowLongPtr(hWnd, nIndex);
end;
function GetWindowLongW(hWnd: HWND; nIndex: Integer): NativeInt;
begin
  Result := GetWindowLongPtr(hWnd, nIndex);
end;

{$IFDEF WIN64}
function GetWindowLongPtr; external user32 name 'GetWindowLongPtrW';
function GetWindowLongPtrA; external user32 name 'GetWindowLongPtrA';
function GetWindowLongPtrW; external user32 name 'GetWindowLongPtrW';
...
{$ELSE}
function GetWindowLongPtr; external user32 name 'GetWindowLongW';
function GetWindowLongPtrA; external user32 name 'GetWindowLongA';
function GetWindowLongPtrW; external user32 name 'GetWindowLongW';
...
{$ENDIF}

Aber wer erkennt den Fehler?

[Delphi-Laie]

Müßte es nicht so:

Delphi-Quellcode:

function GetWindowLong(hWnd: HWND; nIndex: Integer): NativeInt;
begin
  Result := GetWindowLongPtr(hWnd, nIndex);
end;
function GetWindowLongA(hWnd: HWND; nIndex: Integer): NativeInt;
begin
  Result := GetWindowLongPtrA(hWnd, nIndex);
end;
function GetWindowLongW(hWnd: HWND; nIndex: Integer): NativeInt;
begin
  Result := GetWindowLongPtrW(hWnd, nIndex);
end;

{$IFDEF WIN64}
function GetWindowLongPtr; external user32 name 'GetWindowLongPtrW';
function GetWindowLongPtrA; external user32 name 'GetWindowLongPtrA';
function GetWindowLongPtrW; external user32 name 'GetWindowLongPtrW';
...
{$ELSE}
function GetWindowLongPtr; external user32 name 'GetWindowLongW';
function GetWindowLongPtrA; external user32 name 'GetWindowLongA';
function GetWindowLongPtrW; external user32 name 'GetWindowLongW';
...
{$ENDIF}

lauten?