Текущий архив: 2002.09.09;
Скачать: CL | DM;

Вниз

Как сделать программно скриншот всего экрана   Найти похожие ветки 

← →
star   (2002-07-08 12:46) [0]

Чтобы со свеми окошками, открытыми менюшками и т.п. ?

---

← →
ricks   (2002-07-08 12:52) [1]

попробуй вот так:

var DC:HDC;
BM:TBitmap;
begin
BM:=TBitmap.Create;
DC:=GetDC(0);
BM.Handle:=CreateCompatibilBitmap(DC, ширина экрана, высота);
BitBlt(BM.Canvas.Handle, 0, 0, Width, Height, DC, 0, 0, SRCCOPY);
ReleaseDC(0, DC);
Bm.SaveToFile;
....
BM.Free;
end;


---

← →
star   (2002-07-08 12:55) [2]

Спасибо, попробую ...

---

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

Текущий архив: 2002.09.09;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.006 c