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

FormDisplay.Memo1.Lines.Add('Количество пикселей на дюйм по горизонтали '+

IntToStr(GetDeviceCaps(Canvas.Handle, LOGPIXELSX)));

FormDisplay.Memo1.Lines.Add('Количество пикселей на дюйм по вертикали '+

IntToStr(GetDeviceCaps(Canvas.Handle, LOGPIXELSY)));

FormDisplay.Memo1.Lines.Add('Количество бит на пиксель '+

IntToStr(GetDeviceCaps(Canvas.Handle, BITSPIXEL)));

FormDisplay.Memo1.Lines.Add('Количество цветовых плоскостей '+

IntToStr(GetDeviceCaps(Canvas.Handle, PLANES)));

FormDisplay.Memo1.Lines.Add('Количество цветов в системной палитре '+

IntToStr(GetDeviceCaps(Canvas.Handle, SIZEPALETTE)));

FormDisplay.Memo1.Lines.Add('Вертискальная частота развёртки '+

IntToStr(GetDeviceCaps(Canvas.Handle, VREFRESH)));

if (GetDeviceCaps(Canvas.Handle, RASTERCAPS) and

RC_BANDING)=RC_BANDING then

FormDisplay.Memo1.Lines.Add('Требуеться сегментация');

if (GetDeviceCaps(Canvas.Handle, RASTERCAPS) and

RC_BITBLT)=RC_BITBLT then

FormDisplay.Memo1.Lines.Add('Может передавать Bitmaps');

if (GetDeviceCaps(Canvas.Handle, RASTERCAPS) and

RC_BITMAP64)=RC_BITMAP64 then

FormDisplay.Memo1.Lines.Add('Поддержка Bitmaps > 64K');

if (GetDeviceCaps(Canvas.Handle, RASTERCAPS) and

RC_DI_BITMAP)=RC_DI_BITMAP then

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

if (GetDeviceCaps(Canvas.Handle, RASTERCAPS) and

RC_DIBTODEV)=RC_DIBTODEV then

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

if (GetDeviceCaps(Canvas.Handle, RASTERCAPS) and

RC_FLOODFILL)=RC_FLOODFILL then