科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道基础软件Delphi编程创建和删除文件夹

Delphi编程创建和删除文件夹

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

本实例介绍如何在程序中创建文件夹,并且可以将新创建的文件夹删除到回收站中。

作者:佚名 来源:网狐 2007年10月31日

关键字: Delphi 创建 删除 文件夹

  • 评论
  • 分享微博
  • 分享邮件
本实例介绍如何在程序中创建文件夹,并且可以将新创建的文件夹删除到回收站中。

  向窗体上添加两个TButton组件,一个用于创建新的文件夹,另一个用于删除新创建的文件夹,设计完成的窗体如图1所示。


图1 主界面

  首先在程序的uses段中添加对ShellApi的引用,另外还要在“创建”按钮的响应过程中添加下列代码:

procedure TForm1.btnCreateClick(Sender: TObject);
begin
 CreateDirectory(PChar(ExtractFilePath(ParamStr(0))+’Test’),nil);
end;

  程序运行初期就会执行CreateDirectory(PChar(ExtractFilePath(ParamStr(0))+’Test’),nil)语句,在程序实例所在的目录中创建一个子目录test。

  在程序运行过程中,单击“删除”按钮就可以将新创建的test子目录删除,响应代码如下:

procedure TForm1.btnDeleteClick(Sender: TObject);
var
 T:TSHFileOpStruct;
 P:String;
begin
 P:=ExtractFilePath(ParamStr(0))+’Test’;
 with T do
 begin
  Wnd:=0;
  wFunc:=FO_DELETE;
  pFrom:=PChar(P);
  pTo:=nil;
  fFlags:=FOF_ALLOWUNDO+FOF_NOERRORUI;
  hNameMappings:=nil;
  lpszProgressTitle:=’正在删除文件夹’;
  fAnyOperationsAborted:=False;
 end;
 SHFileOperation(T);
end;

  程序通过填充TSHFileOpStruct 类型的对象T的属性来设置本次删除操作可以Undo,当然最终的删除操作是通过SHFileOperation(T)来完成的。如果SHFileOperation函数返回值为0,就表示删除成功,否则表示删除失败。

  如果用户在程序中想要直接删除test子目录,可以直接通过调用RemoveDirectory (Pchar(ExtractFilePath(ParamStr(0))+’Test’))语句来实现。

  程序代码如下:

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ShellApi;

type
 TForm1 = class(TForm)
 btnCreate: TButton;
 btnDelete: TButton;
 procedure btnCreateClick(Sender: TObject);
 procedure btnDeleteClick(Sender: TObject);
private
 { Private declarations }
public
 { Public declarations }
end;

var
 Form1: TForm1;
 implementation
 {$R *.dfm}

 procedure TForm1.btnCreateClick(Sender: TObject);
 begin
  CreateDirectory(PChar(ExtractFilePath(ParamStr(0))+’Test’),nil);
 end;

 procedure TForm1.btnDeleteClick(Sender: TObject);
 var
  T:TSHFileOpStruct;
  P:String;
 begin
  P:=ExtractFilePath(ParamStr(0))+’Test’;
  with T do
  begin
   Wnd:=0;
   wFunc:=FO_DELETE;
   pFrom:=PChar(P);
   pTo:=nil;
   fFlags:=FOF_ALLOWUNDO+FOF_NOERRORUI;
   hNameMappings:=nil;
   lpszProgressTitle:=’正在删除文件夹’;
   fAnyOperationsAborted:=False;
  end;
  SHFileOperation(T);
  //RemoveDirectory(PChar(ExtractFilePath(ParamStr(0))+’Test’));
 end;
end.

  保存文件,然后按F9键运行程序,程序运行的初始画面如图2所示。


图2 程序运行的初始画面

  单击“创建”按钮就会在程序实例所在的目录中创建一个子目录test,单击“删除”按钮就可以将新创建的test子目录删除。

  本实例介绍了如何创建文件夹,并且为删除文件夹提供了两种途径——一种是删除文件夹到回收站中,另外一种就是直接删除。

查看本文来源

    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章