Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];

Вниз

Как быстрее всего зделать скриншорт   Найти похожие ветки 

← →
Чайник Д   (2003-10-25 23:06) [0]

Как быстрее всего зделать скриншорт.Знаю есть такое BitBLT, но как с ним работать? Буду очень благодарен.

---

← →
wicked   (2003-10-25 23:15) [1]

var bitmap: TBitmap;
dc: HDC;
w, h: integer;
begin
try
bitmap := TBitmap.Create;
w := GetSystemMetrics(SM_CXSCREEN); // ширина экрана
h := GetSystemMetrics(SM_CYSCREEN); // высота экрана
bitmap.Width := w;
bitmap.Height := h;
dc := GetDC(0);
BitBlt(bitmap.Canvas.Handle, 0, 0, w, h, dc, 0, 0, SRCCOPY);
....
{ сохраняем скриншот }
....
finally
if dc <> 0 then ReleaseDC(0, dc);
bitmap.Free;
end;
end;

---

← →
Чайник Д   (2003-10-25 23:22) [2]

Спасибо

---

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

Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.037 c