Class TCleanForm (unit cleaner) |
Inherits from
TForm
PROCEDURE CBtnClick(Sender: TObject);
****************************************************************************} {* App beenden *} {******************************************************************************} //CancelBtn Clicked
PROCEDURE DelBtnClick(Sender: TObject);
****************************************************************************} {* Dateien löschen *} {******************************************************************************} //DELETE Files IN List
PROCEDURE DirEditChange(Sender: TObject);
****************************************************************************} {* Wechseln des Suchverzeichnisses *} {******************************************************************************} //Change Working Dir
PROCEDURE FileFind1Terminated(Sender: TObject);
****************************************************************************} {* Dateisuche abgeschlossen,Ergebniss auswerten *} {******************************************************************************} //FILE search done.
PROCEDURE FormCreate(Sender: TObject);
Clean_It {******************************************************************************} {* Formerstellung *} {******************************************************************************} Create OF the MainForm
PROCEDURE FormDestroy(Sender: TObject);
****************************************************************************} {* Form schließen,Reg schreiben *} {******************************************************************************} //WRITE reg Entrys,CLOSE Form
PROCEDURE GetDirBtnClick(Sender: TObject);
****************************************************************************} {* Verzeichniss wählen *} {******************************************************************************} //Get Working-Dir
PROCEDURE ListBox1Click(Sender: TObject);
****************************************************************************} {* Auswerten der Dateiatt nach klick *} {******************************************************************************} //ListBox Entry Clicked.
PROCEDURE ListBox1DblClick(Sender: TObject);
****************************************************************************} {* Doppelklick in die Listbox,Eintrag entfernen *} {******************************************************************************} //Remove Entry after Double-Click
PROCEDURE SButnClick(Sender: TObject);
****************************************************************************} {* Suchen der Dateien *} {******************************************************************************} //Search Files.
PROCEDURE Clean_It;
****************************************************************************} {* Weiterverarbeitung der Fileliste *} {******************************************************************************} //Processes the Filelist
CBtn : TButton;
Dcus : TCheckBox;
DelBtn : TButton;
DirEdit : TEdit;
dsk : TCheckBox;
Exes : TCheckBox;
FileFind1 : TFileFind;
GetDirBtn : TSpeedButton;
GroupBox1 : TGroupBox;
LABEL1 : TLabel;
LABEL2 : TLabel;
ListBox1 : TListBox;
Panel1 : TPanel;
SButn : TButton;
StatusBar : TStatusBar;
SubDirs : TCheckBox;
MyReg : TRegIniFile;
StrHolder : TStrings;
Private-Deklarationen
PROCEDURE CBtnClick(Sender: TObject);
****************************************************************************} {* App beenden *} {******************************************************************************} //CancelBtn Clicked
PROCEDURE DelBtnClick(Sender: TObject);
****************************************************************************} {* Dateien löschen *} {******************************************************************************} //DELETE Files IN List
PROCEDURE DirEditChange(Sender: TObject);
****************************************************************************} {* Wechseln des Suchverzeichnisses *} {******************************************************************************} //Change Working Dir
PROCEDURE FileFind1Terminated(Sender: TObject);
****************************************************************************} {* Dateisuche abgeschlossen,Ergebniss auswerten *} {******************************************************************************} //FILE search done...
PROCEDURE FormCreate(Sender: TObject);
Clean_It {******************************************************************************} {* Formerstellung *} {******************************************************************************} Create OF the MainForm
PROCEDURE FormDestroy(Sender: TObject);
****************************************************************************} {* Form schließen,Reg schreiben *} {******************************************************************************} //WRITE reg Entrys,CLOSE Form
PROCEDURE GetDirBtnClick(Sender: TObject);
****************************************************************************} {* Verzeichniss wählen *} {******************************************************************************} //Get Working-Dir
PROCEDURE ListBox1Click(Sender: TObject);
****************************************************************************} {* Auswerten der Dateiatt nach klick *} {******************************************************************************} //ListBox Entry Clicked...
PROCEDURE ListBox1DblClick(Sender: TObject);
****************************************************************************} {* Doppelklick in die Listbox,Eintrag entfernen *} {******************************************************************************} //Remove Entry after Double-Click
PROCEDURE SButnClick(Sender: TObject);
****************************************************************************} {* Suchen der Dateien *} {******************************************************************************} //Search Files...
PROCEDURE Clean_It;
****************************************************************************} {* Weiterverarbeitung der Fileliste *} {******************************************************************************} //Processes the Filelist
CBtn : TButton;
Dcus : TCheckBox;
DelBtn : TButton;
DirEdit : TEdit;
dsk : TCheckBox;
Exes : TCheckBox;
FileFind1 : TFileFind;
GetDirBtn : TSpeedButton;
GroupBox1 : TGroupBox;
LABEL1 : TLabel;
LABEL2 : TLabel;
ListBox1 : TListBox;
Panel1 : TPanel;
SButn : TButton;
StatusBar : TStatusBar;
SubDirs : TCheckBox;
MyReg : TRegIniFile;
StrHolder : TStrings;
Private-Deklarationen