Delphi仿QQ截屏功能.rar

时间:2022-07-30 05:15:11
【文件属性】:

文件名称:Delphi仿QQ截屏功能.rar

文件大小:27KB

文件格式:RAR

更新时间:2022-07-30 05:15:11

Delphi源码-图形处理

Delphi仿QQ截屏功能,可区域截图,鼠标拖选区域,作者:杨畅,我为人人,人人为我。希望大家一起交流,共同进步。定义区域截图时用到的变量,所选区域已截取并复制到了剪贴板!可在其它程序中粘贴!提示:请右键单击图标设置截图热键!不要设置成系统已注册的热键以免冲突。默认全屏截图:Ctrl S,区域截图:Ctrl Q。   //创建程序参数保存文件qscreen.ini在windows目录   qscreeninifile:= TInifile.Create('qscreen.ini');   //读取参数文件qscreen.ini中dxCheckbox2的值,若不存在默认为True   dxCheckbox2.Checked := qscreeninifile.ReadBool('dxCheckbox2', '是否提示', True);   //读取参数文件qscreen.ini中HotKey1的值, 若不存在默认为16449即Ctrl A   HotKey1.HotKey:=qscreeninifile.Readinteger('HotKey1', '全屏截图热键', 16467);   //读取参数文件qscreen.ini中HotKey2的值, 若不存在默认为16465即Ctrl Q   HotKey2.HotKey:=qscreeninifile.Readinteger('HotKey2', '区域截图热键', 16465);   //注册两个默认的热键   HotKeyIndex1 := HotKeyManager1.AddHotKey(HotKey1.HotKey);   HotKeyIndex2 := HotKeyManager1.AddHotKey(HotKey2.HotKey);   //读取注册表中的自动启动项,以设置dxCheckbox1状态   Regtemp:=TRegistry.Create;   Regtemp.RootKey:=HKEY_LOCAL_MACHINE;   当程序设置窗体关闭时,更新参数保存文件qscreen.ini中关键字的值。


【文件预览】:
codesc.net
----qscreen()
--------screen.pas(1KB)
--------screen.dfm(4KB)
--------about.pas(2KB)
--------setkey.dfm(3KB)
--------setkey.dcu(7KB)
--------qcapture.pas(6KB)
--------setkey.pas(4KB)
--------qscreen.dpr(878B)
--------about.dcu(5KB)
--------qcapture.dcu(9KB)
--------capture.dfm(732B)
--------capture.pas(3KB)
--------qscreen.res(876B)
--------capture.dcu(6KB)
--------qcapture.dfm(684B)
--------screen.ico(766B)
--------about.dfm(4KB)
--------screen.dcu(4KB)

网友评论

  • 完全没用,了人一个