|
|
主题: 读取驱动器的序列号
|
与人同乐
职务：管理员
等级：6
金币：18.0
发贴：3928
|
#12002/2/2 22:39:20
在对硬盘分驱格式化之后，每个驱动器都会有一个唯一的序列号(Volume Serial Number)，就是用VOL命令列出的16进制数，这个号码可以用于加密、防拷贝等用途。
以下是从本人以前编写过的代码中摘录出来的，目的就是读取驱动器 C 的序列号，其中用到winapi.u32中的GetVolumeInformation和memtools.u32中的内存分配函数。
mem2 := AllocMem(4)
mem3 := AllocMem(4)
GetVolumeInformation( "C:\\", "", 0, mem2, mem3, "", "", 0 )
HardSerialNumber := PeekULong(mem2, 0)
FreeMem(mem2)
FreeMem(mem3)
变量HardSerialNumber的值就是10进制的序列号（与使用vol命令看到的16进制序列号等值）。
mem3可以用作获得当前文件系统支持的文件名最大长度（如windows 98中是256）。
|
燕云
职务：普通成员
等级：2
金币：10.0
发贴：600
|
#22002/2/3 21:48:56
好贴！希望Y大哥能多放点如此好贴特别是动态预载的问题！它已经困扰我很久了！虽然现在已经不用au而转用dir!但我一直想知道答案！
云网媒体【YZCNET.COM】云网媒体开展软件技术、互联网技术、电子商务技术、多媒体设计等服务； 其中包括 ：软件开发、网站建设、手机服务、多媒体设计、 图片及演示文稿服务等；
|
与人同乐
职务：管理员
等级：6
金币：18.0
发贴：3928
|
#32002/2/4 8:45:06
动态预载？是不是指Preload(IconID@"IconTitle" [, option])与Unload(IconID@"IconTitle")？
|
燕云
职务：普通成员
等级：2
金币：10.0
发贴：600
|
#42002/2/4 10:32:50
我是希望通过Preload和Unload!但在过去的应用中它总存在着问题！在对其测试Trace的时候有时有效，而有时用不行,所以在制作中只有用头尾的两张相同的图片来实现所谓的"loading"画面！不知道Y大哥对于loading页面用什么方法实现！？
云网媒体【YZCNET.COM】云网媒体开展软件技术、互联网技术、电子商务技术、多媒体设计等服务； 其中包括 ：软件开发、网站建设、手机服务、多媒体设计、 图片及演示文稿服务等；
|
吃鱼专家
职务：普通成员
等级：6
金币：11.0
发贴：5312
|
#52002/2/4 16:50:38
HardSerialNumber 为 0
是怎么回事?
|
燕云
职务：普通成员
等级：2
金币：10.0
发贴：600
|
#62002/2/4 21:02:45
字串的长度
云网媒体【YZCNET.COM】云网媒体开展软件技术、互联网技术、电子商务技术、多媒体设计等服务； 其中包括 ：软件开发、网站建设、手机服务、多媒体设计、 图片及演示文稿服务等；
|
与人同乐
职务：管理员
等级：6
金币：18.0
发贴：3928
|
#72002/2/6 10:24:07
skcyh在上个帖子中说 引用:
我是希望通过Preload和Unload!但在过去的应用中它总存在着问题！在对其测试Trace的时候有时有效，而有时用不行,所以在制作中只有用头尾的两张相同的图片来实现所谓的"loading"画面！不知道Y大哥对于loading页面用什么方法实现！？
我很少用这两个函数，因此也没遇到过什么问题。Trace时无而应用中有的问题是什么？
|
燕云
职务：普通成员
等级：2
金币：10.0
发贴：600
|
#82002/2/6 16:45:10
其实我的意思是我在使用Preload的时候通过变量的Trace来测试流程是否按照我预定方向流动！但在测试中好想有时可以Preload而有时不能！
不知道Y兄用什么方法实现loading页面!（是否和我们的方法一样用头尾相同的两张图来"实现"）
云网媒体【YZCNET.COM】云网媒体开展软件技术、互联网技术、电子商务技术、多媒体设计等服务； 其中包括 ：软件开发、网站建设、手机服务、多媒体设计、 图片及演示文稿服务等；
|
与人同乐
职务：管理员
等级：6
金币：18.0
发贴：3928
|
#92002/2/8 9:00:30
我看了一下preload的说明，执行时预载的真正情况与图标种类和当前内存可用量有关，
|
燕云
职务：普通成员
等级：2
金币：10.0
发贴：600
|
#102002/2/8 21:55:38
那Y兄是如何实现loading画面的！？
云网媒体【YZCNET.COM】云网媒体开展软件技术、互联网技术、电子商务技术、多媒体设计等服务； 其中包括 ：软件开发、网站建设、手机服务、多媒体设计、 图片及演示文稿服务等；
|
与人同乐
职务：管理员
等级：6
金币：18.0
发贴：3928
|
#112002/2/9 12:32:46
呵呵……我从不在程序加载时用WAIT,LOADING......
|
