首页
社区
课程
招聘
问答 CTF 排行榜 知识库 工具下载 峰会 看雪商城 证书查询
  1. 社区
  2. 编程技术
    3. 发新帖
[原创]让你的程序唱歌...
发表于: 2007-7-6 15:41 12406

[原创]让你的程序唱歌...

vxin 活跃值
10
2007-7-6 15:41
12406

说明：目前只收录3首歌，考虑到DLL的大小也没有较好听的XM音源文件。

所有代码都在付件中。。。

==================================
各位看倌能否用自已熟悉的语言调用一下这DLL文件，测试结果希望能跟贴一下~~

开发语言：Delphi 7

测试结果：通过~~


[培训]内核驱动高级班，冲击BAT一流互联网大厂工作，每周日13:00-18:00直播授课

上传的附件：
收藏
免费 ・7
支持
分享
最新回复 (23)
yinwei
雪    币： 200
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
2 楼
下来看看。。。
2007-7-6 16:26
0
笨奔
雪    币： 415
活跃值： (34)
能力值： ( LV5，RANK：60 )
在线值：
发帖
回帖
粉丝
私信
3 楼
好东西.试试.等下给个测试.
2007-7-6 19:06
0
vxin
雪    币： 372
活跃值： (31)
能力值： ( LV12，RANK：410 )
在线值：
发帖
回帖
粉丝
私信
4 楼
InnoSetup利用该DLL安装播放音乐，方法如下：（小试了一下，成功了，呵~~）

在脚本加入以下代码：

[Code]
procedure PlaySong(i:integer);
external 'PlaySong@files:song.dll stdcall';

procedure InitializeWizard();
begin
   PlaySong(3);                   // 1~3可任选
end;

很简单吧，哈
2007-7-6 19:18
0
firefly
雪    币： 260
活跃值： (102)
能力值： ( LV9，RANK：170 )
在线值：
发帖
回帖
粉丝
私信
5 楼
感谢楼主。
在VC++6.0中测试通过。
附上编译好的可执行文件和源代码。
代码写的差，见笑了
上传的附件：
2007-7-6 20:16
0
vxin
雪    币： 372
活跃值： (31)
能力值： ( LV12，RANK：410 )
在线值：
发帖
回帖
粉丝
私信
6 楼
不错不错~~
2007-7-7 11:52
0
peowner
雪    币： 116
活跃值： (38)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
7 楼
哪位大虾有用win32汇编实现播放音乐的效果，参考一下！
2007-7-11 10:48
0
yanyaneboy
雪    币： 400
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
8 楼
以前尝试过在DOS下面调用机箱那个喇叭发音.
2007-7-13 23:32
0
iwantyou
雪    币： 208
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
9 楼
vb不知道怎么样？
2007-7-14 18:58
0
Winker
雪    币： 796
活跃值： (370)
能力值： ( LV9，RANK：380 )
在线值：
发帖
回帖
粉丝
私信
10 楼
代码中的UpdateData是虾米函数？
2007-7-19 17:26
0
firefly
雪    币： 260
活跃值： (102)
能力值： ( LV9，RANK：170 )
在线值：
发帖
回帖
粉丝
私信
11 楼
更新控件变量。
2007-7-20 19:51
0
ayun
雪    币： 255
活跃值： (11)
能力值： ( LV4，RANK：50 )
在线值：
发帖
回帖
粉丝
私信
12 楼
5楼的同志，代码有问题，程序退出的时候没关闭设备
2007-7-20 22:41
0
Winker
雪    币： 796
活跃值： (370)
能力值： ( LV9，RANK：380 )
在线值：
发帖
回帖
粉丝
私信
13 楼
用C或asm写个吧....还是用那个dll
2007-7-21 21:47
0
飞鱼片
雪    币： 4
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
14 楼
好东西，下下来玩玩
2007-7-21 22:46
0
小子贼野
雪    币： 347
活跃值： (30)
能力值： ( LV9，RANK：420 )
在线值：
发帖
回帖
粉丝
私信
15 楼
应该写个文章介绍下如何用
2007-7-21 23:19
0
NIU
雪    币： 201
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
NIU
16 楼
asm版的测试程序

测试成功，

附源代码
上传的附件：
2007-7-21 23:38
0
gtyxlgt
雪    币： 201
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
17 楼
这个是.net 2.0 的实例，目标机器上需要安装.net 2.0 框架

本人还将曲目扩充到了6首

VB.net Demo.rar
上传的附件：
2007-10-8 15:22
0
wyqzm
雪    币： 256
活跃值： (803)
能力值： ( LV4，RANK：50 )
在线值：
发帖
回帖
粉丝
私信
18 楼
请楼上提供一下dll源码
2007-10-8 21:23
0
火影
雪    币： 332
活跃值： (30)
能力值： ( LV12，RANK：460 )
在线值：
发帖
回帖
粉丝
私信
19 楼
乱写了一个，没实现组合框的功能，写界面我都快忘了，用汇编实现实在很烦，
上传的附件：
2007-10-8 21:53
0
hxsoft
雪    币： 9924
活跃值： (2331)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
20 楼
写注册机很实用的说。
2007-10-9 18:24
0
blindtiger
雪    币： 5734
活跃值： (1737)
能力值： ( LV4，RANK：50 )
在线值：
发帖
回帖
粉丝
私信
21 楼
确实不错，先学习学习再说。。。
2007-10-9 20:10
0
vrowang123
雪    币： 257
活跃值： (56)
能力值： ( LV5，RANK：60 )
在线值：
发帖
回帖
粉丝
私信
22 楼
你也在game deception？
2007-10-10 12:55
0
gtyxlgt
雪    币： 201
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
23 楼
pb的来喽！！公布pb引用，还是6首曲目的库，pb9写的。

pb.rar
上传的附件：
2007-10-10 18:52
0
nuke
雪    币： 200
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
24 楼
音乐真的非常好听!
带上耳机听了好一会,哈哈
轻松多了
2008-2-5 06:04
0
游客
登录 | 注册 方可回帖
回帖 表情 雪币赚取及消费
高级回复
返回
// // 统计代码