64 lines
1.9 KiB
C++
64 lines
1.9 KiB
C++
//---------------------------------------------------------------------------
|
|
#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);
|
|
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|