zoukankan      html  css  js  c++  java
  • 截图:截取当前程序的界面,并保存到bmp图片中。

    直接上代码:

    unit Unit1;

    interface

    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,Clipbrd;

    type
    TForm1
    = class(TForm)
    btn1: TButton;
    dlgSave1: TSaveDialog;
    procedure btn1Click(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    var
    Form1: TForm1;

    implementation

    {$R *.dfm}

    procedure TForm1.btn1Click(Sender: TObject);
    var
    bmp:TBitmap;
    MyRect:TRect;
    Myrect2:TRect;
    canvas:TCanvas;
    DC:HDC;
    b:TPoint;
    aa:TPoint;
    begin
    ShowMessage(
    '---------------');
    bmp :
    = TBitmap.Create;
    bmp.Width :
    = Form1.Width;
    bmp.Height :
    = form1.Height;
    MyRect :
    = Rect(Form1.Left,Form1.Top,bmp.Width+Form1.Left,bmp.height+Form1.Top);
    Myrect2 :
    =Rect(0,0,bmp.Width,bmp.height);
    DC :
    = GetDC(0);
    Canvas :
    = TCanvas.Create;
    Canvas.Handle :
    = DC;
    bmp.Canvas.CopyRect(MyRect2,Canvas,MyRect);
    Clipboard.Assign(bmp);
    if dlgSave1.Execute then
    bmp.SaveToFile(dlgSave1.FileName
    + '.bmp');
    Canvas.Free;
    ReleaseDC(
    0,DC);
    bmp.Free;


    end;

    end.
    没事,别怕,这是签名→→┃ 青山幽谷笛声扬,白鹤振羽任翱翔。往事前尘随风逝,携手云峰隐仙乡。 ┃
  • 相关阅读:
    DAY12 基本余数 运算符2
    DAY11 基本运算符
    DAY10 变量 常量 作用域
    DAY09 JAVA 类型转换
    DAY08 数据类型2
    DAY07 数据类型
    DAY06 JAVA基础语法1注释2标识符
    Beta冲刺集合
    Alpha冲刺集合
    高级软件工程实践总结
  • 原文地址:https://www.cnblogs.com/dabiao/p/1732127.html
Copyright © 2011-2022 走看看