fm_deleteproject.pas

档案资料管理系统

unit FM_DeleteProject;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TFM_DeleteProject1 = class(TForm)
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure GetDirectories(Directory: string; IncludeFiles: boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FM_DeleteProject1: TFM_DeleteProject1;

implementation
{$R *.dfm}

procedure TFM_DeleteProject1.FormCreate(Sender: TObject);
var
 ProjectName:TSearchRec;
 ProjectNamePath:string;
begin
 ProjectNamePath:=ExtractFilePath(Application.ExeName)+'\'+'Project'+'\';
 if ProjectNamePath[length(ProjectNamePath)] <> '\' then
    ProjectNamePath := ProjectNamePath+ '\';
 if FindFirst(ProjectNamePath + '*.*',faDirectory,ProjectName) = 0 then
    begin
     repeat
      if (ProjectName.Attr and faDirectory = faDirectory) and (ProjectName.Name[1] <> '.') then
          begin
           if (ProjectName.Attr and faDirectory > 0) then
              ComBoBox1.AddItem(ProjectName.Name,nil);
           end;
     until FindNext(ProjectName) <> 0;
     FindClose(ProjectName);
   end;
end;

procedure TFM_DeleteProject1.BitBtn1Click(Sender: TObject);
begin
  if ComBoBox1.Text='' then
     Application.MessageBox('请选择要删除的项目','真诚提醒您',MB_OK or MB_ICONINFORMATION)
  else
     begin
      if Application.MessageBox(PChar('确实要删除 【'+ComboBox1.text+'】 吗？'),'真诚提醒您',MB_YESNO or MB_ICONQUESTION )=IDYes then
         begin
          GetDirectories(ExtractFilePath(Application.ExeName)+'\'+'Project'+'\'+ComboBox1.text,True);
          Close;
         end;
     end;
end;
procedure TFM_DeleteProject1.GetDirectories(Directory: string;
  IncludeFiles: boolean);
var
 SearchRec: TSearchRec;
begin
 if Directory[length(Directory)] <> '\' then
    Directory := Directory + '\';
 if FindFirst(Directory + '*.*',faDirectory,SearchRec) = 0 then
    begin
     repeat
      if (SearchRec.Attr and faDirectory = faDirectory) and (SearchRec.Name[1] <> '.') then
          begin
           if (SearchRec.Attr and faDirectory > 0) then
              begin
               GetDirectories(Directory + SearchRec.Name,IncludeFiles);
              end;
          end
       else if IncludeFiles then
             if SearchRec.Name[1] <> '.' then
               begin
                DeleteFile(Directory+SearchRec.Name);
               end;
     until FindNext(SearchRec) <> 0;
    FindClose(SearchRec);
   end;
 RemoveDirectory(PChar(Directory));
end;
end.