home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue68 / sync / FileGroupAdmin.dpr < prev    next >
Encoding:
Text File  |  2001-02-26  |  485 b   |  22 lines
  1. //TGpFileGroup demo - Administration part
  2.  
  3. program FileGroupAdmin;
  4. {$APPTYPE CONSOLE}
  5. uses
  6.   SysUtils,
  7.   GpFileSync;
  8.  
  9. var
  10.   grp: TGpFileGroup;
  11.   grpEmpty: boolean;
  12.  
  13. begin
  14.   grp := TGpFileGroup.Create('demo.grp');
  15.   try
  16.     if not grp.IsEmpty(5000,grpEmpty) then
  17.       grpEmpty := false; // cannot check group status - assume not empty
  18.     if not grpEmpty then
  19.       Writeln('At least one Application is running, be careful!');
  20.   finally FreeAndNil(grp); end;
  21. end.
  22.