roberto
6a0c10c5e6
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES2/trunk@6 40301925-124e-1c4e-b97d-170ad7a8785b
46 lines
905 B
ObjectPascal
46 lines
905 B
ObjectPascal
unit uAcercaDe;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, JvGIF, ExtCtrls, JvExControls, JvComponent, JvGradient, StdCtrls;
|
|
|
|
type
|
|
TfAcercaDe = class(TForm)
|
|
JvGradient1: TJvGradient;
|
|
Panel1: TPanel;
|
|
Bevel1: TBevel;
|
|
bAceptar: TButton;
|
|
memModulos: TMemo;
|
|
Image1: TImage;
|
|
procedure FormShow(Sender: TObject);
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
uses JclFileUtils;
|
|
|
|
procedure TfAcercaDe.FormShow(Sender: TObject);
|
|
var
|
|
Obj : TJclFileVersionInfo;
|
|
begin
|
|
memModulos.Lines.Clear;
|
|
|
|
Obj := TJclFileVersionInfo.Create(Application.ExeName);
|
|
try
|
|
with Obj do
|
|
begin
|
|
memModulos.Lines.Add(ProductName + ' - Versión ' + FileVersion);
|
|
memModulos.Lines.Add(CompanyName);
|
|
memModulos.Lines.Add('');
|
|
end;
|
|
finally
|
|
FreeAndNil(Obj);
|
|
end;
|
|
end;
|
|
|
|
end.
|