welcome.pas.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

unit Welcome;

interface

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

type
  TWelcomeForm = class(TForm)
    Image1: TImage;
    lblVer: TLabel;
    lblHome: TLabel;
    lblEmail: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure lblHomeClick(Sender: TObject);
    procedure lblEmailClick(Sender: TObject);
  private
    { Private declarations }
  public
    AFlag:boolean;
    { Public declarations }
  end;

var
  WelcomeForm: TWelcomeForm;

implementation

uses CommFun;

{$R *.DFM}

procedure TWelcomeForm.FormCreate(Sender: TObject);
var
  AFlash:string;
begin
  //取得系统路径
  ASystemPath:=ExtractFilePath(Application.ExeName);
  if ASystemPath[Length(ASystemPath)]<>'\' then ASystemPath:=ASystemPath+'\';
  //取得程序版本号
  AVersion:=ReadIniFile(ASystemPath+'HwSYS.ini','General','Version',1);
  AHome:=ReadIniFile(ASystemPath+'HwSYS.ini','General','Home',1);
  AEmail:=ReadIniFile(ASystemPath+'HwSYS.ini','General','Email',1);
  lblVer.Caption:='Ver '+AVersion;
  AImgHandle:=LoadLibrary('ErpImg.Dll');
  case ALanguageID of
    2052:AFlash:='HWERP_GB';
    1028:AFlash:='HWERP_BIG';
    1033:AFlash:='HWERP_ENG';
  end;
  AVerPath:=ASystemPath;
  lblHome.Caption:=AHome;
  lblEmail.Caption:=AEmail;
  if not FileExists('.\Welcome.bmp') then
  begin
    Image1.Picture.Bitmap.LoadFromResourceName(AImgHandle,AFlash);
    AOEM:=False;
  end else
  begin
    Image1.Picture.Bitmap.LoadFromFile('.\Welcome.bmp');
    AOEM:=True;
  end;
//  SkinData1.LoadFromCollection(SkinStore1,0);
end;

procedure TWelcomeForm.Image1Click(Sender: TObject);
begin
  if AFlag then Close;
end;

procedure TWelcomeForm.lblHomeClick(Sender: TObject);
begin
//网上浩晖(&P)...
  lblHome.Font.Color:=clYellow;
  ShellExecute(Handle, nil, PChar(lblHome.Caption),nil,nil,SW_NORMAL);
end;

procedure TWelcomeForm.lblEmailClick(Sender: TObject);
begin
//写信给作者(&E)...
  lblEmail.Font.Color:=clYellow;
  Screen.Cursor:=crHourGlass;
  ShellExecute(Handle, nil, PChar('mailto:'+AEmail),nil,nil,SW_NORMAL);
  Screen.Cursor:=crDefault;
end;

initialization
  RegisterClass(TWelcomeForm);

finalization
  UnRegisterClass(TWelcomeForm);

end.