Registriert seit: 25. Nov 2005
1.474 Beiträge
Delphi 10.1 Berlin Starter
|
AW: GetWindowLong versus GetWindowLongPtr
3. Mai 2012, 22:47
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?
|
|
Zitat
|