Как определить размер рабочего стола без Т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; 
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (30 оценок, среднее: 4,93 из 5)
Загрузка...
Добавить комментарий