CPP_Builder/AcercaDe
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

First commit (1999-02-04)

Browse Source
This commit is contained in:
José David Guillén
2021-09-01 17:25:24 +02:00
commit 03a4fa4ea9
10 changed files with 262 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

63
AcercaDe.cpp Normal file
View File

@ -0,0 +1,63 @@
//---------------------------------------------------------------------------
#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);
}
//---------------------------------------------------------------------------