请问怎样能读取一张cd的曲目和曲子的时间?最好有源码。
解决方案 »
- 求助:ShellExecute!
- 如何获得CD/DVD-RM/CDRW的硬件设备名称,版本号等信息!!!!!!在线等!!!!!!!!!!!!!!!
- 如何自动关闭ShowMessage,MessageBox,MessageDlg等产生的消息框
- 帮忙看下程序,解释一下意思.(顶者有分,不够再加!)
- 【真的很奇怪!请大家帮忙看看】从一数据表复制数据到另一表,其他字段都正常,只有:“names”字段无法复制,要么就是干脆没有数据,要
- 在query里些sql语句怎样加通配符(初学编程,见笑,见笑!)
- 麻烦各位delphi的高手推荐一下入门的好书.(回复者有分)
- 如何在程序中锁定文件!
- delphi 控件问题
- OLE容器中显示Word文档。可是这个东西可以修改,还显示了工具条。我该怎么办呢?
- TFastDIB的问题,分不够可以再加
- delphi7里,查询姓名以某字开头的?
设定MediaPlayer1.TimeFormat := tfHMS;type HMSRec = record
Hours: byte;
Minutes: byte;
Seconds: byte;
NotUsed: byte; end;procedure TForm1.Button1Click(Sender: TObject);var
TheLength: LongInt;
begin { Set time format - note that some devices don’t support tfHMS } MediaPlayer1.TimeFormat := tfHMS;
{ Store length of currently loaded media }
TheLength := MediaPlayer1.Length;
with HMSRec(TheLength) do { Typecast TheLength as a HMSRec record }
begin
Label1.Caption := IntToStr(Hours); { Display Hours in Label1 }
Label2.Caption := IntToStr(Minutes); { Display Minutes in Label2 }
Label3.Caption := IntToStr(Seconds); { Display Seconds in Label3 }
end;
end;