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

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

← →
Belov ©   (2002-05-06 17:15) [0]

Привет всем !
Как программно получить скриншот активного окна

---

← →
Atrem   (2002-05-06 20:19) [1]

А активное окно своей программы или скриншот любого активного окна ?

---

← →
Song ©   (2002-05-06 20:37) [2]

Много путей реализации.. Один из них:
Послать Alt+PrintScreen

---

← →
Dy-Ty   (2002-05-07 08:03) [3]

Вроде бы должно получиться...

procedure TFMain.CaptureScreen;
var DeskTopDC : HDС;
DeskTopCanvas : TCanvas;
Image3 : TImage;
begin
Image3 := TImage.Create(Self);
Image3.Canvas.copymode := cmSrcCopy;
DeskTopDC := GetWindowDC(<дескриптор окна>);
DeskTopCanvas := TCanvas.Create;
DeskTopCanvas.Handle := DeskTopDC;
Image3.Canvas.CopyRect(Image3.Canvas.ClipRect, DeskTopCanvas, DeskTopCanvas.ClipRect);
ReleaseDC(<дескриптор окна>,DeskTopDC);
.....
DeskTopCanvas.Free;
Image3.Free;
end;

удачи ...

---

← →
Belov ©   (2002-05-07 09:32) [4]

>Artem нет, скриншот любого активного окна

>Dy-Ty - спасибо, сейчас попробую

---

← →
Belov ©   (2002-05-07 10:02) [5]

>Dy-Ty
что-то криво работает - возвращает всегда пустой белый квадрат Малевича :-)

---

← →
Song ©   (2002-05-07 10:04) [6]

http://pascal.sources.ru/cgi-bin/forum/YaBB.cgi?board=delphi;action=display;num=1019768770

---

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

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



Память: 0.46 MB
Время: 0.01 c