Delphi-Quellcode:
// Bitte kompiliere mich in 32-Bit und in 64-Bit und führe mich aus.
program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils,
Winapi.Windows;
begin
try
Writeln('
Size of a HWND: ', SizeOf(HWND), '
bytes!');
except
on E:
Exception do
Writeln(E.ClassName, '
: ', E.
Message);
end;
Readln;
end.
Das Problem wird sein, das ParentHandle: HWND ein
Handle auf ein Fenster ist und damit eine Art Pointer, dessen Größe sich je nach Bittigkeit von vier auf acht Bytes ändert.
Wenn du Einfluß hast auf das Record, versuche ParentHandle: HWND ans Ende zu setzen.