Delphi для всех

Определить размера рабочей области Desktop'а

Иногда важно знать, какую часть экрана можно занимать, не перекрывая тем самым такие окна, как TASKBAR (панель задач). Эта программа разворачивает окно на всю рабочую область Desktop'а.

procedure TForm1.Button1Click(Sender: TObject);
var
r : TRect;
begin
SystemParametersInfo(SPI_GETWORKAREA, 0, Addr(r), 0);
Form1.Left := r.Left;
Form1.Top := r.Top;
Form1.Width := r.Right - r.Left;
Form1.Height := r.Bottom - r.Top;
end;

Хостинг от uCoz