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
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.