Сделать скриншот

[Kronos913]

Задача такая: чтобы нажатием на кнопку делался скриншот экрана
При чем, если подключено 2 и больше экранов, чтобы была возможность сделать скриншот какого-то конкретного экрана

[macomics]

display_left_top_corner_x := 0; display_left_top_corner_y := 0; display_width := GetSystemMetrics(SM_CXSCREEN); display_height := GetSystemMetrics(SM_CYSCREEN); {для экрана по умолчанию}
BitBlt(bitmap_dc, 0, 0, display_width, display_height, GetDC(HWND_DESKTOP), display_left_top_corner_x, display_left_top_corner_y, SRCCOPY);

см. также DEVMODE.

[Kronos913]

Код, который получился

var
  bmp:TBitMap;
  x, y: Integer;

  x:=Screen.Width;
  y:=Screen.Height;

  bmp.Width := x;
  bmp.Height := y;
  BitBlt(bmp.Canvas.Handle, 0,0, x, y, GetDC(0), 0,0,SRCCOPY);

Вопрос: если у меня подключено 2 экрана, как получить скриншот второго из них? Этот код делает скриншот первого только

[macomics]

Сообщение от macomics

см. также DEVMODE.

значит не смотрели

[Kronos913]

Сообщение от macomics

значит не смотрели

Смотрел, но не понял особо ничего

[macomics]

The DEVMODE data structure contains information about the initialization and environment of a printer or a display device.

Перевожу Структура данных DEVMODE содержит информацию о инициализации и переменных окружения принтеров или экранов.
Далее внизу есть ссылки на описания функций, которые работают с этой структурой

EnumDisplaySettingsA, EnumDisplayDevicesA

Первая позволяет получить эту структуру для определенного экрана в системе по его имени, вторая функция перечисляет все имена экранов в системе.
Из структуры DEVMODE вам нужно 3 значения: POINTL dmPosition; определяет X, Y для BitBlt (7 и 8 параметры)
DWORD dmPelsWidth; определяет Width для BitBlt (4 параметр)
DWORD dmPelsHeight; определяет Height для BitBlt (5 параметр).