2008 年 8月 19 日随笔档案 - 万一

2008年8月19日

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls; type TForm1 = class(TForm) Ope... 阅读全文

posted @ 2008-08-19 15:48 万一阅读(4515) 评论(4) 推荐(1) 编辑

用多媒体库 Bass.dll 播放 mp3 [7] - 获取当前的播放状态

posted @ 2008-08-19 13:55 万一阅读(4077) 评论(0) 推荐(0) 编辑

用多媒体库 Bass.dll 播放 mp3 [6] - 是否循环播放

摘要：本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) OpenDialog1: TOpenDialog; Button1: TButton; Button2: TButton; Button3: TButton; CheckBox1: TCheckBox; procedure FormCreate(Sender: TOb 阅读全文

posted @ 2008-08-19 00:53 万一阅读(3926) 评论(0) 推荐(0) 编辑