Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Изображения, рисование



Вернуться к списку функций
 Аналог PrintScreen (для сохранения изображения с экрана)

 Прислал: Egor ( 8 декабря 2005 г. )
©  Egor
 Описание:
Функция предназначена для снятия изображения с экрана и сохранения его в файле

 Зависимости:
Windows, Graphics, Forms, Dialogs, StdCtrls, Classes, Controls;

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Аналог PrintScreen (для сохранения изображения с экрана)

Функция предназначена для снятия изображения с экрана и сохранения его в файле

Зависимости: Windows, Graphics, Forms, Dialogs, StdCtrls, Classes, Controls;
Автор:       Egor, afilis2005@yandex.ru
Copyright:   Egor
Дата:        8 декабря 2005 г.
***************************************************************** }

unit Unit1;

interface

uses
  Windows, Graphics, Forms, Dialogs, StdCtrls, Classes, Controls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure PrintScreen(filename : String; scwidth,scheight : Integer);
var
 dc : hdc;
 i,j : Word;
 b : TBitmap;
begin
 b:=TBitmap.Create;
 b.Width:=scwidth;
 b.Height:=scheight;
 dc := GetDc(0);
 MoveToEx(Dc, 0, 0, nil);
 for i:=0 to (scwidth-1) do
  for j:=0 to (scheight-1) do
   b.Canvas.Pixels[i,j]:=GetPixel(Dc,i,j);
 ReleaseDc(0, Dc);
 b.SaveToFile(filename);
 ShowMessage('Saved to '+filename);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 PrintScreen('1.bmp',1024,768);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Button1.Caption:='PrintScreen';
end;

end.


Вернуться к списку функций

Наверх ▲