Сохранение картинки

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

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