delphi - TOpenDialog - 压缩为文件

Question

如何在打开和保存对话框中强制 zip 存档显示为文件而不是文件夹？

通过显示为文件夹，我的意思是这样的:

Answer 1

Vista 及更高版本上的 Windows 文件打开对话框支持 IFileDialogEvents 接口(interface)。

其中一个事件(或回调，如果您愿意)是 OnFolderChanging 事件。它允许实现者停止导航到特定位置。使用此事件将使您能够停止将 zip 文件作为文件夹输入，即使在运行应用程序的 Windows 安装中默认启用该功能也是如此。如果 Windows 本身没有启用导航功能，则看不到它如何启用 zip 导航功能。

参见:IFileDialogEvents Interface ( http://msdn.microsoft.com/en-us/library/bb775876(v=VS.85).aspx )了解详细信息。

AlphaControls 可能使用这种方法。要自己完成此操作，您“只需”为 TOpenDialog.OnFolderChange 事件实现一个处理程序(感谢 David)。

了解有关使用 Common Item Dialog 的更多信息，请参见:http://msdn.microsoft.com/en-us/library/bb776913(v=VS.85).aspx

注意:Vista 之前的常见对话框还支持事件，在这些版本中称为通知。它确实包含一个FolderChange 通知，但我找不到FolderChanging 通知。请参阅Common Dialog Box Notifications ( http://msdn.microsoft.com/en-us/library/ff468811(v=VS.85).aspx 用于支持的通知列表。Dialog Boxes ( http://msdn.microsoft.com/en-us/library/ms632588(v=VS.85).aspx ) 用于指向对话框的“条目”。