?? about.pas
字號:
unit About;
interface
uses
Windows, Classes, Graphics, Forms, Controls, StdCtrls, GrandFuncLib, 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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -