如何取得暫存目錄的路徑

bestlong

可以用讀取系統變數 TEMP 或是 TMP 的方式：

1. uses SysUtils;
   
2. 
   
3. t := GetEnvironmentVariable('TEMP');

複製代碼

另外也可以用 GetTempPath API function 取得, 不過直接使用比較麻煩所以用函數包裝一下：

1. uses SysUtils;
   
2. 
   
3. function GetTempDirectory: String;
   
4. var
   
5.   tempFolder: array[0..MAX_PATH] of Char;
   
6. begin
   
7.   GetTempPath(MAX_PATH, @tempFolder);
   
8.   result := StrPas(tempFolder);
   
9. end;

複製代碼

這樣就可以簡單的用呼叫函數的方式應用：

1. t := GetTempDirectory;

複製代碼

bestlong

若是程式可以同時多次執行的話, 用相同的暫存目錄能會有問題時, 可以再增加利用 Process identifier 的數值加一層目錄來區分, 路徑取得方法如下：

1. t := GetTempDirectory + IntToStr(GetCurrentProcessId) + '\';

複製代碼

不過這個路徑就不一定會存在, 需要自行檢查與建立

bestlong

在 Delphi 中使用臨時的目錄或檔案
http://www.bestlong.idv.tw/thread-27-1-1.html

bestlong

另一個產生唯一暫存路徑的方式
可以用產生 GUID 數值然後轉成 String 的做法

bestlong

From http://zh-tw.how-to.mobi/index.php?id=272783

1. function GetTemporaryFileName:string;
   
2. var
   
3.   Path, FileName: array[0..MAX_PATH] of Char;
   
4. begin
   
5.   Win32Check(GetTempPath(MAX_PATH, Path) <> 0);   
   
6.   Win32Check(GetTempFileName(Path, '~EX', 0, FileName) <> 0);
   
7.   Result:=String(Filename);
   
8. end;

複製代碼