Delphi基础开发技巧(10)

中国IT动力,最新最全的IT技术教程

最新100篇 | 推荐100篇 | 专题100篇 | 排行榜 | 搜索 | 在线API文档 | 网通镜像

当前位置：> 程序开发 > 编程语言 > 综合其它

Delphi基础开发技巧(10)

作者:佚名时间:2007-09-18 16:46 出处:51cto 责编:月夜寒箫

摘要：Delphi基础开发技巧(10)

[DELPHI]读硬盘序列号

function GetDiskSerial(DiskChar: Char): string;

var

SerialNum : pdword;

a, b : dword;

Buffer : array [0..255] of char;

begin

result := "";

if GetVolumeInformation(PChar(diskchar+":\"), Buffer, SizeOf(Buffer), SerialNum,

a, b, nil, 0) then

　 Result := IntToStr(SerialNum^);

end;

关闭本页