Помощь - Поиск - Пользователи - Календарь
Полная версия: Снимок экрана
Форум «Всё о Паскале» > Delphi, Assembler и другие языки. > Delphi
Steff
Подскажите, кому не трудно, как сделать снимок экрана и преобразовать
его в объект типа TBITMAP?
xds
function CreateScreenshot: TBitmap;
var
  dw: HWND;
  dc: HDC;
begin
  Result := TBitmap.Create;
  Result.Width := Screen.Width;
  Result.Height := Screen.Height;
  dw := GetDesktopWindow;
  dc := GetDC(dw);
  BitBlt(Result.Canvas.Handle, 0, 0, Result.Width, Result.Height,
    dc, 0, 0, SRCCOPY);
  ReleaseDC(dw, dc);
end;
CJ
Тема закрыта. Все довольны.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.