Delphi仿QQ截屏功能.rar

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中关键字的值。