First commit 04/07/1999

Launcher.bpr

@@ -0,0 +1,125 @@
+# ---------------------------------------------------------------------------
+VERSION = BCB.03
+# ---------------------------------------------------------------------------
+!ifndef BCB
+BCB = $(MAKEDIR)\..
+!endif
+# ---------------------------------------------------------------------------
+PROJECT = Launcher.exe
+OBJFILES = Launcher.obj MainForm.obj
+RESFILES = Launcher.res
+RESDEPEN = $(RESFILES) MainForm.dfm
+LIBFILES =
+LIBRARIES = CDopping.lib QRPT35.lib JDsoft.lib vcldbx35.lib vcldb35.lib vclx35.lib vcl35.lib
+SPARELIBS = vcl35.lib vclx35.lib vcldb35.lib vcldbx35.lib JDsoft.lib QRPT35.lib CDopping.lib
+PACKAGES = VCLX35.bpi VCL35.bpi VCLDB35.bpi VCLDBX35.bpi bcbsmp35.bpi dclocx35.bpi \
+  QRPT35.bpi TEEUI35.bpi TEEDB35.bpi TEE35.bpi ibsmp35.bpi NMFAST35.bpi \
+  INETDB35.bpi INET35.bpi JDsoft.bpi
+PATHASM = .;
+PATHCPP = .;
+PATHPAS = .;
+PATHRC = .;
+DEBUGLIBPATH = $(BCB)\lib\debug
+RELEASELIBPATH = $(BCB)\lib\release
+DEFFILE =
+# ---------------------------------------------------------------------------
+CFLAG1 = -Od -Hc -w -Ve -r- -k -y -v -vi- -c -b- -w-par -w-inl -Vx
+CFLAG2 = -I..\componentes\cdopping\actvapp;..\componentes\cdopping\coolform;"..\jd soft\jd";$(BCB)\bin;$(BCB)\objrepos;$(BCB)\projects;$(BCB)\include;$(BCB)\include\vcl \
+  -H=$(BCB)\lib\vcld.csm
+CFLAG3 = -5
+PFLAGS = -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE \
+  -U..\componentes\cdopping\actvapp;..\componentes;..\componentes\cdopping\coolform;"..\jd soft\jd";$(BCB)\bin;$(BCB)\objrepos;$(BCB)\projects;$(BCB)\lib\obj;$(BCB)\lib;$(DEBUGLIBPATH) \
+  -I..\componentes\cdopping\actvapp;..\componentes\cdopping\coolform;"..\jd soft\jd";$(BCB)\bin;$(BCB)\objrepos;$(BCB)\projects;$(BCB)\include;$(BCB)\include\vcl \
+  -H -$Y -$W -$O- -v -JPHNV -M
+RFLAGS = -i..\componentes\cdopping\actvapp;..\componentes\cdopping\coolform;"..\jd soft\jd";$(BCB)\bin;$(BCB)\objrepos;$(BCB)\projects;$(BCB)\include;$(BCB)\include\vcl
+AFLAGS = /i..\componentes\cdopping\actvapp /i..\componentes\cdopping\coolform \
+  /i"..\jd soft\jd" /i$(BCB)\bin /i$(BCB)\objrepos /i$(BCB)\projects \
+  /i$(BCB)\include /i$(BCB)\include\vcl /mx /w2 /zd
+LFLAGS = -L..\componentes\cdopping\actvapp;..\componentes;..\componentes\cdopping\coolform;"..\jd soft\jd";$(BCB)\bin;$(BCB)\objrepos;$(BCB)\projects;$(BCB)\lib\obj;$(BCB)\lib;$(DEBUGLIBPATH) \
+  -aa -Tpe -x -v
+IFLAGS = -g
+LINKER = ilink32
+# ---------------------------------------------------------------------------
+ALLOBJ = c0w32.obj sysinit.obj $(OBJFILES)
+ALLRES = $(RESFILES)
+ALLLIB = $(LIBFILES) $(LIBRARIES) import32.lib cp32mt.lib
+# ---------------------------------------------------------------------------
+.autodepend
+
+!ifdef IDEOPTIONS
+
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=1
+MajorVer=1
+MinorVer=0
+Release=0
+Build=2
+Debug=1
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=3082
+CodePage=1252
+
+[Version Info Keys]
+CompanyName=JD soft.
+FileDescription=Program Launcher
+FileVersion=1.0.0.2
+InternalName=Launcher
+LegalCopyright=Copyright (C) Sol Negro 1990-1999
+LegalTrademarks=
+OriginalFilename=Launcher
+ProductName=SN Launcher 
+ProductVersion=1.0.0.0
+Comments=
+
+[HistoryLists\hlIncludePath]
+Count=2
+Item0=..\componentes\cdopping\actvapp;..\componentes\cdopping\coolform;..\jd soft\jd;$(BCB)\bin;$(BCB)\objrepos;$(BCB)\projects;$(BCB)\include;$(BCB)\include\vcl
+Item1=..\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=2
+Item0=..\componentes\cdopping\actvapp;..\componentes;..\componentes\cdopping\coolform;..\jd soft\jd;$(BCB)\bin;$(BCB)\objrepos;$(BCB)\projects;$(BCB)\lib\obj;$(BCB)\lib
+Item1=..\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=
+
+!endif
+
+$(PROJECT): $(OBJFILES) $(RESDEPEN) $(DEFFILE)
+    $(BCB)\BIN\$(LINKER) @&&!
+    $(LFLAGS) +
+    $(ALLOBJ), +
+    $(PROJECT),, +
+    $(ALLLIB), +
+    $(DEFFILE), +
+    $(ALLRES) 
+!
+
+.pas.hpp:
+    $(BCB)\BIN\dcc32 $(PFLAGS) { $** }
+
+.pas.obj:
+    $(BCB)\BIN\dcc32 $(PFLAGS) { $** }
+
+.cpp.obj:
+    $(BCB)\BIN\bcc32 $(CFLAG1) $(CFLAG2) -o$* $* 
+
+.c.obj:
+    $(BCB)\BIN\bcc32 $(CFLAG1) $(CFLAG2) -o$* $**
+
+.rc.res:
+    $(BCB)\BIN\brcc32 $(RFLAGS) $<
+#-----------------------------------------------------------------------------

