在用Delphi 3.0开发应用程序时，经常需要建立一个或多个临时文件方便程序的开发。用完后，可以将其删除。如何在Delphi 3.0 中创建临时文件，需要用到Windows的API函数GetTempFileName。下面将介绍该函数的格式和使用它创建临时文件的方法。


　　一、函数格式：（用VB说明）


　　Private Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA" (ByVal lpszPath As String, ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As Long

　　参数说明: lpszPath参数表示创建新文件的路径名; lpPrefixString参数表示给定文件名的前缀; wUnique参数应设置为0,表示文件名称自动产生的随机号码; lpTempFileName参数表示一个字符串缓存区域,至少有256个字符长度存放临时文件的名称。


　　二、创建含有如下控件的窗体：

　　控件      CAPTION      FONT        SIZE


　　FORM1   建立临时文件


　　EDIT1        空


　　BUTTON1 建立临时文件   宋体          12


　　BUTTON2    退出        宋体          12

　　三、程序代码如下：


　　unit tempfiles;

　　interface

　　uses

　　 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

　　 StdCtrls;

　　type

　　 TForm1 = class(TForm)

　　 Edit1: TEdit;

　　 Button1: TButton;

　　 Button2: TButton;

　　 Label1: TLabel;

　　 procedure Button1Click(Sender: TObject);

　　 procedure Button2Click(Sender: TObject);

　　 private

　　 { Private declarations }

　　 public

　　 { Public declarations }

　　 end;

　　var

　　 Form1: TForm1;

　　implementation

　　{＄R ＊.DFM}

　　procedure TForm1.Button1Click(Sender: TObject);

　　var tempfilename:pchar;

　　 drivename:pchar;

　　begin

　　 drivename:=′c:′;

　　 getmem(tempfilename,256);

　　 gettempfilename(drivename,′text′,0,tempfilename);

　　 edit1.text:=tempfilename;

　　end;

　　procedure TForm1.Button2Click(Sender: TObject);

　　begin

　　 close;

　　end;

　　end.

　　按下F9键，执行本程序，单击“建立临时文件”按钮，在C盘当前目录下新创建的临时文件的文件名称显示在编辑框控件中。用资源管理器可以检查该临时文件是否存在。

　　以上程序在中文Windows 98，Delphi 3.0软件环境下运行通过。