Скачать: CL | DM;

Скриншот десктопа   Найти похожие ветки 

← →
Velocity   (2002-01-25 22:33) [0]

Знаю, тема старая, но! Надо бы тоже самое но без использования TBitmap.Canvas, т.е. чисто апишными ф-циями. Пишу такое...

DC:HDC;
BitMap:HBITMAP;

DC:=GetWindowDC(GetDesktopWindow);
BitMap:=CreateCompatibleBitmap(DC,GetSystemMetrics(SM_CYSCREEN),
GetSystemMetrics(SM_CXSCREEN));
BitBlt(BitMap,0,0,GetSystemMetrics(SM_CXSCREEN),GetSystemMetrics(SM_CYSCREEN),DC,0,0,SRCCOPY);
ReleaseDC(GetDesktopWindow,DC);

...и понять не могу - то ли правильным путем иду, то ли нет... в общем если все же грамотно сохранил скриншот десктопа (?), есть его хэндл - как теперь всю эту бяку в файл запихнуть? или куда-нить в память?

---

← →
Velocity   (2002-01-28 06:42) [1]

Что, никто не знает? Хммм...

---

← →
MrAngel ©   (2002-01-28 16:51) [2]

Так есть совет. Правда здесь будет задействован класс TBITMAP/
Замени эту строку:
BitBlt(BitMap,0,0,GetSystemMetrics(SM_CXSCREEN),GetSystemMetrics(SM_CYSCREEN),DC,0,0,SRCCOPY);

на
var BitMap:TBitmap; //а это дело сначало создай

BitBlt(BitMap.Canvas.Handle,0,0,GetSystemMetrics(SM_CXSCREEN),GetSystemMetrics(SM_CYSCREEN),DC,0,0,SRCCOPY);

Потом удали вот это:

BitMap:=CreateCompatibleBitmap(DC,GetSystemMetrics(SM_CYSCREEN),
GetSystemMetrics(SM_CXSCREEN));

---

← →
serjant   (2002-01-28 17:11) [3]

Функция keyb_event(vk_snapshot,1,0,0).1-фотографируем окно, 0-фотографируем десктоп.После ее вызова картинка у тебя в буфере.
Я такую прогу недавно писал, если заинтересуют подробности- пиши.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c