编程时也许需要产生一些临时文件，但这些文件最好是有唯一的文件名才不会产生冲突，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.