我在每个盘的根目录下执行dir命令后,可以看到一个信息字段即“卷的序列号”通常为8位16进制数。请问在编程中如何获取这个号码,因为我想用他作为密钥加密信息。来保证信息只存在于指定的盘。顺便问一下,是否有仿造或修改此序列号的方法。多谢各位了。分数不够可令加。
解决方案 »
- dbexpress+mysql这样组合好不好用
- 怎么用delphi 7 编写发送带有附件的邮件?用什么STMP服务器效率最高?
- 建树的时候出现一个问题求解。关于指针
- webbrowser navigate 之后内存增长的问题,紧急,谢谢
- 用DBGrid控件来显示数据表中的各字段值问题!!急!!!!!
- 如何在远程数据模块的接口中添加FUNCTION函数和客户端如何调用!!
- 打开DELPHI7的SQL Explorer的DBDEMOS | Tables | country.db |出问题请教?
- 请问在DELPHI中如何导入MSXML?
- 怎么得到SMALLDATATIME类型中的月份
- 用sql怎样实现模糊查询(delphi中)
- 我用这个函数将导入excel中出现这个问题,请帮忙看看
- 请教大家一个ADOTable的问题
var
vVolumeNameBuffer: array[0..255]of Char;
vVolumeSerialNumber: DWORD;
vMaximumComponentLength: DWORD;
vFileSystemFlags: DWORD;
vFileSystemNameBuffer: array[0..255]of Char;
begin
if GetVolumeInformation('C:\', vVolumeNameBuffer, SizeOf(vVolumeNameBuffer),
@vVolumeSerialNumber, vMaximumComponentLength, vFileSystemFlags,
vFileSystemNameBuffer, SizeOf(vFileSystemNameBuffer)) then
begin
Caption := IntToHex(vVolumeSerialNumber, 8);
end;
end;