产生临时文件
2000-03-19 00:00:00·
-·开天辟地
编程时也许需要产生一些临时文件，但这些文件最好是有唯一的文件名才不会产生冲突，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.
|
