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)
{
/* Defaults */
CtrlDirectory="c:\\sbbs\\ctrl\\";
LoginCommand="start telnet://localhost";
LoginCommand="telnet://localhost";
ConfigCommand="%sSCFG %s /T2";
MinimizeToSysTray=false;
NodeDisplayInterval=1; /* seconds */
......@@ -1819,9 +1819,11 @@ void __fastcall TMainForm::BBSLoginMenuItemClick(TObject *Sender)
{
if(!strnicmp(LoginCommand.c_str(),"start ",6))
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
WinExec(LoginCommand.c_str(),SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
......@@ -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];
sprintf(str,"start http://synchro.net/docs/");
WinExec(str,SW_SHOWMINNOACTIVE);
ShellExecute(Handle, "open", ((TMenuItem*)Sender)->Hint.c_str(),
NULL,NULL,SW_SHOWDEFAULT);
}
//---------------------------------------------------------------------------
......@@ -1935,15 +1935,6 @@ void __fastcall TMainForm::RestoreTrayMenuItemClick(TObject *Sender)
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)
{
#if 0
......
object MainForm: TMainForm
Left = 446
Top = 149
Left = 573
Top = 540
Width = 640
Height = 400
Caption = 'Synchronet Control Panel'
......@@ -2472,11 +2472,13 @@ object MainForm: TMainForm
Caption = '&Help'
object HelpIndexMenuItem: TMenuItem
Caption = '&Index'
OnClick = HelpIndexMenuItemClick
Hint = 'http://www.synchro.net/docs/'
OnClick = WebPageMenuItemClick
end
object HelpSysopMenuItem: TMenuItem
Caption = 'Sysop Manual'
OnClick = HelpSysopMenuItemClick
Hint = 'http://www.synchro.net/docs/sysop.html'
OnClick = WebPageMenuItemClick
end
object N7: TMenuItem
Caption = '-'
......
......@@ -269,12 +269,11 @@ __published: // IDE-managed Components
void __fastcall BBSLoginMenuItemClick(TObject *Sender);
void __fastcall ViewLogClick(TObject *Sender);
void __fastcall UserListExecute(TObject *Sender);
void __fastcall HelpIndexMenuItemClick(TObject *Sender);
void __fastcall WebPageMenuItemClick(TObject *Sender);
void __fastcall TrayIconRestore(TObject *Sender);
void __fastcall PropertiesExecute(TObject *Sender);
void __fastcall CloseTrayMenuItemClick(TObject *Sender);
void __fastcall RestoreTrayMenuItemClick(TObject *Sender);
void __fastcall HelpSysopMenuItemClick(TObject *Sender);
void __fastcall ViewEventsExecute(TObject *Sender);
void __fastcall DataMenuItemClick(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