Delphi 根据磁盘盘符获取简单的硬盘编号

本文整理自网络，侵删。

 

function GetHDCode(Drv: string): string;
var
  VolumeSerialNumber: DWORD;
  MaximumComponentLength: DWORD;
  FileSystemFlags: DWORD;
begin
  if Drv[Length(Drv)] = ':' then
    Drv := Drv + '\';
  GetVolumeInformation(Pchar(Drv), nil, 0, @VolumeSerialNumber, MaximumComponentLength, FileSystemFlags, nil, 0);
  Result := IntToStr(VolumeSerialNumber);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Lines.Add(GetHDCode('c:'));
end;
 

相关阅读 >>

Delphi实现文件拖放代码

Delphi 调用单元unit代码

Delphi中使用自定义字体

Delphi debug release区别是什么？

Delphi cpu窗口的扩展学习

Delphi 获得每个进程的cpu使用率

Delphi用代码实现注册ocx和dll

Delphi 移动windows开始按钮到任务栏中的任何位置

Delphi xe5 与其他版本共存

Delphi整理五（枚举、子界、集合）

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 根据磁盘盘符获取简单的硬盘编号