2012-09-08 01:27:35 -07:00
|
|
|
Unit MUTIL_MsgPack;
|
|
|
|
|
|
|
|
|
|
{$I M_OPS.PAS}
|
|
|
|
|
|
|
|
|
|
Interface
|
|
|
|
|
|
|
|
|
|
Procedure uPackMessageBases;
|
|
|
|
|
|
|
|
|
|
Implementation
|
|
|
|
|
|
|
|
|
|
Uses
|
|
|
|
|
m_Strings,
|
|
|
|
|
mUtil_Common,
|
|
|
|
|
mUtil_Status;
|
|
|
|
|
|
|
|
|
|
Procedure uPackMessageBases;
|
|
|
|
|
Begin
|
|
|
|
|
ProcessName ('Packing Message Bases', True);
|
|
|
|
|
ProcessResult (rWORKING, False);
|
|
|
|
|
|
2012-09-24 20:57:45 -07:00
|
|
|
ProcessStatus ('Removed X Msgs in X Bases', True);
|
2012-09-08 01:27:35 -07:00
|
|
|
ProcessResult (rDONE, True);
|
|
|
|
|
End;
|
|
|
|
|
|
|
|
|
|
End.
|
