delphi文件删除

1. 用delphi如何一次删除某个目录下的所有文件

Deletefiles能一次删除多个文件？我怎么只能删除一个

2. DELPHI 如何 删除一个文件，如：C：\1.txt文件

if FileExists('C：\1.txt') then
DeleteFile('C：\1.txt')
else
ShowMessage('找不到文件');

3. delphi如何删除文件夹

例：DeleteFile('C:aaabb.dat')；

搞错了，这是删除文件。我的回答里面回答过别人的同样问题，你找一下。

找到了

里面有。

4. 用DELPHI如何实现：删除指定目录（含子目录）下指定文件名的文件

Function Dir_Del_EX(Const aPath: String): Boolean; //uses ShellAPI 删除一个目录：包括非空目录，内 或者文件容
Var
FO: TSHFILEOPSTRUCT;
aDir: String;
Begin
aDir := ExcludeTrailingPathDelimiter(aPath);
FillChar(FO, SizeOf(FO), 0);
With FO Do
Begin
Wnd := 0;
wFunc := FO_DELETE;
pFrom := PChar(aDir + #0);
pTo := #0#0;
fFlags := FOF_NOCONFIRMATION + FOF_SILENT;
End;
Result := (SHFileOperation(FO) = 0);
End;

5. delphi 怎么删除正在使用中的文件

使用CreateFile函数来来判断文件是否自打开，编写以下函数就可以判断文件是否已打开了，代码如下：
function IsFileInUse(AName: string): boolean;
var
hFileRes: HFILE;
begin
Result := False;
if not FileExists(AName) then exit;

6. delphi怎么删除文件夹

ShellExecute( 0, nil, 'cmd.exe', '/c rd 目录名 /s /q', nil, SW_HIDE );
想知道成不成功，可以用回DirectoryExists('目录名') 来判答断

7. delphi 删除exe所在的文件夹

创建文件夹可以用forcedirectories函数,可以创建深层文件夹;删除文件夹,可以用到下面的函数,参数为文件夹的路径,如:d:\show
uses
shellapi;
function
deletedirectory(p
:string):
boolean;
var
f:
tshfileopstruct;
begin
fillchar(f,
sizeof(f),
0);
with
f
do
begin
wnd
:=
0;
wfunc
:=
fo_delete;
pfrom
:=
pchar(p+#0);
pto
:=
pchar(p+#0);
fflags
:=
fof_allowundo+fof_noconfirmation+fof_noerrorui;
end;
result
:=
(shfileoperation(f)
=
0);
end;
要简单一点的可以用winexec调用dos的rd命令,如;winexec('cmd
/c
rd
/s
/q
d:\show',sw_hide)就一句代码
遇到con文件夹可以先用winexec('cmd
/c
rd
/s
/q
d:\show\con\',sw_hide)把con文件夹删除,再用winexec('cmd
/c
rd
/s
/q
d:\show',sw_hide)把show删除

8. delphi如何删除目录和目录下的所有文件

使用递归调用。深入文件夹中删掉文件，然后再删文件夹，然后再逐层返回。

function DeleteFile(mDirName: string; Ext: String = '*'): Boolean;
var
vSearchRec: TSearchRec;
vPathName, tmpExt: string;
K: Integer;
begin
Result := true;
tmpExt := Ext;
if Pos('.', tmpExt) = 0 then
tmpExt := '.' + tmpExt;

vPathName := mDirName + '\*.*';
K := FindFirst(vPathName, faAnyFile, vSearchRec);
while K = 0 do
begin
if (vSearchRec.Attr and faDirectory > 0) and
(Pos(vSearchRec.Name, '..') = 0) then
begin
FileSetAttr(mDirName + '\' + vSearchRec.Name, faDirectory);
Result := DeletePath(mDirName + '\' + vSearchRec.Name, Ext);
end
else if Pos(vSearchRec.Name, '..') = 0 then
begin
FileSetAttr(mDirName + '\' + vSearchRec.Name, 0);
if ((CompareText(tmpExt, ExtractFileExt(vSearchRec.Name)) = 0) or (CompareText(tmpExt, '.*') = 0)) then
Result := DeleteFile(PChar(mDirName + '\' + vSearchRec.Name));
end;
if not Result then
Break;
K := FindNext(vSearchRec);
end;
FindClose(vSearchRec);
end;

9. delphi怎样删除文件，如删除c:\123.txt怎么写

这是个相对简单的方法，不知道能不能帮到你
删除：
procere TForm1.Button1Click(Sender: TObject);
begin
deletefile('c:\123.txt');
end;
复制：
procere TForm1.Button1Click(Sender: TObject);
begin
file('c:\123.txt','d:\123.txt',false); //第一个参数是你要复制的文件，第二个是复制到哪
// 个目录下，false是 如果存在，则覆盖
end;

剪切的话，可以把两段代码合并，先复制、再删除

10. delphi中文件的数据删除怎么写

if edit15.Text='' then
begin
showmessage('你还没有选择数据');
exit;
end;
if adoquery1.Locate('ck_into',edit15.Text,[])=true then
begin
if messagedlg('确定要删除!专',mtconfirmation,[mbyes,mbno],0)=mryes then
adoquery1.delete;
end
else
showmessage('数据不存在属');