vs_version.pas

KSDev.VirtualSream.v1.01.rar 虚拟文件系统,

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

  Virtual Stream
  Copyright (C) 2004-2006 by Eugene Kryukov
  All rights reserved

  See License.txt for licence information

  $Id: vs_version.pas,v 1.1.1.1 2006/09/26 09:49:37 eugene Exp $

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

unit vs_version;

{$I vs_define.inc}

interface

const
  SVirtualStreamVersion = '1.01';
  SVirtualStreamVersionPropText = 'VirtualStream version ' + SVirtualStreamVersion;

type

  TVirtualStreamVersion = string;

const
  Sig: PChar = '- ' + SVirtualStreamVersionPropText +
    {$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) 2004-2006 by Eugene Kryukov -';

procedure ShowVersion;
procedure ShowVersion2;

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

uses Forms, Dialogs, SysUtils;

procedure ShowVersion;
const
  AboutText =
    '%s'#13#10 +
    'Copyright (C) 2004-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 VirtualStream:'#13#10 +
    'http://www.ksdev.com/';
begin
  MessageDlg(Format(AboutText, [SVirtualStreamVersionPropText]), mtInformation, [mbOK], 0);
end;

procedure ShowVersion2;
const
  AboutText =
    'This application uses a trial version of VirtualStream.'#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 VirtualStream:'#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, [SVirtualStreamVersionPropText]), mtInformation, [mbOK], 0, X, Y);
end;

initialization
  Sig := Sig;
end.