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.