请教如何删除文件

Question

FileExists(sFile: String)
DeleteFile(sFile:String)

Answer 1

if FileExists('E:\hh.txt') then
DeleteFile('E:\hh.txt')

Answer 2

ｃｒｅａｔｅｆｉｌｅ（）
FileExists(sFile: String)
DeleteFile(sFile:String)

Answer 3

shfileoperation 可以将文件删除到回收站中
用法为
program del;uses ShellApi;
{ 利用ShellApi中: function SHFileOperation(const lpFileOp: TSHFileOpStruct): Integer; stdcall; }Var T:TSHFileOpStruct;
P:String;
begin
P:='C:\Windows\System\EL_CONTROL.CPL';
With T do
Begin
Wnd:=0;
wFunc:=FO_DELETE;
pFrom:=Pchar(P);
fFlags:=FOF_ALLOWUNDO
End;
SHFileOperation(T);
End.