万一 - 博客园

2008年8月23日

摘要：代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: ... 阅读全文

posted @ 2008-08-23 22:56 万一阅读(5339) 评论(3) 推荐(1) 编辑

使用 TRegistry 类[2]: 读取 IE 浏览器的 Start Page

posted @ 2008-08-23 22:18 万一阅读(3243) 评论(2) 推荐(0) 编辑

使用 TRegistry 类[1]: 显示各主键下的项

摘要： {XP 注册表中的主键} HKEY_CLASSES_ROOT {文件类型信息} HKEY_CURRENT_USER {当前用户信息} HKEY_LOCAL_MACHINE {软硬件信息} HKEY_USERS {所有用户信息} HKEY_CURRENT_CONFIG {当前配置信息} {Delphi 定义的常量} HKEY_CLASSES_ROOT ... 阅读全文

posted @ 2008-08-23 21:51 万一阅读(5605) 评论(10) 推荐(0) 编辑

Delphi 2009 中的资源文件编辑器

摘要：阅读全文

posted @ 2008-08-23 10:51 万一阅读(11283) 评论(8) 推荐(1) 编辑

2008年8月22日

用多媒体库 Bass.dll 播放 mp3 [16] - 小节

摘要： Bass.dll 功能非常强大, 做了上面 15 个例子, 已经够我的程序用了; 利用 Bass 还可以录音、下载并播放网上的音乐等等, 没时间继续学习了. 另外: 1、如果喜欢动态引入函数, 可以使用其中的 \delphi\dynamic\Dynamic_Bass.pas 单元; 2、建议使用 \mp3-free\bass.dll, 这是免费的; 3、有不少的音乐播放器使用了不同版本的 Ba... 阅读全文

posted @ 2008-08-22 23:17 万一阅读(5299) 评论(15) 推荐(0) 编辑

用多媒体库 Bass.dll 播放 mp3 [15] - 设置与获取播放速度

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

posted @ 2008-08-22 23:04 万一阅读(4238) 评论(5) 推荐(0) 编辑

用多媒体库 Bass.dll 播放 mp3 [14] - 频率均衡器

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

posted @ 2008-08-22 19:50 万一阅读(4223) 评论(4) 推荐(0) 编辑

用多媒体库 Bass.dll 播放 mp3 [13] - 混响(Reverb)效果

posted @ 2008-08-22 16:04 万一阅读(3754) 评论(0) 推荐(0) 编辑

关于子类与父类的转换, 还有多态的说明 - 回复 "靳承柱" 和 "志成" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/08/22/1002959.html#1294593 //关于父类与子类的类型转换: procedure TForm1.FormCreate(Sender: TObject); var List1: TStrings; List2: TStringList; {TStringList 是 TSt... 阅读全文

posted @ 2008-08-22 11:48 万一阅读(2977) 评论(2) 推荐(1) 编辑

用多媒体库 Bass.dll 播放 mp3 [12] - 绘制动态频谱 FFT

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

posted @ 2008-08-22 10:51 万一阅读(6528) 评论(11) 推荐(0) 编辑