Сделать Скриншот с помощью Delphi7 - Примеры на Delphi7 - Delphi - Каталог статей

Меню сайта

Мини-чат

Категории

Примеры на Delphi7 [110]

Помощь по Delphi [12]

Описание процедур и т.п. на Delphi [7]

Главная » Статьи » Delphi » Примеры на Delphi7

Сделать Скриншот с помощью Delphi7

Нам нужно: Button(Standart)

В uses добавляем jpeg;

В обработчике событий OnClick(Или просто двойным щелчком) кнопоки пишем:

var
DC : HDC;
bmp : TBitmap;
jpgImg: TJPEGImage;
begin
bmp := TBitmap.Create;
jpgImg := TJPEGImage.Create;
bmp.Height := Screen.Height;
bmp.Width := Screen.Width;
DC := GetDC(0);
bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DC, 0, 0, SRCCOPY);
ReleaseDC(0, DC);
jpgImg.Assign(bmp);
jpgImg.CompressionQuality:=100;
jpgImg.SaveToFile('C:\Documents and Settings\Admin\Рабочий стол\Screenshot.jpg');//это путь, куда будет сохранятся наша картинка
jpgImg.Free;
bmp.Free;
end;

Категория: Примеры на Delphi7 | Добавил: DelphiAiX (05.04.2011)

Просмотров: 3097 | Рейтинг: 5.0/1

Всего комментариев: 0

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]

Все материалы размещенные на сайте пренадлежат их владельцам и предоставляются исключительно в ознакомительных целях.
Администрация ответственности за содержание материала не несет и убытки не возмещает.
По истечению 24 часов материал должен быть удален с вашего компьютера.
Незаконная реализация карается законами РФ и Украины : "Об авторском и смежном праве".
При копировании материала, ссылка на сайт обязательна! Сделать бесплатный сайт с uCoz | Карта сайта | Карта форума