loginaboutunit.pas

传奇3.0私服登录器源码

unit LoginAboutUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, se_controls, KsSkinForms, KsSkinEngine, KsSkinButtons, StdCtrls,
  ksskinstdcontrol, KsSkinLabels,shellapi;

type
  TFrmLgoinAbout = class(TForm)
    memo: TSeSkinMemo;
    BtnOk: TSeSkinButton;
    LblProgramName: TSeSkinLabel;
    LblProgramVersion: TSeSkinLabel;
    LblAuthor: TSeSkinLabel;
    lblAuthor1: TSeSkinLabel;
    lblEmail: TSeSkinLabel;
    SeSkinForm1: TSeSkinForm;
    LblQQ: TSeSkinLabel;
    procedure BtnOkClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure lblEmailMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure lblEmailMouseLeave(Sender: TObject);
    procedure lblEmailClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmLgoinAbout: TFrmLgoinAbout;

implementation

uses LoginUnit;

{$R *.dfm}

procedure TFrmLgoinAbout.BtnOkClick(Sender: TObject);
begin
  close;
end;

procedure TFrmLgoinAbout.FormCreate(Sender: TObject);
begin
  lblprogramversion.Caption :='版本：'+frmLogin.Ver.FileVersion ;
end;

procedure TFrmLgoinAbout.lblEmailMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  lblemail.Font.Color:=clblue;
 
end;

procedure TFrmLgoinAbout.lblEmailMouseLeave(Sender: TObject);
begin
  lblemail.Font.Color :=clWindowText;
end;

procedure TFrmLgoinAbout.lblEmailClick(Sender: TObject);
begin
shellExecute(GetDesktopWindow,'Open',PChar('mailto:[e-mail]?subject=传奇私服登录程序的建议或BUG报告'),
              nil,nil,SW_ShowNormal);
end;

end.