文件名称：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)