Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
1-64648
Rikoshet
2002-05-03 17:25
2002.05.20
Как в Richedit-е сделать всю строку, на которой стоит каретка, ск


6-64763
kvcomp
2002-03-05 13:19
2002.05.20
Проблема с TWebBrowser.


3-64544
Glonia Zbanov
2002-04-24 11:05
2002.05.20
поиск MSSQL


14-64836
Алексей Петров
2002-04-12 11:13
2002.05.20
Соцопрос: Есть ли на вашем ПК шара IPC$?


1-64737
Programmer1
2002-05-07 10:37
2002.05.20
Как перетащить форму?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский