Форум: "Основная";
Текущий архив: 2002.05.20;
Скачать: [xml.tar.bz2];
ВнизСохранение картинки Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2002.05.20;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c