Ford Focus / Focus II / Focus ST / Focus С Max с 2002 г.

function GetDisplayColors : integer; var tHDC : hdc; begin  tHDC:=GetDC(0);  result:=GetDeviceCaps(tHDC, 12)* GetDeviceCaps(tHDC, 14);  ReleaseDC(0, tHDC); end; Копирование экрана unit ScrnCap; interface uses WinTypes, WinProcs, Forms, Classes, Graphics, Controls; { Копирует прямоугольную область экрана } function CaptureScreenRect(ARect : TRect) : TBitmap; { Копирование всего экрана } function CaptureScreen : TBitmap; { Копирование клиентской области формы или элемента } function CaptureClientImage(Control : TControl) : TBitmap; { Копирование всей формы элемента } function CaptureControlImage(Control : TControl) : TBitmap; {====================================================} implementation function GetSystemPalette : HPalette; var  PaletteSize : integer;  LogSize : integer;  LogPalette : PLogPalette;  DC : HDC;  Focus : HWND; begin  result:=0;  Focus:=GetFocus;  DC:=GetDC(Focus);  try   PaletteSize:=GetDeviceCaps(DC, SIZEPALETTE);   LogSize:=SizeOf(TLogPalette)+(PaletteSize-1)*SizeOf(TPaletteEntry);   GetMem(LogPalette, ...»