Delphi Скриншот Экрана

Delphi позволяет делать скриншоты экрана и сохранять их в изображениях различных форматов.

Для этого используются функции API из модуля Windows:

procedure CaptureScreen(const Filename: string);
var
  Bitmap: TBitmap;
  ScreenDC: HDC;
begin
  Bitmap := TBitmap.Create;
  try
    ScreenDC := GetDC(0);
    try
      Bitmap.Width := Screen.Width;
      Bitmap.Height := Screen.Height;
      BitBlt(Bitmap.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, ScreenDC, 0, 0, SRCCOPY);
    finally
      ReleaseDC(0, ScreenDC);
    end;
    Bitmap.SaveToFile(Filename);
  finally
    Bitmap.Free;
  end;
end;

Пример использования:

CaptureScreen('screenshot.bmp');

Этот код сохранит скриншот экрана в файл 'screenshot.bmp' в папке с исполняемым файлом.

Tutorial: Screenshot on Form3D (Delphi XE5)

Урок Delphi. Делаем скрин экрана

Вебинар \

Построение графиков функции в Delphi часть 1

Проверка коррекции форсунок 1.5 dCi Renault с помощью EcuTweaker

Delphi 7 - Скриншот экрана

DELPHI СКРИНШОТ ЭКРАНА