返回指定驱动器的卷标代码,Delphi代码库,德仔网

代码语言

代码分类

【Delphi】返回指定驱动器的卷标

作者:dezai / 发布于2013/12/3/ 431

function VolumeName(const Drive: string): string;
var
 Unused: Cardinal;               // unused parameters
 PrevErrorMode: Windows.UINT;         // stores Windows error mode
 VolName: array[0..Windows.MAX_PATH] of Char; // receives volume name
begin
 // Inhibit system dialog appearing on error
 PrevErrorMode := Windows.SetErrorMode(
  Windows.SEM_FAILCRITICALERRORS
 );
 try
  // Get volume information
  Result := '';
  if Windows.GetVolumeInformation(
   PChar(Drive), VolName, Windows.MAX_PATH, @Unused, Unused, Unused, nil, 0
  ) then
  Result := VolName;
 finally
  // Restore old error mode
  Windows.SetErrorMode(PrevErrorMode);
 end;
end;

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　驱动器　

同语言下

可能有用的

dezai贡献的其它代码(1065)