如何建立临时文件？(50分)

H

heroxiao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-11

• #1

请问如何建立一个临时文件？在关机或该程序关闭后自动删除？

 

D

duhai_lee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-11

• #2

var
St: TstringList;
begin
St := TStringlist.create;
st.add('aa');
st.savetofile('c:/a.txt');
....
st.free;
deletefile('c:/a.txt');
end;

 

H

heroxiao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-11

• #3

to duhai_lee
这样做如果在电脑非法关机比如突然断电时，该文件还在存在。。。

 

B

bjaman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-11

• #4

加二句，以保证此文件总是临时文件
var
St: TstringList;
begin
St := TStringlist.create;
st.add('aa');
if fileExist('c:/a.txt') then
-----------------------------------
deletefile('c:/a.txt');
------------------------------------
st.savetofile('c:/a.txt');
....
st.free;
deletefile('c:/a.txt');
end;

 

P

ProLove

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-11

• #5

这个问题的关键就是检查关机状态呀,检查到关机就删除就行了,或开机启动时自动删除也成,放到启动里就行了,检查关机网上可以查到

 

李

李翔鹏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-11

• #6

filename := 'C:/ABC.TXT';
if not FileExists(filename) then
begin
assign(f, filename);
rewrite(f);
Writeln(f, '你好！');
Writeln(f, '我不好！');
close(f);
end;
deletefile(filename);

 

D

dreamisx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-11

• #7

你可以用TStringList, TMemoryStream，并且不存到文件，那不管断电什么的，都不会在硬盘上留有痕迹；
或者存到系统临时目录中（可用GetTempPath取到系统临时目录），每次启动程序时就删除一下，关闭时也删一下。

 

H

heroxiao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-11

• #8

现在好象还是不能解决非法关机的时候自动删除文件。。。能否建立成tmp文件？但

 

Z

zqw0117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-11

• #9

GetTempFile
API

 

龙

龙之吻

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-11

• #10

建议每次启动程序或要用到临时文件的时候删除一下
要是突然断电呢你也指望系统为你把临时文件删掉么？

 

H

heroxiao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-12

• #11

多人接受答案了。