怎么求得硬盘序列号? 怎么求得硬盘序列号? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 function GetHardDiskSerial(const DriveLetter: Char): string; 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; 请教各位大侠关于delphi中建立excel 折线图的问题 一段让你发疯的代码 win98下可以用MSDE2000(+SP3)数据库吗? TXmlDocument控件使用问题 流水编码的问题在线等立即给分 QQ使用什么开发的,有没有开发通讯方面的,谈谈这方面的开发》 如何使image自动出现水平或垂直滚动条? Delphi分析字符串文字 Paradox的关键字、主索引、副索引有什么区别? 怎么在程序中使用代理服务器,急用!!! 关于 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;