Source position: lcltype.pp line 1112
type tagMonitorInfoEx = record
cbSize: DWord;
rcMonitor: TRect;
rcWork: TRect;
dwFlags: DWord;
szDevice: array [0..CCHDEVICENAME-1] of Char;
end;