| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Сохранение картинки [D5, D6]
Belov © (2002-05-06 17:15:00)Привет всем !
Как программно получить скриншот активного окна
Song (2002-05-07 10:04:00) [1]http://pascal.sources.ru/cgi-bin/forum/YaBB.cgi?board=delphi;action=display;num=1019768770
Belov (2002-05-07 10:02:00) [2]>Dy-Ty
что-то криво работает - возвращает всегда пустой белый квадрат Малевича :-)
Belov (2002-05-07 09:32:00) [3]>Artem нет, скриншот любого активного окна
>Dy-Ty - спасибо, сейчас попробую
Dy-Ty (2002-05-07 08:03:00) [4]Вроде бы должно получиться...
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;
удачи ...
Song (2002-05-06 20:37:00) [5]Много путей реализации.. Один из них:
Послать Alt+PrintScreen
Atrem (2002-05-06 20:19:00) [6]А активное окно своей программы или скриншот любого активного окна ?
| |
