在 Delphi 中使用臨時的目錄或檔案

bestlong

编程時也許需要產生一些臨時文件，但這些文件最好是有唯一的文件名才不會產生衝突，Windows API 提供了這一函数，具體用法如下，記得退出之後，要把臨時目錄下一些的臨時文件刪掉。

1. procedure TForm1.Button1Click（Sender: TObject）;
   
2. var
   
3.   Buf: string[40];
   
4.   Pbuf: Pchar;
   
5.   TmpFileName: String[40];
   
6.   PFile: PChar;
   
7. begin
   
8.   PBuf  := @buf;
   
9.   PFile := @fileName;
   
10. 
    
11.   // 獲取臨時目錄名稱即 DOS 環境變數 Temp 所指向的目錄
    
12.   GetTempPath（40,Pbuf）;
    
13.   Edit1.Text:=String（PBuf）;
    
14.   GetTEmpFileName（PBuf,'',0,PFile）;
    
15.   Edit2.Text:=String（PFile）;
    
16. end;

複製代碼

bestlong

如何取得暫存目錄的路徑
http://www.bestlong.idv.tw/thread-725-1-1.html