返回
Win11 TSaveDialog 如何重置默认另存为路径？
windows
2024-03-20 15:46:02
Win11 中使用 TSaveDialog 时重置默认另存为路径
问题
在某些情况下，Win11 中的 TSaveDialog 可能会将默认的“上次使用的文件夹”设置为一个无响应的文件夹，导致应用程序在打开另存为对话框时挂起。本教程将探讨如何重置这个默认路径，以解决这个问题。
解决方法
解决这个问题有两种方法：
方法 1：使用自定义文件对话框
步骤：
- 创建一个自定义文件对话框类，该类覆盖默认的 TSaveDialog 类。
- 在自定义类中，覆盖
Execute方法以禁用ofNoChangeDir选项，这样对话框就会遵循当前的工作目录。
方法 2：使用 Windows API
步骤：
- 使用
SHBrowseForFolder函数打开文件对话框。 - 在调用
SHBrowseForFolder之前，使用SetCurrentDirectory函数将当前的工作目录更改为所需的默认路径。
具体实现
自定义文件对话框：
unit CustomSaveDialog;
interface
uses
Windows, SysUtils;
type
TCustomSaveDialog = class(TSaveDialog)
private
procedure Execute; override;
end;
implementation
procedure TCustomSaveDialog.Execute;
begin
Options := Options - [ofNoChangeDir];
inherited Execute;
end;
end.
使用 Windows API：
var
FileOpenDialog: TCustomSaveDialog;
FileOpenDialog := TCustomSaveDialog.create(parent);
...
SetCurrentDirectory(L'C:\MyDefaultPath');
总结
通过使用自定义文件对话框或 Windows API，可以禁用 ofNoChangeDir 选项，并指定所需的默认路径，从而解决 TSaveDialog 中的默认另存为路径问题。
常见问题解答
1. 为什么会发生这种情况？
操作系统可能会将默认的“上次使用的文件夹”设置为一个无响应的文件夹，这是由于文件系统权限问题或与应用程序的交互引起的。
2. 我的应用程序不会存储默认路径，它是怎么记住的？
操作系统在注册表或其他隐藏位置存储“上次使用的文件夹”路径，以便在后续会话中使用。
3. 为什么禁用 ofNoChangeDir 选项会解决问题？
禁用 ofNoChangeDir 选项允许对话框遵循当前的工作目录，该目录可以通过使用 Windows API 手动更改。
4. 有没有其他解决方法？
除了本文中提到的方法外，还可以考虑使用第三方文件对话框组件或更改应用程序的 chdir() 行为。
5. 如何防止此问题再次发生？
要防止此问题再次发生，请确保应用程序始终以正确的权限启动，并且文件系统没有损坏。
