用 DELPHI 创建临时文件

用 DELPHI 创建临时文件 用Delphi创建临时文件 在用Delphi 3.0开发应用程序时,经常需要建立一个或多个临时文件方便程序的开发。用完后,可以将其删除。如何在Delphi 3.0 中创建临时文件,需要用到Windows的API函数GetTempFileName。下面将介绍该函数的格式和使用它创建临时文件的方法。 一、函数格式:(用VB说明) Private Declare Function GetTempFileName Lib "kernel32" Alias "GetTem pFileNameA" (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软件环境下运行通过。