?? vs_version.pas
字號:
{==============================================================================
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 +
'support@ksdev.com';
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -