First commit 04/07/1999

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();    
+}
+//---------------------------------------------------------------------------
+