Ich habe folgenden Code zum Andocken eines Fensters (Screensnap).
Delphi-Quellcode:
function WndProc(WndHWND: HWnd; uMsg: UInt; wParam: WParam; lParam: LParam): LResult; stdcall;
const
DISTANCE = 20;
var
MyWndPos: PWindowPos;
WorkAreaRect: TRect;
begin
Result := 0;
case uMsg of
WM_WINDOWPOSCHANGING: begin
// Nötige Informationen holen
SystemParametersInfo(SPI_GETWORKAREA, 0, @WorkAreaRect, 0);
MyWndPos := PWINDOWPOS(lParam);
// Oben und Unten
if (MyWndPos.y <= DISTANCE) and
(MyWndPos.y >= -DISTANCE) then
MyWndPos.y := 0;
if (MyWndPos.y + MyWndPos.cy > (WorkAreaRect.Bottom - DISTANCE)) and
(MyWndPos.y + MyWndPos.cy < (WorkAreaRect.Bottom + DISTANCE)) then
MyWndPos.y := WorkAreaRect.Bottom - MyWndPos.cy;
// Links und Rechts
if (MyWndPos.x <= DISTANCE) and
(MyWndPos.x >= -DISTANCE) then
MyWndPos.x := 0;
if (MyWndPos.x + MyWndPos.cx > (WorkAreaRect.Right - DISTANCE)) and
(MyWndPos.x + MyWndPos.cx < (WorkAreaRect.Right + DISTANCE)) then
MyWndPos.x := WorkAreaRect.Right - MyWndPos.cx;
end;
WM_DESTROY: begin
PostQuitMessage(0);
end;
else Result := DefWindowProc(WndHWND, uMsg, wParam, lParam);
end;
end;
Ich würde nun gerne diese Funktion auf ein beliebiges Fenster dessen
Handle ich habe anweden.
Leider scheitere ich an den Parametern.
Das
Handle ist klar, aber was
uMsg: UInt; wParam: WParam; lParam: LParam
tun weiß ich nicht!
Hoffe ihr könnt mir helfen.