Как сделать скриншот экрана?
BitBlt(GetDC(Form1->Image1->Picture->Bitmap->Handle),0,0,1023,767,GetDC(0),0,0,SRCCOPY);
Цитата:
Originally posted by GLAGOLA
Уважаймые пионеры......HELP!!!.....очень надо сделать программно скриншот..делал я это в Delphi там все получилось, а тут...нифига...возможно гдето ошибка в коде...погите..плиз...
BitBlt(GetDC(Form1->Image1->Picture->Bitmap->Handle),0,0,1023,767,GetDC(0),0,0,SRCCOPY);
Уважаймые пионеры......HELP!!!.....очень надо сделать программно скриншот..делал я это в Delphi там все получилось, а тут...нифига...возможно гдето ошибка в коде...погите..плиз...
BitBlt(GetDC(Form1->Image1->Picture->Bitmap->Handle),0,0,1023,767,GetDC(0),0,0,SRCCOPY);
Вот тебе пример программы. Выход по CTRL+ALT+DEL ищи в процессах.
hDC = GetDC(NULL)
затем hComp = CreateCompstibleDC(hDC)
hMb = CreateCompatibelBitmap(hDC)
hBm2 = CreateCompatibelBitmap(hComp)
SelectObject(hComp, hBm2)
StretchBlt() // переносим биты из рDc в hComp
а потом, если надо вывести на экран, переносим их в свой обычный девайс контест и рисуем