2008年4月25日
文件拖放控件
摘要： unit DragFileAcceptor; interface uses SysUtils, Classes, ShellAPI,Messages,Windows,Forms,Controls; type TFileDropEvent=procedure(Sender:TObject;FileNameList:TStrings) of object; TAcceptFileEvent=pr... 阅读全文
posted @ 2008-04-25 19:44 地质灾害 阅读(338) 评论(0) 推荐(0) 编辑
Delphi代码获取网卡物理地址
摘要： 以下是我从MSDN中翻译过来的三个Delphi单元，调用任意一个单元中声明的API都可以获取网卡的物理地址，但三个单元中的API函数的有效环境和功能各有不同，我把说明附于代码的注释中。 unit Lmwksta; interface uses Windows,SysUtils,Dialogs; type _WKSTA_TRANSPORT_INFO_0=packed record wkt... 阅读全文
posted @ 2008-04-25 19:43 地质灾害 阅读(1873) 评论(1) 推荐(0) 编辑
ZLib的数据压缩和解压缩
摘要： Delphi的开发者可以使用ZLib单元中定义的TCompressionStream进行数据压缩，使用TDecompressionStream解压缩ZLib压缩后的数据。它们的定义如下： TCustomZlibStream = class(TStream) private FStrm: TStream; FStrmPos: Integer; FOnProgress: TNo... 阅读全文
posted @ 2008-04-25 19:40 地质灾害 阅读(3351) 评论(0) 推荐(0) 编辑
Delphi的动态数组
摘要： Delphi的动态数组与字符串一样，是生存期自管理类型。 动态数组第一个元素前面的2个Integer分别是引用计数和数组当前长度。嗯。跟字符串一样。但是只有动态数组长度不为0时，这8个字节才可以访问，否则Access Violation。 虽然可以用SetLength改变动态数组的长度，但是不能在函数内部改变其开放数组参数的长度（别问偶什么是开放数组参数）。如果要改变数组参数的长度，可以把参数类型... 阅读全文
posted @ 2008-04-25 19:36 地质灾害 阅读(1142) 评论(0) 推荐(0) 编辑
利用百度mp3的搜索结果下载网络音乐
摘要： 以前看到过网友写的“百度Mp3批量下载程序”，现在自己也研究下一。首先上http://mp3.baidu.com/搜索几首歌，看看百度网站生成动态页面地址的方式。发现它是有规律的，以下是我的记录： 搜索七里香，所有格式 http://mp3.baidu.com/m?f=ms&tn=baidump3&ct=134217728&lf=&rn=&word=%C6%DF%C0%EF%CF%E3&lm=-... 阅读全文
posted @ 2008-04-25 19:34 地质灾害 阅读(973) 评论(2) 推荐(0) 编辑
UrlDownloadToFile的进度事件
摘要： urlmon.dll中有一个用于下载的API，MSDN中的定义如下： HRESULT URLDownloadToFile( LPUNKNOWN pCaller, LPCTSTR szURL, LPCTSTR szFileName, DWORD dwReserved, LPBINDSTATUSCALLBACK lpfnCB ); ... 阅读全文
posted @ 2008-04-25 19:31 地质灾害 阅读(866) 评论(0) 推荐(0) 编辑