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