BlueGEEK Journal

Accueil > Manip’s > Delphi > Composants / Librairies > Créer un composant > Leçon 2 : Composant ExeDateTime

Leçon 2 : Composant ExeDateTime

Qui affiche la date de dernière compilation de l’exécutable

dimanche 22 juin 2008, par bluegyn_spip

Mise en oeuvre

- Créer un Composant

  • Nommé T_ExeDateTime
  • Dérivé de TCustomLabel (ouTlabel)

Déclaration

- interface

  • public
Constructor Create (Aowner : Tcomponent) ; override ;

Destructor Destroy ; override ;

Implementation

Constructor T_ExeDateTime.Create( AOwner : Tcomponent ) ;

Begin



inherited Create (Aowner ) ;



Caption := DateTimeToStr( FileDateToDateTime( FileAge( paramstr(0)))) ;



End ;
Destructor T_ExeDateTime.Destroy ;

Begin



inherited Destroy ;



End ;

LE CODE COMPLET PRET A COMPILER


unit _ExeDateTime;



interface



uses

 Windows, Messages, SysUtils, Classes, Controls, StdCtrls;



type

 T_ExeDateTime = class(tcustomlabel)

 private

   { Déclarations privées }

 protected

   { Déclarations protégées }

 public

   { Déclarations publiques }

   Constructor Create (Aowner : Tcomponent) ; override ;

   Destructor Destroy ; override ;



 published

   { Déclarations publiées }

 end;



procedure Register;



implementation



Constructor T_ExeDateTime.Create( AOwner : Tcomponent ) ;

Begin

        inherited Create (Aowner ) ;

        Caption := DateTimeToStr( FileDateToDateTime( FileAge( paramstr(0)))) ;

End ;



Destructor T_ExeDateTime.Destroy ;

Begin

        inherited Destroy ;

End ;





procedure Register;

begin

 RegisterComponents('BlueGYN', [T_ExeDateTime]);

end;



end.