Курсовая работа: Мониторинг ОС

if (GetDeviceCaps(Canvas.Handle, RASTERCAPS) and

RC_GDI20_OUTPUT)=RC_GDI20_OUTPUT then

FormDisplay.Memo1.Lines.Add('Поддержка Windows 2.0 возможности');

if (GetDeviceCaps(Canvas.Handle, RASTERCAPS) and

RC_PALETTE)=RC_PALETTE then

FormDisplay.Memo1.Lines.Add('Основано на палитке');

if (GetDeviceCaps(Canvas.Handle, RASTERCAPS) and

RC_SCALING)=RC_SCALING then

FormDisplay.Memo1.Lines.Add('Поддержка масштабирования');

if (GetDeviceCaps(Canvas.Handle, RASTERCAPS) and

RC_STRETCHBLT)=RC_STRETCHBLT then

FormDisplay.Memo1.Lines.Add('Поддержка StretchBlt');

if (GetDeviceCaps(Canvas.Handle, RASTERCAPS) and

RC_STRETCHDIB)=RC_STRETCHDIB then

FormDisplay.Memo1.Lines.Add('Поддержка StretchDIBits');

if GetDeviceCaps(Canvas.Handle, CURVECAPS)=CC_NONE then

FormDisplay.Memo1.Lines.Add('Устройство не поддерживает кривые')

else

begin

if (GetDeviceCaps(Canvas.Handle, CURVECAPS) and

CC_CIRCLES)=CC_CIRCLES then

FormDisplay.Memo1.Lines.Add('Поддержка Cirles');

if (GetDeviceCaps(Canvas.Handle, CURVECAPS) and

CC_PIE)=CC_PIE then

FormDisplay.Memo1.Lines.Add('Поддержка Pie Wedges');

if (GetDeviceCaps(Canvas.Handle, CURVECAPS) and

CC_CHORD)=CC_CHORD then

FormDisplay.Memo1.Lines.Add('Поддержка Chords');

if (GetDeviceCaps(Canvas.Handle, CURVECAPS) and