|
在网上找了很多关于截图的软件，都没有发现一个象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;
没有相关教程
|
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
