Обновлено: 01 декабря, 2018

Как определить размер рабочего стола без Тaskbar’а в Delphi?

procedure TForm1.Button1Click(Sender: TObject); 
var
  r : TRect; 
begin
  SystemParametersInfo(SPI_GETWORKAREA,0,@r,0); 
  Memo1.Lines.Add(IntToStr(r.Top)); 
  Memo1.Lines.Add(IntToStr(r.Left)); 
  Memo1.Lines.Add(IntToStr(r.Bottom)); 
  Memo1.Lines.Add(IntToStr(r.Right)); 
end; 

(30 оценок, среднее: 4,93 из 5)

Загрузка...