如何删掉opendialog打开目录下的文件？

hymnfish 2005-01-20 11:46:26

现用opendialog打开某个目录,例如我指定了该目录已经存在的123.xxx文件

如何删掉它~求教

...全文

70 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

hymnfish 2005-01-20

打赏
举报

谢谢各位

才子鸣 2005-01-20

打赏
举报

上面的，都对
UP

pilicat 2005-01-20

打赏
举报

if FileExists(OpenDialog1.FileName) then
if DeleteFile (OpenDialog1.FileName) then
ShowMessage('文件:“'+OpenDialog1.FileName+'”删除成功！')
else
ShowMessage('删除文件：“'+OpenDialog1.FileName+'”失败！');

Sorder 2005-01-20

打赏
举报

if fileexists(opendialog1.fileName) then
DeleteFile (opendialog1.fileName);

qiujsh 2005-01-20

打赏
举报

DeleteFile ( PChar(opendialog1.fileName) );

syl79 2005-01-20

打赏
举报

uses Windows;
...
DeleteFile (opendialog1.fileName);

{* 打开文件属性窗口} function OpenDialog(var FileName: string; Title: string; Filter: string; Ext: string): Boolean; {* 打开文件框} function FormatPath(APath: string; Width: Integer): string; {* ...

{* 打开文件属性窗口} function CreatePath(path : string) : Boolean; function OpenDialog(var FileName: string; Title: string; Filter: string; Ext: string): Boolean; {* 打开文件框} function ...

this.openFileDialog1.Title = "打开文件"; //设置默认路径 this.openFileDialog1.InitialDirectory = "d:\\"; //设置文件类型 this.openFileDialog1.Filter = "心语文件*.dxl|*.dxl|文本文件*.txt|*.txt|所有...

从打开文件对话框打开文件 procedure TFrmMain.openClick(Sender: TObject); begin if OpenDialog1.Execute then begin OpenFile(OpenDialog1.FileName); RecentMenu.Visible: = true; end ; end ...

获取临时文件路径(支持安卓、IOS)function GeFileName(const AFileName: string): string;begin{$IFDEF ANDROID}Result := TPath.GetTempPath + ‘/‘ + AFileName;{$ELSE}{$IFDEF IOS}Result := TPath.GetHomePath ...

Delphi

5,386

社区成员

262,729

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章