Подписаться на RSS рассылку
Главная » Статьи по 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;

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

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

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


Имя *:
Email:


Код *:

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

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

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

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта