commit 03a4fa4ea9de93155b27b9adfa17c968f7e83735 Author: jdg Date: Wed Sep 1 17:25:24 2021 +0200 First commit (1999-02-04) diff --git a/About.avi b/About.avi new file mode 100644 index 0000000..bf0f874 Binary files /dev/null and b/About.avi differ diff --git a/AcercaDe.cpp b/AcercaDe.cpp new file mode 100644 index 0000000..461b7c2 --- /dev/null +++ b/AcercaDe.cpp @@ -0,0 +1,63 @@ +//--------------------------------------------------------------------------- +#include +#include +#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); + +} +//--------------------------------------------------------------------------- + diff --git a/AcercaDe.dfm b/AcercaDe.dfm new file mode 100644 index 0000000..c882031 Binary files /dev/null and b/AcercaDe.dfm differ diff --git a/AcercaDe.h b/AcercaDe.h new file mode 100644 index 0000000..2af06e4 --- /dev/null +++ b/AcercaDe.h @@ -0,0 +1,60 @@ +//--------------------------------------------------------------------------- +#ifndef AcercaDeH +#define AcercaDeH +//--------------------------------------------------------------------------- +#include +#include +#include +#include +#include +#include +#include +#include +//--------------------------------------------------------------------------- +class TAbout : public TForm +{ +__published: // IDE-managed Components + TAnimate *Animate1; + TBevel *Bevel1; + TShape *Shape1; + TLabel *Label1; + TLabel *Label2; + TLabel *Label3; + TBevel *Bevel2; + TLabel *Label4; + TLabel *Label5; + TLabel *Label6; + TLabel *Nombre; + TLabel *Descripcion; + TImage *Icono; + TBevel *Bevel3; + TBevel *Bevel4; + TBevel *Bevel5; + TLabel *Label9; + TLabel *Registro; + TBitBtn *HowTo; + TScrollBox *ScrollBox1; + TLabel *Label11; + TImage *Image2; + TLabel *Label12; + TLabel *Label13; + TBevel *Bevel6; + TLabel *Label14; + TBevel *Bevel7; + TBevel *Bevel8; + TBevel *Bevel9; + TBevel *Bevel10; + TLabel *Label15; + TLabel *Label16; + void __fastcall FormShow(TObject *Sender); + void __fastcall Label6Click(TObject *Sender); + void __fastcall Label5Click(TObject *Sender); + +private: // User declarations +public: // User declarations + __fastcall TAbout(TComponent* Owner); +}; +//--------------------------------------------------------------------------- +extern PACKAGE TAbout *About; +//--------------------------------------------------------------------------- +#endif diff --git a/AcercaDeEXE.bpr b/AcercaDeEXE.bpr new file mode 100644 index 0000000..261db8a --- /dev/null +++ b/AcercaDeEXE.bpr @@ -0,0 +1,118 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +[Version Info] +IncludeVerInfo=1 +AutoIncBuild=1 +MajorVer=1 +MinorVer=0 +Release=0 +Build=52 +Debug=1 +PreRelease=0 +Special=0 +Private=0 +DLL=0 +Locale=3082 +CodePage=1252 + +[Version Info Keys] +CompanyName=JD soft. +FileDescription=Gestión integral de múltiples empresas,\n con múltiples terminales. +FileVersion=1.0.0.52 +InternalName=Tpv for Windows +LegalCopyright=Copyright (C) JD soft. 1990-1998 +LegalTrademarks= +OriginalFilename=Tpv +ProductName=Tpv for Win98 +ProductVersion=1.0.0.0 +Comments=e-mail: Jose-David.Guillen@cs.us.es + +[HistoryLists\hlIncludePath] +Count=1 +Item0=..\jd soft\jd;l:\programación (-cbuilder-)\jd soft\jd;l:\cbuilder\cbuilder\objrepos;j:\cbuilder\cbuilder\bin;j:\cbuilder\cbuilder\bin;j:\cbuilder\cbuilder\objrepos;$(BCB)\bin;$(BCB)\objrepos;j:\cbuilder\jd soft;j:\progwin95\jd soft;$(BCB)\projects;$(BCB)\include;$(BCB)\include\vcl + +[HistoryLists\hlLibraryPath] +Count=1 +Item0=..\jd soft\jd;l:\programación (-cbuilder-)\jd soft\jd;l:\cbuilder\cbuilder\objrepos;j:\cbuilder\cbuilder\bin;j:\cbuilder\cbuilder\bin;j:\cbuilder\cbuilder\objrepos;$(BCB)\bin;$(BCB)\objrepos;j:\cbuilder\jd soft;j:\progwin95\jd soft;$(BCB)\projects;$(BCB)\lib\obj;$(BCB)\lib + +[HistoryLists\hlUnitAliases] +Count=1 +Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE + +[Debugging] +DebugSourceDirs= + +[Parameters] +RunParams= +HostApplication= +RemoteHost= +RemotePath= +RemoteDebug=0 + +[Compiler] +ShowInfoMsgs=1 +LinkDebugVcl=1 +LinkCGLIB=0 + +[CORBA] +AddServerUnit=1 +AddClientUnit=1 +PrecompiledHeaders=1 + +[Language] +ActiveLang= +ProjectLang= +RootDir= + + \ No newline at end of file diff --git a/AcercaDeEXE.cpp b/AcercaDeEXE.cpp new file mode 100644 index 0000000..9e521ce --- /dev/null +++ b/AcercaDeEXE.cpp @@ -0,0 +1,21 @@ +//--------------------------------------------------------------------------- +#include +#pragma hdrstop +USERES("AcercaDeEXE.res"); +USEFORM("AcercaDe.cpp", About); +//--------------------------------------------------------------------------- +WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) +{ + try + { + Application->Initialize(); + Application->CreateForm(__classid(TAbout), &About); + Application->Run(); + } + catch (Exception &exception) + { + Application->ShowException(&exception); + } + return 0; +} +//--------------------------------------------------------------------------- diff --git a/AcercaDeEXE.exe b/AcercaDeEXE.exe new file mode 100644 index 0000000..9ac9423 Binary files /dev/null and b/AcercaDeEXE.exe differ diff --git a/AcercaDeEXE.res b/AcercaDeEXE.res new file mode 100644 index 0000000..49c2d0d Binary files /dev/null and b/AcercaDeEXE.res differ diff --git a/JDgif.bmp b/JDgif.bmp new file mode 100644 index 0000000..b421903 Binary files /dev/null and b/JDgif.bmp differ diff --git a/jdsoft.avi b/jdsoft.avi new file mode 100644 index 0000000..bf0f874 Binary files /dev/null and b/jdsoft.avi differ