diff options
author | danglassey <danglassey> | 2002-08-14 09:57:17 +0000 |
---|---|---|
committer | danglassey <danglassey> | 2002-08-14 09:57:17 +0000 |
commit | c9458897ebbb739d8db83c80e06512d8a612f743 (patch) | |
tree | f8c5381045887e34388cc6b26cfccc254bf766dc /apps/windoze/CBuilder5/BibleCS/cdstartup/mainfrm.cpp | |
download | sword-sf-cvs-c9458897ebbb739d8db83c80e06512d8a612f743.tar.gz |
*** empty log message ***
Diffstat (limited to 'apps/windoze/CBuilder5/BibleCS/cdstartup/mainfrm.cpp')
-rw-r--r-- | apps/windoze/CBuilder5/BibleCS/cdstartup/mainfrm.cpp | 70 |
1 files changed, 70 insertions, 0 deletions
diff --git a/apps/windoze/CBuilder5/BibleCS/cdstartup/mainfrm.cpp b/apps/windoze/CBuilder5/BibleCS/cdstartup/mainfrm.cpp new file mode 100644 index 0000000..843adef --- /dev/null +++ b/apps/windoze/CBuilder5/BibleCS/cdstartup/mainfrm.cpp @@ -0,0 +1,70 @@ +//--------------------------------------------------------------------------- +#include <vcl\vcl.h> +#pragma hdrstop + +#include "mainfrm.h" +#include <shellapi.h> +#include <dir.h> +#include <stdio.h> +//--------------------------------------------------------------------------- +#pragma resource "*.dfm" +TForm1 *Form1; +//--------------------------------------------------------------------------- +__fastcall TForm1::TForm1(TComponent* Owner) + : TForm(Owner) +{ + char buf[2048]; + char buf2[2048]; + + sprintf("SWORD_PATH=%s", getcwd(buf2, 2047)); + putenv(buf); +} +//--------------------------------------------------------------------------- +void __fastcall TForm1::BitBtn1Click(TObject *Sender) +{ + WinExec(".\\Disk Images\\disk1\\setup.exe", SW_SHOWNORMAL); +} +//--------------------------------------------------------------------------- +void __fastcall TForm1::BitBtn2Click(TObject *Sender) +{ +/* + static char *file = ".\\Windows\\sword.exe"; + static char dir[2048]; // = "\\"; + SHELLEXECUTEINFO sei; + memset(&sei, 0, sizeof(SHELLEXECUTEINFO)); + sei.cbSize = sizeof(SHELLEXECUTEINFO); + sei.fMask = SEE_MASK_NOCLOSEPROCESS; + sei.hwnd = this->WindowHandle; + sei.lpFile = file; + sei.lpDirectory = getcwd(dir, 2047); + MessageBox(0, sei.lpDirectory, "cwd", MB_OK); + sei.nShow = SW_SHOWNORMAL; +*/ + WinExec(".\\Windows\\sword.exe", SW_SHOWNORMAL); +// ShellExecute(this->Handle, "open", ".\\Windows\\sword.exe", NULL, "\\", SW_SHOWNORMAL); +// ShellExecuteEx(&sei); + +} +//--------------------------------------------------------------------------- +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); +} +//--------------------------------------------------------------------------- + |