//---------------------------------------------------------------------------
#include <io.h>
#include <vcl.h>
#pragma hdrstop

#include "AcercaDe.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

#define CheckFile "c:\\system.fst"

TAbout *About;
//---------------------------------------------------------------------------
__fastcall TAbout::TAbout(TComponent* Owner)
    : TForm(Owner)
{
  // Check for valid copy
  /*
  if ( access( CheckFile, 0) != 0 )
  {
   Application->HintPause = 0;
   Application->Terminate();
  }
  */

    Animate1 -> FileName = "systm\\About.avi";
    Animate1 -> Visible = true;
    Animate1 -> Active = true;
}
//---------------------------------------------------------------------------
void __fastcall TAbout::FormShow(TObject *Sender)
{
  if ( (Registro -> Caption == "VERSION DEMO") || (Registro -> Caption == "VERSION TRIAL") )
     HowTo -> Visible = true;
  else
     HowTo -> Visible = false;
}
//---------------------------------------------------------------------------




void __fastcall TAbout::Label6Click(TObject *Sender)
{
  char zFileName[1024], zParams[80], zDir[80];
  AnsiString URL = "mailto:jd@infdj.com";
  ShellExecute(Application->MainForm->Handle, 0, StrPCopy(zFileName, URL),
                         StrPCopy(zParams, ""), StrPCopy(zDir, ""), SW_SHOWNOACTIVATE > 32);

}
//---------------------------------------------------------------------------

void __fastcall TAbout::Label5Click(TObject *Sender)
{
  char zFileName[1024], zParams[80], zDir[80];
  AnsiString URL = "http://jd.infdj.com";
  ShellExecute(Application->MainForm->Handle, 0, StrPCopy(zFileName, URL),
                         StrPCopy(zParams, ""), StrPCopy(zDir, ""), SW_SHOWNOACTIVATE > 32);

}
//---------------------------------------------------------------------------