唉~~这个问题已经解决，可DFW还没人讲到一点关键的~~那我就改成送分吧，前十名，限今天下午4：30前！ (50分)

I

ili

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-29

• #1

>怎样在About窗体中播放Midi文件（在资源文件中的）？？当然，不能出现媒体播放器。

 

T

taozhiyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-29

• #2

不然他显示不就可以了！

 

I

ili

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-01

• #3

大家要快哦：）每人5分

 

天

天真

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-01

• #4

谢谢

 

G

guilinlzy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-01

• #5

hehe

 

X

xaojgu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-01

• #6

ok

 

Z

ZQFILE

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-01

• #7

WHAT?

 

J

jiangxiancheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-01

• #8

用DX,给分。

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-01

• #9

OK

 

H

Happy3X

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-01

• #10

抢啊！

 

P

pcsunflower

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-01

• #11

me[]

 

D

drawpharos

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-01

• #12

看能不能跟上！

 

J

jiangyiquan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-01

• #13

to ili,
如何做的？请勿藏私

 

D

dingbaosheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-01

• #14

简单呀， 把媒体播放器设为不可见就OK了：）或用API播放MIDI

 

酷

酷尔贝塔

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-01

• #15

沒戲了呵呵

 

A

a99168

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-01

• #16

不知道PLAYSOUND能不能播放Midi音乐。
在About窗体中中播放与其它窗体中没有区别。
在SHOWWINDOW时 或 CREATEWINDOW 时 自动PLAY。

 

H

Hugo119

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-01

• #17

me

 

I

ili

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-01

• #18

有人想知道，那我也不敢独享，和dingbaosheng及a99168说的有关：

想在“关于”窗口加上一段声音说明，但小小的“关于”FORM放上一个长长的、Visible属性需为False的MediaPlayer构件实在别扭。东查西找之下，还是靠API函数SNDPLAYSOUND()解决了问题——从而摆脱了MediaPlayer的“束缚”。使用API函数控制声音文件的播放：（部分代码）
procedure TaboutBox.FormShow(Sender: TObject);
begin
// 播 放 当 前 目 录 下 的welcome.wav 文 件
sndplaysound('welcome.wav',snd_async);
end;

procedure TAboutBox.FormClick(Sender: TObject);
begin
// 停 止 播 放
sndplaysound('',snd_async);
end;

——别忘了，在uses子句中加入mmsystem单元。如果只需要播放声音，那么一条API函数就能实现功能的还用得着MediaPlayer来大动干戈吗？

 

S

snow_white

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-01

• #19

学习

 

H

Harley

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-01

• #20

真的很利害！