aceutil.pas

来自「suite component ace report」· PAS 代码 · 共 30 行

unit AceUtil;

{ ----------------------------------------------------------------
  Ace Reporter
  Copyright 1995-1998 SCT Associates, Inc.
  Written by Kevin Maher, Steve Tyrakowski
  ---------------------------------------------------------------- }

interface
{$I ace.inc}
uses
  {$IFDEF WIN32}
    windows,
  {$ELSE}
    winprocs,wintypes,
  {$ENDIF}
   classes, AceTypes, graphics, acesetup;

const

{$define noVER_STANDARD}
{$define VER_PROFESSIONAL}
{$define noVER_TRIAL}

{$define VER_ACE}
{$define noVER_ZAC}
{$define noVER_DANYSOFT}


  demostring1 = 'Printed by Ace Reporter