Delphi-Quellcode:
var rect: TRect;
rect.bottom:= 720;
rect.top:= 0;
rect.left:= 0;
rect.right:= 540;
AdjustWindowRectEx(rect, WS_OVERLAPPEDWINDOW, False, 0);
Mit den Werten für dwStyle und dwExStyle musst du rumspielen bzw. lesen, welche Konstanten nötig sind (mit OR verknüpfen!).
Wie die damit entstandenen Werte zu benutzen sind, sollte klar sein:
Delphi-Quellcode:
HWND := FindWindow(nil, PChar(Edit1.Text));
SetWindowPos(HWND,HWND_NOTOPMOST,0,0,rect.right - rect.left, rect.bottom - rect.top,SWP_NOMOVE);
Übrigens solltest du mehr auf
Exception-Handling achten, denn ein StrToInt() kann bei Eingabe von Nicht-Ziffern eine solche werfen. Beachte außerdem, dass eben dieses
Exception-Handling in meinem Beispiel der Einfachheit halber ebenfalls fehlt.
Ich verstehe allerdings den Sinn hinter deinem Code noch nicht ganz. Du willst das Attribut OnTop eines fremdes Fenster setzen? Oder geht's dir um die Größe? Oder beides gleichzeitig? Wenn's nur um OnTop geht, dann setze doch die Werte für Width und Height auf 0.
MfG Dalai