//--------------------------------------------------------------------------- #include #pragma hdrstop #include "mainfrm.h" #include //--------------------------------------------------------------------------- #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::BitBtn1Click(TObject *Sender) { WinExec(".\\Disk Images\\disk1\\setup.exe", SW_SHOWNORMAL); } //--------------------------------------------------------------------------- void __fastcall TForm1::BitBtn2Click(TObject *Sender) { WinExec(".\\Windows\\sword.exe", SW_SHOWNORMAL); // ShellExecute(this->Handle, "open", "sword.exe", NULL, ".\\", SW_SHOWNORMAL); } //--------------------------------------------------------------------------- void __fastcall TForm1::FormShow(TObject *Sender) { // AddFontResource("\\sword\\modules\\texts\\rawtext\\nu\\greek.ttf"); } //--------------------------------------------------------------------------- void __fastcall TForm1::BitBtn3Click(TObject *Sender) { ShellExecute(this->Handle, "open", "http://www.crosswire.org", NULL, NULL, SW_SHOWNORMAL); } //--------------------------------------------------------------------------- void __fastcall TForm1::BitBtn4Click(TObject *Sender) { ShellExecute(this->Handle, "open", ".\\", NULL, NULL, SW_SHOWNORMAL); } //--------------------------------------------------------------------------- void __fastcall TForm1::BitBtn5Click(TObject *Sender) { WinExec(".\\fonts\\setup.exe", SW_SHOWNORMAL); } //---------------------------------------------------------------------------