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