diff options
Diffstat (limited to 'apps/windoze/CBuilder5/BibleCS/cdstartup/mainfrm.cpp')
-rw-r--r-- | apps/windoze/CBuilder5/BibleCS/cdstartup/mainfrm.cpp | 48 |
1 files changed, 0 insertions, 48 deletions
diff --git a/apps/windoze/CBuilder5/BibleCS/cdstartup/mainfrm.cpp b/apps/windoze/CBuilder5/BibleCS/cdstartup/mainfrm.cpp deleted file mode 100644 index d7a7cc2..0000000 --- a/apps/windoze/CBuilder5/BibleCS/cdstartup/mainfrm.cpp +++ /dev/null @@ -1,48 +0,0 @@ -//--------------------------------------------------------------------------- -#include <vcl\vcl.h> -#pragma hdrstop - -#include "mainfrm.h" -#include <shellapi.h> -//--------------------------------------------------------------------------- -#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); -} -//--------------------------------------------------------------------------- - |