[Delphi] 작업표시줄을 제외한 작업영역 구하기





오른쪽 하단에 팝업처럼 띄우기

var
  Rect: TRect;
begin

  // 작업표시줄을 제외 한 영역 구하기   
  SystemParametersInfo(SPI_GETWORKAREA, 0, Pointer(@Rect), 0);

  Fm_Banner := TFm_Banner.Create(Self);
  Fm_Banner.Left := Rect.Right - Fm_Banner.Width;
  Fm_Banner.Top := Rect.Bottom - Fm_Banner.Height;

end;