delphi创建和删除文件夹.docxVIP

首先在程序的uses段中添加对ShellApi的引用,程序代码如下: {—–介绍如何在程序中创建文件夹，并且可以将新创建的文件夹删除到回收站中。 unit Unit1; interface {----首- 先在程序的uses段中添加对ShellApi的引用 } uses Windows , Messages, SysUtil,sVariant,sClasse,sGraphic,s Control,sForms, Dialogs,ShellApi, StdCtrl;s type TForm1 = class(TForm ) Button1: TButton; Button2: TButton; procedure Button1Clic(Skender:TObject); procedure Button2Clic(Skender:TObject); private { Private declarations } public { Public declarations } end; var Form1 : TForm1; implementation {＄R *.dfm} //创建文件夹，在程序实例所在的目录中创建一个子目录wins。 procedure TForm1.Button1Clic(kSender:TObject); begin CreateDirecto(rPyCha