Launcher.cpp

@@ -0,0 +1,22 @@
+//---------------------------------------------------------------------------
+#include <vcl.h>
+#pragma hdrstop
+USERES("Launcher.res");
+USEFORM("MainForm.cpp", Form1);
+//---------------------------------------------------------------------------
+WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
+{
+    try
+    {
+        Application->Initialize();
+        Application->Title = "Launcher";
+        Application->CreateForm(__classid(TForm1), &Form1);
+        Application->Run();
+    }
+    catch (Exception &exception)
+    {
+        Application->ShowException(&exception);
+    }
+    return 0;
+}
+//---------------------------------------------------------------------------

MainForm.cpp

@@ -0,0 +1,95 @@
+//---------------------------------------------------------------------------
+#include <vcl.h>
+#pragma hdrstop
+
+#include "MainForm.h"
+//---------------------------------------------------------------------------
+#pragma package(smart_init)
+#pragma link "CoolForm"
+#pragma link "ActivApp"
+#pragma resource "*.dfm"
+TForm1 *Form1;
+//---------------------------------------------------------------------------
+__fastcall TForm1::TForm1(TComponent* Owner)
+    : TForm(Owner)
+{
+}
+//---------------------------------------------------------------------------
+void __fastcall TForm1::Button1Click(TObject *Sender)
+{
+  bool Success;
+  // Run crack...
+  ActivApp1 -> ExePath = "Off97\\Instalar.EXE";
+  ActivApp1 -> ExecuteApp( &Success );
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TForm1::Button2Click(TObject *Sender)
+{
+  bool Success;
+  // Run crack...
+  ActivApp1 -> ExePath = "COMPRES\\Winzip7.0\\winzip70.exe";
+  ActivApp1 -> ExecuteApp( &Success );
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TForm1::Button3Click(TObject *Sender)
+{
+  bool Success;
+  // Run crack...
+  ActivApp1 -> ExePath = "Utilidades\\PTP.62\\Install.exe";
+  ActivApp1 -> ExecuteApp( &Success );
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TForm1::Button4Click(TObject *Sender)
+{
+  bool Success;
+  // Run crack...
+  ActivApp1 -> ExePath = "Utilidades\\ACDSee3223\\acdc3223.exe";
+  ActivApp1 -> ExecuteApp( &Success );
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TForm1::Button5Click(TObject *Sender)
+{
+  bool Success;
+  // Run crack...
+  ActivApp1 -> ExePath = "Utilidades\\drae2.exe";
+  ActivApp1 -> ExecuteApp( &Success );
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TForm1::Button6Click(TObject *Sender)
+{
+  bool Success;
+  // Run crack...
+  ActivApp1 -> ExePath = "Utilidades\\Tapices.exe";
+  ActivApp1 -> ExecuteApp( &Success );
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TForm1::Button7Click(TObject *Sender)
+{
+ ShowMessage( "Sol Negro\n78210DD8");
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TForm1::Button8Click(TObject *Sender)
+{
+ ShowMessage( "Sol Negro\nPT6SU7-6.20-100-2596");
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TForm1::Button9Click(TObject *Sender)
+{
+ ShowMessage( "Sol Negro\n4967846472");
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TForm1::BitBtn1Click(TObject *Sender)
+{
+ Close();    
+}
+//---------------------------------------------------------------------------
+

MainForm.h

@@ -0,0 +1,46 @@
+//---------------------------------------------------------------------------
+#ifndef MainFormH
+#define MainFormH
+//---------------------------------------------------------------------------
+#include <Classes.hpp>
+#include <Controls.hpp>
+#include <StdCtrls.hpp>
+#include <Forms.hpp>
+#include "CoolForm.hpp"
+#include <ExtCtrls.hpp>
+#include "ActivApp.hpp"
+#include <Buttons.hpp>
+//---------------------------------------------------------------------------
+class TForm1 : public TForm
+{
+__published:	// IDE-managed Components
+    TCoolForm *CoolForm1;
+    TActivApp *ActivApp1;
+    TButton *Button1;
+    TButton *Button2;
+    TButton *Button3;
+    TButton *Button4;
+    TButton *Button5;
+    TButton *Button6;
+    TButton *Button7;
+    TButton *Button8;
+    TButton *Button9;
+    TBitBtn *BitBtn1;
+    void __fastcall Button1Click(TObject *Sender);
+    void __fastcall Button2Click(TObject *Sender);
+    void __fastcall Button3Click(TObject *Sender);
+    void __fastcall Button4Click(TObject *Sender);
+    void __fastcall Button5Click(TObject *Sender);
+    void __fastcall Button6Click(TObject *Sender);
+    void __fastcall Button7Click(TObject *Sender);
+    void __fastcall Button8Click(TObject *Sender);
+    void __fastcall Button9Click(TObject *Sender);
+    void __fastcall BitBtn1Click(TObject *Sender);
+private:	// User declarations
+public:		// User declarations
+    __fastcall TForm1(TComponent* Owner);
+};
+//---------------------------------------------------------------------------
+extern PACKAGE TForm1 *Form1;
+//---------------------------------------------------------------------------
+#endif

README.md

@@ -0,0 +1,9 @@
+#Launcher 
+ 
+ 
+*04/07/1999* 
+ 
+ToDo: wwtcf? 
+ 
+ 
+![screenshot](/Launcher.png "Screenshot")