Постановка задачи
Разработать программу, которая будет снимать и сохранять копию экрана.
Разработка формы
Создайте новый проект Delphi и измените заголовок формы (свойство Caption) на Screenshot. Чтобы пользователь не мог изменять размеры окна при работе с программой, следует присвоить свойству BorderStyle значение bsDialog. Для удобства создания копий экрана окно программы должно быть всегда размещено поверх остальных окон. Для этого присвоим свойству FormStyle значение fsStayOnTop. Мы можем себе это позволить: на самой копии экрана окно нашей программы отображено не будет, поскольку в момент создания копии оно будет временно сокрыто.
Для сохранения копии экрана нам понадобится компонент SaveDialog категории Dialogs. Разместите этот компонент на форме. Поскольку мы заранее знаем, что будем сохранять рисунок, то свойству SaveDialog1.Filter присвойте значение Рисунок|*.bmp|Все файлы|*.*. При сохранении файла у пользователя будет выбор: сохранять файл как рисунок (*.bmp) или как любой другой файл (*.*).
Разместите вдоль правого края формы четыре РєРЅРѕРїРєРё (компоненты Button категории Standard) СЃРѕ следующими заголовками (свойство Caption): Сделать СЃРЅРёРјРѕРє экрана, Показать СЃРЅРёРјРѕРє, Очистить Рё Сохранить. Также нам потребуется компонент, который будет отображать полученную РєРѕРїРёСЋ экрана. Для этих целей РјС‹ будем использовать компонент Image категории Additional. Рзмените его РёРјСЏ (свойство Name) РЅР° Screen1, Р° свойству Proportional РїСЂРёСЃРІРѕРёРј значение True.
На этом разработка формы завершена. Полученный результат должен примерно соответствовать рис. 4.1.
Рис. 4.1. Форма для создания копий экрана
Разработка программного кода
Для начала объявим все переменные, которыми будем пользоваться в программе:
var
 Form1: TForm1; //главная форма
 ВМР1 :Graphics.ТВitmap; //для работы с рисунками (*.bmp)
 DC1: HDC; //простое поле для графики
В Image1:TImage;
Самое главное событие в программе — это нажатие кнопки Сделать снимок экрана. Создадим обработчик этого события:
procedure TForm1.Button1Click(Sender: TObject);
begin
 Form1.Visible := False; //прячем форму
 Sleep(15) ; //пауза 15 мс
В BMP1:= Graphics.TBitmap.Create;
 //задаем размеры рисунка такие же как размеры экрана
В Р’РњР 1.Height:= Screen.Height;
В Р’РњР 1.Width:= Screen.Width;
В DC1:=GetDC(0);
 //Делаем копию экрана
В BitBlt(BMP1.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DC1, 0, 0, SRCCOPY);
 Form1.Visible:= True; //восстанавливаем окно программы
В Image1:= TImage.Create(nil);
В BMP1.IgnorePalette:= True;
В Image1.Picture.Assign(BMP1);
 ВМР1.SaveToFile('с:\1.bmp'); //сохраняем снимок в файл 1.bmp на диске С:\
end;
Перед тем как сделать снимок экрана, мы прячем окно программы, делаем паузу в 15 мс и задаем размеры будущего рисунка. После этого делаем снимок экрана и сохраняем его в файл 1.bmp, который находится на диске C:\.
По нажатию кнопки Показать рисунок выполняем следующий код:
procedure TForm1.Button4Click(Sender: TObject);
begin
 Screen1.Show; // делаем рисунок видимым
 if FileExists('с:\1.bmp') then //если рисунок существует,
 Screen1.Picture.LoadFromFile('c:\1.bmp'); //загружаем его
end;
По нажатию кнопки Очистить мы должны скрывать рисунок и удалять его с диска:
procedure TForm1.Button3Click(sender: TObject);
begin
 //удаляем рисунок с диска
В if FileExists('СЃ:\1.bmp') then DeleteFile('РЎ:\1.bmp');
 Screen1.Hide; //скрываем рисунок
end;
Для сохранения рисунка будем использовать диалоговое окно. Код нажатия кнопки Сохранить:
procedure TForm1.Button2Click(Sender: TObject);
begin
В if SaveDialog1.Execute then
 BMP1.SaveToFile(SaveDialog1.FileName) //сохраняем рисунок
 else ShowMessage('Файл не был сохранен!');
end;
Здесь мы проверяем, выбрал ли пользователь место сохранения файла. Если да, то сохраняем рисунок по указанному расположению.
Откомпилируем и запустим программу на выполнение (результат — на рис. 4.2).
Рис. 4.2. Программа ScreenShot в действии
Полный исходный код модуля
Полный исходный код модуля программы ScreenShot представлен в листинге 4.1.
Листинг 4.1. Модуль программы ScreenShot
unit Unit1;
interface
uses
В Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Registry, WinProcs, jpeg;
type TForm1 = class(TForm)
В Button1: TButton;
В Button2: TButton;
В Screen1: TImage;
В SaveDialog1: TSaveDialog;
В Button3: TButton;
В Button4: TButton;
В procedure Button1Click(Sender: TObject);
В procedure Button2Click(Sender: TObject);
В procedure Button3Click(Sender: TObject);
В procedure Button4Click(Sender: TObject);
private
В { Private declarations }
public
В { Public declarations }
end;
var
 Form1: TForm1; //главная форма
 ВМР1: Graphics.TBitmap; //для работы с рисунками (* .bmp)
 DC1: HDC; //простое поле для графики
В Image1: TImage;
implementation
{$R *.dfm}
procedure TForm1.ButtonlClick(Sender: TObject);
begin
 Form1.Visible:= False; //прячем форму
 Sleep(15);//пауза 15 мс
В BMP1:= Graphics.TBitmap.Create;
 //задаем размеры рисунка такие же как размеры экрана
В Р’РњР 1.Height:= Screen.Height;
В BMP1.Width:= Screen.Width;
В DC1:= GetDC(0);
 //Делаем снимок экрана
В BitBlt(BMP1.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DC1, 0, 0, SRCCOPY);
 Form1.Visible:= True; //восстанавливаем окно программы
В Image1:= TImage.Create(nil);
В BMP1.IgnorePalette:= True;
В Image1.Picture.Assign(BMP1);
 BMP1.SaveToFile('с:\1.bmp'); //сохраняем снимок в файл
В //1.bmp РЅР° РґРёСЃРєРµ РЎ:\
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
В if SaveDialog1.Execute then
 BMP1.SaveToFile(SaveDialog1.FileName) //сохраняем рисунок
 else ShowMessage('Файл не был сохранен!');
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
 //удаляем рисунок с диска
В if FileExists('СЃ:\1.bmp') then DeleteFile('C:\1.bmp');
 Screen1.Hide; //скрываем рисунок
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
 Screen1.Show; // делаем рисунок видимым
 if FileExists('с:\1.bmp') then //если рисунок существует,
  Screen1.Picture.LoadFromFile('с:\1.bmp');//загружаем его
end;
end.
⊚ Р’СЃРµ файлы проекта Рё исполняемый файл рассмотренной программы находятся РЅР° прилагаемом Рє РєРЅРёРіРµ компакт-РґРёСЃРєРµ РІ папке Chapter04.