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.
Ja habe ich wurde ja von mir Programmiert
Super funktioniert!
Wäre ich nie drauf gekommen.
Muß mal testen ob es funktioniert wenn ich anstelle HWND
Long_Ptr verwende als Type. btw.
LongInt
Oder ist dass das gleiche Problem?
Danke!