Screen.WorkArea verändern

[marabu]

Eine Möglichkeit wäre die:

Delphi-Quellcode:

var
  r: TRect;
begin
  r := Screen.WorkAreaRect;
  r.Bottom := r.Bottom - 50;
  SystemParametersInfo(SPI_SETWORKAREA, 0, @r, SPIF_SENDCHANGE);
end;

Grüße vom marabu