bever.pas

来自「KSDev.BlockEngine.v3.03.rar 界面控件」· PAS 代码 · 共 90 行

{==============================================================================

  BlockEngine Version
  Copyright (C) 2000-2002 by Evgeny Kryukov
  All rights reserved

  All conTeThements of this file and all other files included in this archive
  are Copyright (C) 2002 Evgeny Kryukov. Use and/or distribution of
  them requires acceptance of the License Agreement.

  See License.txt for licence information

  $Id: bever.pas,v 1.2 2006/11/02 17:03:13 eugene Exp $

===============================================================================}

unit bever;

{$I be_define.inc}

interface

const
  SBlockEngineVersion = '3.03';
  SBlockEngineVersionPropText = 'BlockEngine version ' + SBlockEngineVersion;

type

  TBlockEngineVersion = string;

const
  Sig: PChar = '- ' + SBlockEngineVersionPropText +
    {$IFDEF KS_CBUILDER4} ' - CB4 - ' + {$ENDIF}
    {$IFDEF KS_DELPHI4} ' - D4 - '+ {$ENDIF}
    {$IFDEF KS_CBUILDER5} ' - CB5 - '+ {$ENDIF}
    {$IFDEF KS_DELPHI5} ' - D5 - '+ {$ENDIF}
    {$IFDEF KS_CBUILDER6} ' - CB6 - '+ {$ENDIF}
    {$IFDEF KS_DELPHI6} ' - D6 - '+ {$ENDIF}
    {$IFDEF KS_CBUILDER7} ' - CB7 - '+ {$ENDIF}
    {$IFDEF KS_DELPHI7} ' - D7 - '+ {$ENDIF}
    'Copyright (C) 2003-2006 by Eugene Kryukov -';

procedure ShowVersion;
procedure ShowVersion2;

implementation {===============================================================}

uses Forms, Dialogs, SysUtils;

procedure ShowVersion;
const
  AboutText =
    '%s'#13#10 +
    'Copyright (C) 2003-2006 by Eugene Kryukov'#13#10 +
    'For conditions of distribution and use, see LICENSE.TXT.'#13#10 +
    #13#10 +
    'Visit our web site for the latest versions of BlockEngine:'#13#10 +
    'http://www.ksdev.com/';
begin
  MessageDlg(Format(AboutText, [SBlockEngineVersionPropText]), mtInformation, [mbOK], 0);
end;

procedure ShowVersion2;
const
  AboutText =
    'This application uses a trial version of BlockEngine.'#13#10#13#10 +
    'Please contact the provider of the application for a registered version.'#13#10 +
    #13#10+
    '%s'#13#10 +
    'Copyright (C) 2004-2006 by Eugene Kryukov'#13#10 +
    #13#10 +
    'For conditions of distribution and use, see LICENSE.TXT.'#13#10 +
    #13#10 +
    'Visit our web site for the latest versions of BlockEngine:'#13#10 +
    #13#10 +
    'http://www.ksdev.com/' +
    #13#10 +
    '[e-mail]';
var
  X, Y: integer;
begin
  X := Random(Screen.Width - 400);
  Y := Random(Screen.Height - 200);
  MessageDlgPos(Format(AboutText, [SBlockEngineVersionPropText]), mtInformation, [mbOK], 0, X, Y);
end;

initialization
  Sig := Sig;
end.