aboutunit.pas

来自「传奇2...飘飘M2的源码.曾经是传奇"龙"版用得最好的M2程序.完整M2源码」· PAS 代码 · 共 62 行

unit AboutUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TFrmAbout = class(TForm)
    ButtonOK: TButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    EditProductName: TEdit;
    EditVersion: TEdit;
    EditUpDateTime: TEdit;
    EditProgram: TEdit;
    EditWebSite: TEdit;
    EditBbsSite: TEdit;
    procedure ButtonOKClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Open();
  end;

var
  FrmAbout: TFrmAbout;

implementation
uses EncryptUnit, M2Share, Common;
{$R *.dfm}
procedure TFrmAbout.Open();
const
  nUseKey = 240621028;
begin
  EditProductName.Text := DecodeString_3des(g_sProductName, IntToStr(nUseKey));
  EditVersion.Text := Format(DecodeString_3des(g_sVersion, IntToStr(nUseKey)), [0]);
  EditUpDateTime.Text := DecodeString_3des(g_sUpDateTime, IntToStr(nUseKey));
  EditProgram.Text := DecodeString_3des(g_sProgram, IntToStr(nUseKey));
  EditWebSite.Text := DecodeString_3des(g_sWebSite, IntToStr(nUseKey));
  EditBbsSite.Text := DecodeString_3des(g_sBbsSite, IntToStr(nUseKey));
  ShowModal;
end;

procedure TFrmAbout.ButtonOKClick(Sender: TObject);
begin
  Close;
end;

end.