hmm jetzt bekomm ich aber ne Zugirffsverletzung..
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
rect: PRect;
begin
rect.Left := 100;
rect.Top := 100;
rect.Right := 200;
rect.Bottom := 200;
Form1.Constraints.MaxHeight := 30;
Form1.Constraints.MinHeight := 30;
Form1.Constraints.MinWidth := Screen.Width;
//SystemParametersInfoA();
//SystemParametersInfoW();
SystemParametersInfo(SPI_SETWORKAREA,Screen.Height - Form1.Constraints.MaxHeight,rect,SPIF_UPDATEINIFILE);
end;