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

first commit (2002-04-24)

Browse Source
This commit is contained in:
José David Guillén
2021-09-01 18:53:06 +02:00
commit 4d943d773d
252 changed files with 17433 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
instalador/Instalador.cpp Normal file
View File

@ -0,0 +1,56 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Instalador.h"
#include <ShellAPI.hpp>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1Click(TObject *Sender)
{
char zFileName[80], zParams[80], zDir[80];
ShellExecute(Application->MainForm->Handle, 0, StrPCopy(zFileName, "http:\\\\www.infdj.com"),
StrPCopy(zParams, ""), StrPCopy(zDir, ""), SW_SHOWNOACTIVATE > 32);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
char zFileName[80], zParams[80], zDir[80];
ShellExecute(Application->MainForm->Handle, 0, StrPCopy(zFileName, "setup.exe"),
StrPCopy(zParams, ""), StrPCopy(zDir, ""), SW_SHOWNOACTIVATE > 32);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
char zFileName[80], zParams[80], zDir[80];
ShellExecute(Application->MainForm->Handle, 0, StrPCopy(zFileName, "motor\\InstallEngine.exe"),
StrPCopy(zParams, ""), StrPCopy(zDir, ""), SW_SHOWNOACTIVATE > 32);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image2Click(TObject *Sender)
{
ShowMessage( "Si necesita crear una distribuci<63>n\ndel Guardian en discos, copie el\nfichero GUARDIAN.EXE manualmente." );
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
char zFileName[80], zParams[80], zDir[80];
ShellExecute(Application->MainForm->Handle, 0, StrPCopy(zFileName, "motor\\hdd32.exe"),
StrPCopy(zParams, ""), StrPCopy(zDir, ""), SW_SHOWNOACTIVATE > 32);
}
//---------------------------------------------------------------------------