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