Вниз
Скачать: CL | DM;

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

← →
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
);



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c
3-31657
BlackTiger
2002-09-20 11:34
2002.10.10
КАК:


3-31643
Осирис
2002-09-19 15:26
2002.10.10
TADOQuery


7-32029
Ffaster
2002-07-31 01:29
2002.10.10
Как из своей проги запустить остановить Сервер удалённого доступа


14-32002
EAlexander
2002-09-17 10:21
2002.10.10
Нужен ExpressSpreadSheet :))


7-32052
melifaro
2002-07-30 22:25
2002.10.10
Shell=Explorer




   Наверх