如何取得暫存目錄的路徑

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;

複製代碼