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?