如何将SQLite的.db-journal临时文件生成路径重定向至其他目录

权限问题确认 #

C:\WINDOWS\USERS\<user> 是Windows XP及更早系统的用户家目录路径，Windows Vista及后续系统默认路径为C:\Users\<user>，两类路径对当前登录的普通用户均默认开放可写权限，适合存放应用临时文件。

具体实现方案 #

根据你的应用场景可选择以下任意一种方案：

• 若应用仅需查询数据库、无写入需求：直接将journal模式设为内存级，完全不生成磁盘临时文件。打开数据库后执行SQL语句：

  PRAGMA journal_mode = MEMORY;
  

• 若应用需要写入数据库：通过temp_store_directory参数指定临时文件输出路径，路径可通过系统API动态获取当前用户家目录，无需硬编码。打开数据库后执行SQL语句：

  PRAGMA temp_store_directory = '你的自定义临时目录路径';
  

  若你启用了WAL日志模式，生成的.db-wal、.db-shm临时文件也会遵循该路径设置，无需额外配置。

Free Pascal代码示例 #

如果你使用的是Free Pascal自带的TSQLite3Connection组件，可参考以下代码实现：

uses
  ..., SQLite3Conn, SysUtils;

procedure TMainForm.DataInit(Sender: TObject);
var
  UserHomeDir, TempDir: string;
begin
  // 获取当前用户家目录
  UserHomeDir := GetEnvironmentVariable('USERPROFILE');
  TempDir := UserHomeDir + '\MyMiniAppTemp\';
  // 自动创建临时目录（如果不存在）
  if not DirectoryExists(TempDir) then
    CreateDir(TempDir);

  // 配置SQLite连接
  SQLiteConnection.DatabaseName := ExtractFilePath(Application.ExeName) + 'data.db';
  SQLiteConnection.Params.Add('PRAGMA temp_store_directory = ' + QuotedStr(TempDir));
  // 可选：启用WAL模式提升写入性能
  SQLiteConnection.Params.Add('PRAGMA journal_mode = WAL;');
  // 打开连接
  SQLiteConnection.Open;
end;

内容的提问来源于stack exchange，提问作者Jirka