{ SERIAL.INC: Routine om de Compile Date & Time in de .EXE te zetten }

{==========================================================================}
{ (c) Copyright Waterline Software Developent V.O.F. 1990-1994             }
{                                                                          }
{    Waterline Software Development V.O.F.                                 }
{    Wouter Sluislaan 12                                                   }
{    1461 AC  Zuidoostbeemster                                             }
{    The Netherlands                                                       }
{                                                                          }
{ It not allowed to use this user interface in any program not owned by    }
{ the Waterline Software Development V.O.F.                                }
{ Special conditions apply to programs distributed by the Waterline        }
{ Software Development V.O.F. If the source code of any of these programs  }
{ is distributed as well, it is NOT allowed to use the user interface in   }
{ your own programs. Violators may be prosecuted!                          }
{                                                                          }
{ Please contact the Waterline Software Development V.O.F. at the above    }
{ address for your licence to use the "Ramon" user interface. You will get }
{ the most recent copy of the "Ramon" user interface and the "Ramon" user  }
{ interface expert for free. This program helps you design your user       }
{ interfaces at an instance.                                               }
{                                                                          }
{ This copyright notice should remain in this file and all files that are  }
{ part of the user interface "Ramon".                                      }
{==========================================================================}

{---------------------------------------------------------------------------}
{ Serialize                                                                 }
{                                                                           }
{ Deze routine kan alleen vanuit Ramon aangeroepen worden en veranderd de   }
{ constante CompileDateAndTime zodat daar de huidige datum en tijd in komt  }
{ te staan.                                                                 }
{ Dit is eigenlijk de First-RunTime Date&Time, dus kan je er een soort van  }
{ serialization mee doen... Maar dan kan ook gewoon deze routine uitgebreid }
{ worden. Eventueel met het zoeken naar een key file...                     }
{                                                                           }
PROCEDURE Serialize;
VAR Search : SearchRec;
    DT     : Dos.DateTime;

BEGIN
     { get executable date and time and store in CompiledDataAndTime }
     FindFirst (ParamStr (0),{saJustFiles}$21,Search);
     UnPackTime (Search.Time,DT);
     CompileDateAndTime:=AddUpWithPre0s (2,Byte2String (DT.Day))+'/'+
                         AddUpWithPre0s (2,Byte2String (DT.Month))+'/'+
                         Word2String (DT.Year)+' '+
                         AddUpWithPre0s (2,Byte2String (DT.Hour))+':'+
                         AddUpWithPre0s (2,Byte2String (DT.Min))+':'+
                         AddUpWithPre0s (2,Byte2String (DT.Sec));
{$IFDEF PLATFORM_OS2}
     FindClose (Search); { RAWI 970608 }
{$ENDIF}
END;
