TMUnit < wasn das ?

[Gast]

Hier mal der ganze Code vom Programm

Delphi-Quellcode:

unit mtifd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TMUNIT, StdCtrls, FileCtrl, Gauges, ComCtrls, ShellCtrls, Menus;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ShellTreeView1: TShellTreeView;
    GroupBox1: TGroupBox;
    Bilddateien: TCheckBox;
    Textdateien: TCheckBox;
    Videodateien: TCheckBox;
    Webdateien: TCheckBox;
    Gepacktedateien: TCheckBox;
    AlleDateien: TCheckBox;
    label1: TEdit;
    MainMenu1: TMainMenu;
    Datei1: TMenuItem;
    Beenden2: TMenuItem;
    Hilfe1: TMenuItem;
    Anleitung1: TMenuItem;
    Info1: TMenuItem;
    procedure Button1Click(Sender: TObject);
    procedure AlleDateienClick(Sender: TObject);
    procedure ShellTreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure Beenden2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  path: String;
  self: String;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  path := ShellTreeView1.SelectedFolder.PathName;

  if (Bilddateien.checked = true) then begin
    DateienLoeschen(path+'\','*.jpeg');
    DateienLoeschen(path+'\','*.jpg');
    DateienLoeschen(path+'\','*.jpe');
    DateienLoeschen(path+'\','*.jfif');
    DateienLoeschen(path+'\','*.bmp');
    DateienLoeschen(path+'\','*.gif');
    DateienLoeschen(path+'\','*.png');
    DateienLoeschen(path+'\','*.tif');
    DateienLoeschen(path+'\','*.psd');
    DateienLoeschen(path+'\','*.dib');
    DateienLoeschen(path+'\','*.tiff');
  end;

  if (Textdateien.checked = true) then begin
    DateienLoeschen(path+'\','*.doc');
    DateienLoeschen(path+'\','*.txt');
    DateienLoeschen(path+'\','*.rtf');
  end;

  if (Videodateien.checked = true) then begin
    DateienLoeschen(path+'\','*.mp3');
    DateienLoeschen(path+'\','*.wav');
    DateienLoeschen(path+'\','*.wmv');
    DateienLoeschen(path+'\','*.avi');
  end;

  if (Webdateien.checked = true) then begin
    DateienLoeschen(path+'\','*.htm');
    DateienLoeschen(path+'\','*.html');
    DateienLoeschen(path+'\','*.php');
    DateienLoeschen(path+'\','*.php3');
    DateienLoeschen(path+'\','*.php4');
    DateienLoeschen(path+'\','*.css');
  end;

  if (Gepacktedateien.checked = true) then begin
    DateienLoeschen(path+'\','*.rar');
    DateienLoeschen(path+'\','*.zip');
    DateienLoeschen(path+'\','*.ace');
    DateienLoeschen(path+'\','*.cab');
    DateienLoeschen(path+'\','*.tar');
    DateienLoeschen(path+'\','*.iso');
  end;

  if (AlleDateien.checked = true) then begin
    DateienLoeschen(path+'\','*.*');
  end;

end;

procedure TForm1.AlleDateienClick(Sender: TObject);
begin
  if (Alledateien.checked = true) then begin
    Bilddateien.Checked := true;
    Textdateien.Checked := true;
    Videodateien.Checked := true;
    Webdateien.Checked := true;
    Gepacktedateien.Checked := true;
  end;
end;

procedure TForm1.ShellTreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  path := ShellTreeView1.SelectedFolder.PathName;
  label1.text := path+'\';
end;

procedure TForm1.Beenden2Click(Sender: TObject);
begin
  close;
end;

end.