Re: Delphi 7. Print Screen(may be API)
От: MadVanger Украина  
Дата: 15.04.03 10:55
Оценка:
Здравствуйте, xfather, Вы писали:

X>Дело вот в чем — надо в програмно сделать принт скрин, и желательно в переменную TBitmap, так как в работе с буфером не сильно раздуплился.


я так делал:

/*Копіювання частини екрану( screenshot )*/

TCanvas * Kartinka = new TCanvas;
// получаем дескриптор экрана
HDC DC = GetDC(0);
 Kartinka->Handle  = DC;

// Image это типа твой TBitmap
 Image->Canvas->CopyMode = cmSrcCopy;
 Image->Picture = NULL;
 Image->Canvas->CopyRect( DstImgRctngl, Kartinka, SrcImgRctngl);

 ReleaseDC(0, DC);
 delete Kartinka;

/*End копіювання*/
... << RSDN@Home 1.0 beta 6a >>
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.