gettopwindow (0) funktioniert nicht richtig!

[shmia]

Was ist DAS denn: zuerst Speicher auf 0 setzen und dann erst Speicher anfordern ??
Das kann doch nicht gutgehen.

Delphi-Quellcode:

ZeroMemory(@WPlacement,SizeOf(WPlacement));
GetMem(WPlacement,SizeOf(TWINDOWPLACEMENT));
WPlacement^.Length:=SizeOf(TWINDOWPLACEMENT);
if GetWindowPlacement(WndHandle,WPlacement) then

Ein lokale Variable hätt's doch auch getan:

Delphi-Quellcode:

var
   WPlacement : TWINDOWPLACEMENT;
begin
   WPlacement.Length =:SizeOf(TWINDOWPLACEMENT);
   if GetWindowPlacement(WndHandle, @WPlacement) then
end;