自己写的一个利用快捷键截图的工具

核心提示： 在网上找了很多关于截图的软件，都没有发现一个象QQ那样能用快捷键截图的，自己写的一个利用快捷键截图的工具，即使有的可以，但是体积太大而且很多的功能几乎都用不着，我在这里敢肯定这段代码是不能播放RES资源文件里面的MID文件的，播放WAV格式的是可以的，有的体积倒是小，可是就只有个区域截图或是全屏截图啊

 

在网上找了很多关于截图的软件，都没有发现一个象QQ那样能用快捷键截图的。即使有的可以，但是体积太大而且很多的功能几乎都用不着，有的体积倒是小，可是就只有个区域截图或是全屏截图啊，不能直接保存图片要到Windows的画图程序中保存。所以就想写一个包含常用功能简单实用的截图工具，花了点时间做出来了,源代码里面的注释应该蛮清楚的，很适合初学者。老手看了可不要笑我哦!呵呵~~~还有就是我创建了个Delphi群8945772,欢迎大家加入一起讨论，一起提高。如果谁把这个程序做了修改，请一定要把修改后的程序发一份我!用了以下第三方控件这些控件在盒子上都可以找到：
CoolTrayIcon
HotKeyManager v1.7.0
dxpack2.0.1
作者:杨畅(sheepchang)
Email:sheepchang@Gmail.com QQ:1103754
希望大家一起交流，共同进步。

这些时候小日本人有些嚣张又搞入常又搞教科书扭曲历史，看了新闻真是气愤，索性把这个截图工具改成了抗日版。在关于界面里面点抗日版会出现个画面有段音乐蛮激励斗志的有段代码下面会给出的，就是在创建窗体的后播放一段MID音乐可是窗体出现很慢，要等几秒种才能出现窗体：

PRocedure TForm6.FormCreate(Sender: TObject);
begin
  //播放Mid文件
  MCISendString('OPEN kangri.MID TYPE SEQUENCER ALIAS NN', '', 0, 0);
  MCISendString('PLAY NN FROM 0', '', 0, 0);
  MCISendString('CLOSE ANIMATION', '', 0, 0);
end;

在窗体关闭的时候调用另一段代码关闭MID音乐：

procedure TForm6.FormClose(Sender: TObject; var Action: TCloseAction);
begin//释放并关闭MID播放
  MCISendString('OPEN kangri.MID TYPE SEQUENCER ALIAS NN', '', 0, 0);
  MCISendString('STOP NN', '', 0, 0);
  MCISendString('CLOSE ANIMATION', '', 0, 0);
  Form6:=nil;
  Action:=caFree;
end;

而我用另一种方法把MID音乐转换成WAV格式的音乐把它编辑到RES资源文件中用下面的一段代码打开速度很快，几乎是打开窗体的同时就播放音乐的，但是我又把MID编辑到RES资源文件中用这段代码不能播放，在CSDN上搜索了一下，问这问题的还不少但是有的人说用这段代码可以说是可以播放wav格式的，MID格式的和这差不多，我在这里敢肯定这段代码是不能播放RES资源文件里面的MID文件的，播放WAV格式的是可以的。希望高人看到了还请指教，下面就是这段代码：

procedure TForm6.FormCreate(Sender: TObject);
begin
  PlaySound(PChar('kangri'), hInstance, snd_ASync or snd_Resource);
end;