Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
delphiÃö©ómediaplayer1
0 views
Skip to first unread message
呵呵.....
Oct 16, 2001, 2:23:36 AM10/16/01
to
procedure TForm1.Timer1Timer(Sender: TObject);
var
y:integer;
aa:integer;
bb:string;
begin
var
y:integer;
aa:integer;
bb:string;
begin
aa:=ListBox1.Items.Count;
timer1.enabled:=false;
if (y<aa) then
begin
bb:=listbox1.items[y];
mediaplayer1.filename:=listbox1.items[y];
mediaplayer1.open;
mediaplayer1.play;
我要在這理加上
判斷讀取的聲音檔是否結束
請大家給我一點提示
y:=y+1;
timer1.enabled:=true;
end;
end;
--
[0m [1;33m※ Origin: [36mYahoo!奇摩 大摩域 [37m<telnet://bbs.kimo.com.tw> [m
[1;35m◆ From: [1;32m140.126.136.250 [m
0 new messages