Wie komme ich an das RECT für SystemParametersInfo

[Akut-Programming]

Hi Leute!!

Ich hab da mal wieder n Problem... unzwar will ich n Tool so in der Art von ner Toolbar schreiben. Die Funktion wie man die Arbeitsfläche von Windows vergibt hab ich ja schon in der Windows SDK gefunden. Es funktioniert nur nicht so wie ich es mir vorstelle..die Anwendungen sollen an meiner "andocken" wenn sie maximiert werden. Nur bei mir ist es so, das wenn ich die Arbeitsfläche mit meinem Code verkleinere, meine Anwendung dann auch an ner anderen Position angezeigt wird.

Meine Frage nun.. wie muss ich meinen Code umstellen, damit meine Anwendung auf der Taskleiste anliegt, aber alle anderen Anwendungen an meiner dann andocken, wenn sie maximiert werden!?

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  rect: TRect;
begin
  Form1.Constraints.MaxHeight := 30;
  Form1.Constraints.MinHeight := 30;
  Form1.Constraints.MinWidth := Screen.Width;
  //Form1.Top:=Form1.Top+60;

  rect.Left := Screen.WorkAreaLeft;
  rect.Top := Screen.WorkAreaTop;
  rect.Right := Screen.WorkAreaWidth;
  rect.Bottom := Screen.WorkAreaHeight;
  SystemParametersInfo(SPI_SETWORKAREA,Screen.Height,@rect,SPIF_UPDATEINIFILE);
end;