文档章节

如何使用系统级热键捕捉当前窗口保存为 png 图片 - 回复 "巅枫" 的问题

涂孟超
 涂孟超
发布于 2014/09/26 15:36
字数 297
阅读 12
收藏 0

问题来源: http://www.cnblogs.com/del/archive/2009/02/16/1392049.html#2011187

程序运行后, F8 可保存 bmp, F9 可保存 png; 测试保存目录在 C:\temp

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses pngimage; //png 支持

var
  HotKeyId: array[0..1] of Integer; //热键列表

//捕捉当前窗口, 保存为 bmp 或 png
procedure GetPicture(png: Boolean = false);
var
  r: TRect;
  bmp: TBitmap;
begin
  GetWindowRect(GetForegroundWindow, r);
  bmp := TBitmap.Create;
  bmp.SetSize(r.Right - r.Left, r.Bottom - r.Top);
  BitBlt(bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, GetDC(0), r.Left, r.Top, SRCCOPY);
  if png then
    TPngImage(bmp).SaveToFile('c:\temp\001.png')
  else
    bmp.SaveToFile('c:\temp\001.bmp');
  bmp.Free;
end;

//注册系统热键 F8、F9
procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i := Low(HotKeyId) to High(HotKeyId) do
    HotKeyId[i] := GlobalAddAtom(PChar(IntToStr(i)));
  RegisterHotKey(Handle,HotKeyId[0],0,VK_F8); //F8
  RegisterHotKey(Handle,HotKeyId[1],0,VK_F9); //F9
end;

//处理系统热键
procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
  if Msg.HotKey = HotKeyId[0] then GetPicture;       //存 bmp
  if Msg.HotKey = HotKeyId[1] then GetPicture(true); //存 png
end;

//销毁系统热键
procedure TForm1.FormDestroy(Sender: TObject);
var
  i: Integer;
begin
  for i := Low(HotKeyId) to High(HotKeyId) do
  begin
    UnRegisterHotKey(handle,HotKeyId[i]);
    GlobalDeleteAtom(HotKeyId[i]);
  end;
end;

end.

本文转载自:http://www.cnblogs.com/del/archive/2011/01/15/1936233.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
红蜻蜓抓图精灵(RdfSnap)2017绿色版64位下载

红蜻蜓抓图精灵2107的英文名为RdfSnap,是一款完全免费的专业级屏幕捕捉软件,它拥有长网页滚屏捕捉、定时自动截、图捕捉图像预览、图像编辑、延迟捕捉、捕捉层叠菜单、水印添加、外接图片编辑...

weixin_42030895
05/10
0
0
如何使用 Eclipse 给 Android 模拟器截屏

如果你是一个Android开发者,想要对你的应用程序进行截屏,用来完成文档,或把它提交到谷歌市场。如今的智能手机都很容易做到,如三星Galaxy系列的Android手机就有屏幕快照。但有些时候,我们...

迷途d书童
2012/09/06
3.9K
15
如何在MyEclipse中编辑图片

获取快速图像预览 MyEclipse中提供了一个视图选项允许您浏览图片文件夹(通过在Package Explorer),不用在一个单独的图像编辑器中打开它们来显示图像。图像预览选项提供了基本的放大/缩小图...

百mumu
2016/06/15
232
0
obs-studio源码分析(一):窗口、显示器(桌面)捕捉

windows下窗口、桌面捕捉有多种方式。如下: 1:使用GDI函数或者Windows Media API函数 2:使用DirectX技术 3:使用api hook技术(如D3D游戏捕捉) 4:使用图形驱动技术 obs的窗口、桌面捕捉...

balijinyi
05/11
0
0
Windows中系统范围热键的实现方法

在Windows环境下运行的程序,大多数都支持热键,热键一般被人们称为快捷键,例如:大多数Windows程序都支持“复制”和“粘贴”操作,它们的快捷键一般是:“Ctrl+C”和“Ctrl+V”;在“记事本...

余二五
2017/11/09
0
0

没有更多内容

加载失败,请刷新页面

加载更多

React 服务器渲染原理解析与实践

网盘下载地址 React 服务器渲染原理解析与实践 本套课程,讲解了React中SSR技术的整个搭建思路及流程,完整的从原理上讲清楚了SSR的概念,重点在于讲解编写SSR框架遇到的各种知识点,以及细节...

qq__2304636824
22分钟前
0
0
sourcetree 离线免注册登录安装教程

Sourcetree是一个优秀的git可视化管理工具,深受开发者喜爱Sourcetree官网,但是在安装时需要谷歌账户登录,需要翻qiang才可以,此一点一直被人们所诟病。今天本教程就为大家提供离线免登陆安...

QQZZFT
50分钟前
1
0
使用 PostgreSQL 解决一个实际的统计分析问题

使用 PostgreSQL 解决一个实际的统计分析问题作者:老农民(刘启华)Email: 46715422@qq.com 之前有个朋友扔给我一个奇葩需求,他们公司之前做了一批问卷调查,全部都是统一格式的excel...

新疆老农民
53分钟前
7
0
TypeScript基础入门之高级类型的映射类型

转发 TypeScript基础入门之高级类型的映射类型 高级类型 映射类型 一个常见的任务是将一个已知的类型每个属性都变为可选的: interface PersonPartial {    name?: string;    age?...

durban
今天
1
0
Dubbo源码分析(6):Dubbo内核实现之基于SPI思想Dubbo内核实现

SPI接口定义 定义了@SPI注解 package com.alibaba.dubbo.common.extension; import java.lang.annotation.Documented;import java.lang.annotation.ElementType;import java.lang.an......

郑加威
今天
1
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部