bestlong 怕失憶論壇

標題: 在 Delphi 中使用臨時的目錄或檔案 [打印本頁]

作者: bestlong    時間: 2006-6-23 16:58     標題: 在 Delphi 中使用臨時的目錄或檔案

编程時也許需要產生一些臨時文件,但這些文件最好是有唯一的文件名才不會產生衝突,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.   // 獲取臨時目錄名稱即 DOS 環境變數 Temp 所指向的目錄
  11.   GetTempPath(40,Pbuf);
  12.   Edit1.Text:=String(PBuf);
  13.   GetTEmpFileName(PBuf,'',0,PFile);
  14.   Edit2.Text:=String(PFile);
  15. end;
複製代碼

作者: bestlong    時間: 2010-5-26 21:23

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




歡迎光臨 bestlong 怕失憶論壇 (http://www.bestlong.idv.tw/) Powered by Discuz! X1.5