如何取得暫存目錄的路徑

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

From http://www.programmer-club.com.t ... N/delphi/13815.html

1. procedure TForm1.Button1Click(Sender: TObject);
   
2. begin
   
3.   ShowMessage(Get_TempFileName);
   
4. end;
   
5. 
   
6. function TForm1.Get_TempFileName: String;
   
7. var
   
8.   TempFile,TempDir : array[1..256] of Char;
   
9.   Files,Dirs:PChar;
   
10. begin
    
11.   Files:=@TempFile;
    
12.   Dirs:=@TempDir;
    
13.   GetTEmpPath(256,dirs);
    
14.   GetTempFileName(dirs,'~Tmp',0,Files);
    
15.   Result:=Copy(Files,1,Length(Files));
    
16. end;

複製代碼

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;

複製代碼

bestlong

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

bestlong

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