Для сохранения копии экрана нам понадобится компонент 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;
По нажатию кнопки
