Копирование экрана

← →
Chw (2002-09-14 16:15) [0]

Подскажите пожалуйста плиз как ПРОСТО скопировать весь экран.
И можно ли управлять цветное/ч\б, разрешение, и т.д.

← →
Oleg_Gashev (2002-09-14 16:48) [1]

> Подскажите пожалуйста плиз как ПРОСТО скопировать весь экран.

Alt + Print Screen.

> И можно ли управлять цветное/ч\б, разрешение, и т.д.

В редакторе.

← →
Ajax (2002-09-14 17:57) [2]

Если ты про копирование экрана из своей проги то делай так:
1. Кидай на форму TImage
2. Добавляй такой код в FormCreate

Var
Desktop :TCanvas ;
begin
Desktop:=TCanvas.Create;
Desktop.Handle:=GetDC(Hwnd_Desktop);
form1.Left:=0;
form1.top:=0;
form1.Width:=Screen.Width;
form1.Height:=Screen.Height;
Image1.Canvas.CopyRect(Image1.Canvas.ClipRect,Desktop, Desktop.ClipRect);

Цветное/черно-белое изображение можно сделать, а вот разрешение поменять IMHO нельзя так как у экрана всегда 72 dpi.

← →
NetBreaker666 (2002-09-14 21:40) [3]

VCL - SUCKS !
BOOL BitBlt(

HDC hdcDest, // handle to destination device context
int nXDest, // x-coordinate of destination rectangle"s upper-left corner
int nYDest, // y-coordinate of destination rectangle"s upper-left corner
int nWidth, // width of destination rectangle
int nHeight, // height of destination rectangle
HDC hdcSrc, // handle to source device context
int nXSrc, // x-coordinate of source rectangle"s upper-left corner
int nYSrc, // y-coordinate of source rectangle"s upper-left corner
DWORD dwRop // raster operation code
);

Копирование экрана Найти похожие ветки