Главная » Статьи по Delphi » Монитор и экран » Как создать скриншот

Как создать скриншот

Автор:

Как же программно сделать снимок экрана и сохранить его на диск? Очень просто:

procedure ScreenShot(PathToSave: string);
begin
  with TBitmap.Create do
  begin
    Width := Screen.Width; // указываем размеры
    Height := Screen.Height;

    BitBlt(Canvas.Handle, 0, 0, Width, Height,
        GetDC(GetDesktopWindow), 0, 0, SRCCOPY);

    SaveToFile(PathToSave); // сохраняем на диск
    Free; // освобождаем
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 ScreenShot('C:\Screen.bmp');
end;

Просмотров: 9148

Обсудить на форуме

0   Спам (20.09.2009) 1. Колибри Здравствуйте! У меня вопрос такой. Раньше могла сделать скриншот, а теперь не могу. При заходе в правку не выделена строка " вставить" В чем проблема? С буфером обмена что то? Ответ: Т.е вы жмете кнопку Print Screen на клавиатуре, а в буфере обмена ничего не появляется? И везде это так? Может быть что-нибудь блокирует? А вообще попробуйте текст скопировать в буфер обмена. Тут сложно сказать что может быть.

---

Имя *:
Email:
Все смайлы
Код *:

Copyright © 2008 - 2018 Программирование на Delphi для начинающих и не только.

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам.

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации.