怎么求得硬盘序列号?
解决方案 »
- AcroPDFLib组件去哪儿找啊?
- 我的delphi成长之路。大家不要BS我,因为这是我的真实情况。
- 请问这样是通过什么控件实现的???类似ACDSEE预览图片时的截面。
- adodataset连接数据表的问题,在线等!
- 我公司用c/s结构写了很多个大系统,由我维护,一旦系统出现要改一点东西,我需要把所有的东西都重改一遍。
- 如何让程序停几秒再继续?
- 那位大侠,教我怎么样在DELPHI中表示一个内存地址。
- 心情好!散分
- 使用ADO连接数据库的问题?
- 关于WSAWaitForMultipleEvents(winsock2API)函数的问题,急,急,急!!!
- 关于 listbox的 自绘问题。有经验的来看看。
- 请教高手,如何将WORD和EXCEL文档保存到SQL数据库里面?
var
NotUsed: DWORD;
VolumeFlags: DWORD;
VolumeInfo: array[0..MAX_PATH] of Char;
VolumeSerialNumber: DWORD;
begin
GetVolumeInformation(PChar(DriveLetter + ':\'),
nil, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed,
VolumeFlags, nil, 0);
Result := Format('Label = %s VolSer = %8.8X',
[VolumeInfo, VolumeSerialNumber])
end;