Determinarea marimii ecranului fara bara de aplicatii (taskbar) si redimensionarea unei forme la un sfert din aceasta marime, asezata in coltul din dreapta jos al ecranului.
var Rec : TRect;
begin
SystemParametersInfo(SPI_GETWORKAREA, 0, @Rec, 0); {determinarea marimii}
Rec.Left := Rec.Right div 2; {calcule pentru aflarea sfertului}
Rec.Top := Rec.Bottom div 2;
Form1.BoundsRect := Rec; {redimensionarea / repozitionarea formei}
end;
Bafta
