解决方案 »
- delphi 求救!
- API::SetWindowPos
- 如何把存入SQLserver2000中的文本文件读出到相应文件中或者Memo中?
- delphi中如何用运“回车键”(Enter)换下一个文本框啊!
- 用SQL的嵌套语用SQL的嵌套语句insert....seLect,将表1的记录批量记录插入表2的语句怎样写的?3Q
- 如何才能将DBGrid中标题栏变平,不要相按扭那样!可以做到吗?
- 我想在TDBLookupComboBox中显示的内容都能显示出来,不截去他的部分,该如何做?
- DELPHI基本语法问题,解决者送100分,入即给分,
- 1000分求仓库管理的设计方案,急用,兄弟们帮帮忙
- 哪位老兄来一段多用户的代码?要求请进,不难的。合要求的给50分,先下5 分。
- 如何引用onkeypress
- 初学者的问题,如何使enter键等效于点击一个按钮
begin
if waveOutGetNumDevs() <= 0 then
begin
showmessage('没发现声卡!'); //没有安装声卡
Exit;
end;
try
if AFlag = True then
begin
with MidiMediaPlayer do
begin
Close;
FileName:=AFileName;
Open;
//Rewind;
Play;
//G_IMidiNum:=MidiInGetNumDevs;
end;
end
else
begin
with MidiMediaPlayer do
begin
Close;
end;
end;
except
showmessage('无法播放背景音乐!');
end;
end;
怎么那么无聊的你,厉害的话就回答我的问题,老是来搅乱我的论坛,真是无聊透顶了你,再这样我可不客气了。真是有够无聊的你
谢谢。。