Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.20;
Скачать: 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 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.01 c
6-64771
belobadgo
2002-03-04 11:52
2002.05.20
Отправить параметр на ASP сервер.


1-64656
VJar
2002-05-08 15:12
2002.05.20
Можно ли средствами Delphi узнать цвет


3-64523
Саша
2002-04-23 13:55
2002.05.20
числа с рубликами в dbgrid e


4-64865
Vilux
2002-03-19 05:44
2002.05.20
Активное окно


1-64713
matvey
2002-05-04 18:57
2002.05.20
Курсовая горит!!!!!!