about.pas.~2~

Delphi开发的人事管理系统

unit About;

interface

uses
  Windows, Classes, Graphics, Forms, Controls, StdCtrls,  ExtCtrls,
  Buttons, ShellApi, SysUtils, jpeg, RSGLCommon;

type
  TAboutForm = class(TForm)
    pnlAboutInfo: TPanel;
    Author: TPaintBox;
    imgAbout: TImage;
    lblCurrentUser: TLabel;
    lblVersion: TLabel;
    lblCopyRight: TLabel;
    lblCompany: TLabel;
    lblTechSupport: TLabel;
    lblService: TLabel;
    btClose: TButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
implementation

{$R *.DFM}

procedure TAboutForm.FormCreate(Sender: TObject);
var
  l_Build, l_ProductVer: string;
begin
  l_ProductVer := GetVersion(Application.ExeName, vtProduct);
  l_Build := GetVersion(Application.ExeName, vtBuild);
  lblVersion.Caption := lblVersion.Caption + l_ProductVer + ' (Build: ' + l_Build + ')';
  lblCurrentUser.Caption := lblCurrentUser.Caption + UserName;
end;

end.