Initial import

2012-09-08 04:27:52 -04:00 · 2012-09-08 04:27:52 -04:00 · ad87c0f37c
parent 3a26437756
commit ad87c0f37c
1 changed files with 28 additions and 0 deletions
--- a/mystic/mutil_allfiles.pas
+++ b/mystic/mutil_allfiles.pas
@ -0,0 +1,28 @@
+Unit MUTIL_AllFiles;
+
+{$I M_OPS.PAS}
+
+Interface
+
+Procedure uAllFilesList;
+
+Implementation
+
+Uses
+  m_Strings,
+  mUtil_Common,
+  mUtil_Status;
+
+Const
+  AddedFiles : Cardinal = 0;
+
+Procedure uAllFilesList;
+Begin
+  ProcessName   ('Generating AllFiles List', True);
+  ProcessResult (rWORKING, False);
+
+  ProcessStatus ('Added |15' + strI2S(AddedFiles) + ' |07file(s)');
+  ProcessResult (rDONE, True);
+End;
+
+End.