Skip to content
Snippets Groups Projects
Commit 76fbdf67 authored by rswindell's avatar rswindell
Browse files

Changed WinExec("start url") to ShellExecute("url") - used for default...

Changed WinExec("start url") to ShellExecute("url") - used for default LoginCommand (telnet://localhost) and doc links from help menu.
parent 1e45a56b
Branches
Tags
No related merge requests found
...@@ -519,7 +519,7 @@ __fastcall TMainForm::TMainForm(TComponent* Owner) ...@@ -519,7 +519,7 @@ __fastcall TMainForm::TMainForm(TComponent* Owner)
{ {
/* Defaults */ /* Defaults */
CtrlDirectory="c:\\sbbs\\ctrl\\"; CtrlDirectory="c:\\sbbs\\ctrl\\";
LoginCommand="start telnet://localhost"; LoginCommand="telnet://localhost";
ConfigCommand="%sSCFG %s /T2"; ConfigCommand="%sSCFG %s /T2";
MinimizeToSysTray=false; MinimizeToSysTray=false;
NodeDisplayInterval=1; /* seconds */ NodeDisplayInterval=1; /* seconds */
...@@ -1819,9 +1819,11 @@ void __fastcall TMainForm::BBSLoginMenuItemClick(TObject *Sender) ...@@ -1819,9 +1819,11 @@ void __fastcall TMainForm::BBSLoginMenuItemClick(TObject *Sender)
{ {
if(!strnicmp(LoginCommand.c_str(),"start ",6)) if(!strnicmp(LoginCommand.c_str(),"start ",6))
WinExec(LoginCommand.c_str(),SW_SHOWMINNOACTIVE); WinExec(LoginCommand.c_str(),SW_SHOWMINNOACTIVE);
else if(!strnicmp(LoginCommand.c_str(),"telnet:",7))
ShellExecute(Handle, "open", LoginCommand.c_str(),
NULL,NULL,SW_SHOWDEFAULT);
else else
WinExec(LoginCommand.c_str(),SW_SHOWNORMAL); WinExec(LoginCommand.c_str(),SW_SHOWNORMAL);
} }
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
...@@ -1878,12 +1880,10 @@ void __fastcall TMainForm::UserListExecute(TObject *Sender) ...@@ -1878,12 +1880,10 @@ void __fastcall TMainForm::UserListExecute(TObject *Sender)
} }
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
void __fastcall TMainForm::HelpIndexMenuItemClick(TObject *Sender) void __fastcall TMainForm::WebPageMenuItemClick(TObject *Sender)
{ {
char str[512]; ShellExecute(Handle, "open", ((TMenuItem*)Sender)->Hint.c_str(),
NULL,NULL,SW_SHOWDEFAULT);
sprintf(str,"start http://synchro.net/docs/");
WinExec(str,SW_SHOWMINNOACTIVE);
} }
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
...@@ -1935,15 +1935,6 @@ void __fastcall TMainForm::RestoreTrayMenuItemClick(TObject *Sender) ...@@ -1935,15 +1935,6 @@ void __fastcall TMainForm::RestoreTrayMenuItemClick(TObject *Sender)
Application->Restore(); Application->Restore();
} }
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
void __fastcall TMainForm::HelpSysopMenuItemClick(TObject *Sender)
{
char str[512];
sprintf(str,"start http://synchro.net/docs/sysop.html");
WinExec(str,SW_SHOWMINNOACTIVE);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::BBSConfigWizardMenuItemClick(TObject *Sender) void __fastcall TMainForm::BBSConfigWizardMenuItemClick(TObject *Sender)
{ {
#if 0 #if 0
......
object MainForm: TMainForm object MainForm: TMainForm
Left = 446 Left = 573
Top = 149 Top = 540
Width = 640 Width = 640
Height = 400 Height = 400
Caption = 'Synchronet Control Panel' Caption = 'Synchronet Control Panel'
...@@ -2472,11 +2472,13 @@ object MainForm: TMainForm ...@@ -2472,11 +2472,13 @@ object MainForm: TMainForm
Caption = '&Help' Caption = '&Help'
object HelpIndexMenuItem: TMenuItem object HelpIndexMenuItem: TMenuItem
Caption = '&Index' Caption = '&Index'
OnClick = HelpIndexMenuItemClick Hint = 'http://www.synchro.net/docs/'
OnClick = WebPageMenuItemClick
end end
object HelpSysopMenuItem: TMenuItem object HelpSysopMenuItem: TMenuItem
Caption = 'Sysop Manual' Caption = 'Sysop Manual'
OnClick = HelpSysopMenuItemClick Hint = 'http://www.synchro.net/docs/sysop.html'
OnClick = WebPageMenuItemClick
end end
object N7: TMenuItem object N7: TMenuItem
Caption = '-' Caption = '-'
......
...@@ -269,12 +269,11 @@ __published: // IDE-managed Components ...@@ -269,12 +269,11 @@ __published: // IDE-managed Components
void __fastcall BBSLoginMenuItemClick(TObject *Sender); void __fastcall BBSLoginMenuItemClick(TObject *Sender);
void __fastcall ViewLogClick(TObject *Sender); void __fastcall ViewLogClick(TObject *Sender);
void __fastcall UserListExecute(TObject *Sender); void __fastcall UserListExecute(TObject *Sender);
void __fastcall HelpIndexMenuItemClick(TObject *Sender); void __fastcall WebPageMenuItemClick(TObject *Sender);
void __fastcall TrayIconRestore(TObject *Sender); void __fastcall TrayIconRestore(TObject *Sender);
void __fastcall PropertiesExecute(TObject *Sender); void __fastcall PropertiesExecute(TObject *Sender);
void __fastcall CloseTrayMenuItemClick(TObject *Sender); void __fastcall CloseTrayMenuItemClick(TObject *Sender);
void __fastcall RestoreTrayMenuItemClick(TObject *Sender); void __fastcall RestoreTrayMenuItemClick(TObject *Sender);
void __fastcall HelpSysopMenuItemClick(TObject *Sender);
void __fastcall ViewEventsExecute(TObject *Sender); void __fastcall ViewEventsExecute(TObject *Sender);
void __fastcall DataMenuItemClick(TObject *Sender); void __fastcall DataMenuItemClick(TObject *Sender);
void __fastcall BBSConfigWizardMenuItemClick(TObject *Sender); void __fastcall BBSConfigWizardMenuItemClick(TObject *Sender);
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment