在網上找了很多關於截圖的軟件，都沒有發現一個象QQ那樣能用快捷鍵截圖的。即使有的可以，但是體積太大而且很多的功能幾乎都用不著，有的體積倒是小，可是就只有個區域截圖或是全屏截圖啊，不能直接保存圖片要到Windows的畫圖程序中保存。所以就想寫一個包含常用功能簡單實用的截圖工具，花了點時間做出來了,源代碼裡面的注釋應該蠻清楚的，很適合初學者。老手看了可不要笑我哦!呵呵~~~還有就是我創建了個Delphi群8945772,歡迎大家加入一起討論，一起提高。如果誰把這個程序做了修改，請一定要把修改後的程序發一份我!用了以下第三方控件這些控件在盒子上都可以找到：
CoolTrayIcon
HotKeyManager v1.7.0
dxpack2.0.1
作者:楊暢(sheepchang)
Email:[email protected] 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;
