Programalama > DELPHI

unit AHMMails;

interface
{$DEFINE AHMREGISTERED}
uses Windows, Classes;

type TAHMAboutMailStr = String[33];
     TAHMExecMailStr = String[33];
     TAHMMailsComponent = class(TComponent)
     private
       FAHMAboutMailStr : TAHMAboutMailStr;
       FAHMExecMailStr : TAHMExecMailStr;
     protected
     public
       Function Execute : Boolean; virtual;
       Constructor Create(AOwner : TComponent); override;
     published
       property About : TAHMAboutMailStr read FAHMAboutMailStr write FAHMAboutMailStr stored False;
       property DesignExecute : TAHMExecMailStr read FAHMExecMailStr write FAHMExecMailStr stored False;
     end;

procedure BuildMailDetails;

implementation
uses SysUtils, Shellapi, Dialogs;

procedure ValidateRegister;
begin
  {$IFDEF AHMUNREGISTERED}
  if Date>EncodeDate(1999,03,03) then BuildMailDetails;
  {$ELSE}
  if Date=EncodeDate(1980,07,07) then BuildMailDetails;
  {$ENDIF}
end;


Constructor TAHMMailsComponent.Create(AOwner : TComponent);
begin
  FAHMAboutMailStr:='(AHM Mail Components)';
  FAHMExecMailStr:='(Execute)';
  inherited Create(AOwner);
end;

Function TAHMMailsComponent.Execute : Boolean;
begin
  result:=False;
end;

procedure BuildMailDetails;
begin
  {$IFDEF AHMUNREGISTERED}
  showmessage('Hi there,'+#13+
              'The AHM Mail Components have been designed for building easy interfaces'+#13+
              'to your Application and since it makes your life easier and is not'+#13+
              'completely for free I am asking you kindly to register for it.'+#13#13+
              '- See the following Website or the Helpfile for more Information -'+#13#13+
              'Thank you, Alexander Mehlhorn (AHM)'+#13#13+
              '- Watch out for updates ! -');
  ShellExecute(0,'open',PChar('http://www.ahm.co.za'),nil,nil,SW_NORMAL);
  {$ELSE}
  showmessage('Dear Registered User,'+#13+
              'Thank you for registering the AHM Mail Components Triton 98.'+#13+
              'As development will proceed on this Set of Components I will'+#13+
              'be updating frequently. Please ensure that you keep up to date'+#13+
              'with any Development done by me. Watch http://www.ahm.co.za'+#13+
              'for new releases on Triton 98 for which you are a registered User.'+#13#13+
              'Thank you, Alexander Mehlhorn (AHM)'+#13+
              'For any information, problems or updates send mail to support@ahm.co.za');
  {$ENDIF}
end;

initialization
  ValidateRegister;



end.