如何使用 Inno Setup 获取系统显示名称？

Question

如何获取文件、目录或文件夹的系统显示名称，就像在系统文件浏览器中显示的那样？例如，原始 CD 以某种方式命名，我想做一点复制保护

Answer 1

Inno Setup 不提供此类功能。但是，您可以轻松编写自己的 DLL 来调查安装程序的 CD 驱动器的标签。在 Pascal 中，只需执行

function GetCDLabel: string;
var
  VolumeName: PChar;
  dummy: cardinal;
begin
  GetMem(VolumeName, MAX_PATH * sizeof(char));
  try
    if GetVolumeInformation(PChar('D:\'), VolumeName, MAX_PATH + 1, nil, dummy, dummy, nil, 0) then
      result := VolumeName
    else
      RaiseLastOSError; // or result := 'Invalid';
  finally
    FreeMem(VolumeName);
  end;
end;

Inno Setup 即可让您在安装程序中包含 DLL，并在安装过程中调用这些 DLL 中的函数。当然，您的设置必须告诉 DLL 函数其文件名，以便 DLL 函数可以使用正确的驱动器。您不能仅仅假设它是D:\。