Delphi中應用臨時文件

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

　unit frmCreateTempFile;

　interface

　uses
　  Windows, Messages, SysUtils, Classes, Graphics, Controls,
　　Forms, Dialogs,StdCtrls;

　type
　  TForm1 = class（TForm）
　    Button1: TButton;
　    Edit1: TEdit;
　    Edit2: TEdit;
　    procedure Button1Click（Sender: TObject）;
　  private
　    { Private declarations }
　  public
    { Public declarations }
  end;

　var
　  Form1: TForm1;

　implementation

　{$R *.DFM}

　procedure TForm1.Button1Click（Sender: TObject）;
　Var
　   Buf:string[40];
　   Pbuf:Pchar;
　   TmpFileName:String[40];
　   PFile:PChar;
　begin
　   PBuf:=@buf;
　   PFile:=@fileName;

　  　 //獲取臨時目錄名，即DOS環境變量Temp所指向的目錄
　   GetTempPath（40,Pbuf）;
　   Edit1.Text:=String（PBuf）;

　   GetTEmpFileName（PBuf,'',0,PFile）;
　   Edit2.Text:=String（PFile）;
   
　end;

　end.