在網(wǎng)上找了很多關(guān)于截圖的軟件，都沒有發(fā)現(xiàn)一個象QQ那樣能用快捷鍵截圖的。即使有的可以，但是體積太大而且很多的功能幾乎都用不著，有的體積倒是小，可是就只有個區(qū)域截圖或是全屏截圖啊，不能直接保存圖片要到Windows的畫圖程序中保存。所以就想寫一個包含常用功能簡單實(shí)用的截圖工具，花了點(diǎn)時間做出來了,源代碼里面的注釋應(yīng)該蠻清楚的，很適合初學(xué)者。老手看了可不要笑我哦!呵呵~~~還有就是我創(chuàng)建了個Delphi群8945772,歡迎大家加入一起討論，一起提高。如果誰把這個程序做了修改，請一定要把修改后的程序發(fā)一份我!用了以下第三方控件這些控件在盒子上都可以找到：
CoolTrayIcon
HotKeyManager v1.7.0
dxpack2.0.1
作者:楊暢(sheepchang)
Email:sheepchang@Gmail.com QQ:1103754
希望大家一起交流，共同進(jìn)步。

這些時候小日本人有些囂張又搞入常又搞教科書扭曲歷史，看了新聞?wù)媸菤鈶崳餍园堰@個截圖工具改成了抗日版。在關(guān)于界面里面點(diǎn)抗日版會出現(xiàn)個畫面有段音樂蠻激勵斗志的有段代碼下面會給出的，就是在創(chuàng)建窗體的后播放一段MID音樂可是窗體出現(xiàn)很慢，要等幾秒種才能出現(xiàn)窗體：

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;

在窗體關(guān)閉的時候調(diào)用另一段代碼關(guān)閉MID音樂：

procedure TForm6.FormClose(Sender: TObject; var Action: TCloseAction);
begin//釋放并關(guān)閉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音樂轉(zhuǎn)換成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;