返回驱动器文件系统名称代码,Delphi代码库,德仔网

代码语言

代码分类

【Delphi】返回驱动器文件系统名称

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

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

评论列表

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

试试其它关键字

　驱动器文件系统　

同语言下

可能有用的

dezai贡献的其它代码(1065)