//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 

#include  
# pragma hdrstop 

# include "Unit1. H" 
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 
# pragma package (smart_init) 
# pragma resource "*. DFM 
"TForm1 * Form1; 
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 
__fastcall TForm1: : TForm1 (TComponent * Owner) 
: TForm (the Owner) 
{
} 
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 

Void __fastcall TForm1: : Button2Click (TObject * Sender) 
{
String nowIs; 
String getCurDir; 
String getFileName; 
String newStr; 

If (OpenDialog1 - & gt; The Execute ()) {
RadioButton1 - & gt; Checked=true; 
NowIs=OpenDialog1 - & gt; The FileName. 
GetCurDir=GetCurrentDir (); 
GetFileName=ExtractFileName (nowIs); 
NewStr=getCurDir + "/" + getFileName; 
TReplaceFlags Flags; 
Edit1 - & gt; Text=StringReplace (newStr, F: \ \ "PHPtools \ \ Apache2.4 \ \ Apache24 \ \ htdocs \ ", "", FlagsMemo1 - & gt; Lines - & gt; LoadFromFile (newStr); 
For the - & gt; Click (); 
} 

} 
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 

Void __fastcall TForm1: : Button1Click (TObject * Sender) 
{
String getWeb=Edit1 - & gt; The Text; 
String PHP_SERVER="http://127.0.0.1/" + getWeb; 
String JSP_SERVER="http://127.0.0.1:8080/" + getWeb; 
String ASP_SERVER="http://127.0.0.1/" + getWeb; 
Char * PHP=new char [256]; 
Char * JSP=new char [256]; 
Char * asp=new char [256]; 
//StrPCopy (Arr, Str); Used to put the string into a character array 
//extern PACKAGE char * __fastcall StrPCopy (char * Dest, const AnsiString Source); 
//StrPCopy (szBuffer, Label1 - & gt; Caption); 

StrPCopy (PHP, PHP_SERVER); 
StrPCopy (JSP, JSP_SERVER); 
StrPCopy (asp, ASP_SERVER); 


If (RadioButton1 - & gt; Checked) {
StaticText1 - & gt; Caption=PHP_SERVER; 
//ShellExecute (Handle, "open", "firefox. Exe", "about: blank", NULL, SW_SHOWNORMAL); 
ShellExecute (Handle, "open", "firefox. Exe, PHP, NULL, SW_SHOWNORMAL); 

} 
Else if (RadioButton2 - & gt; Checked) {
StaticText1 - & gt; Caption=JSP_SERVER; 
//ShellExecute (Handle, "open", "firefox. Exe", "about: blank", NULL, SW_SHOWNORMAL); 
ShellExecute (Handle, "open", "firefox. Exe, JSP, NULL, SW_SHOWNORMAL); 

} 
Else if (RadioButton4 - & gt; Checked) {
StaticText1 - & gt; Caption=ASP_SERVER; 
//ShellExecute (Handle, "open", "firefox. Exe", "about: blank", NULL, SW_SHOWNORMAL); 
ShellExecute (Handle, "open", "firefox. Exe, asp, NULL, SW_SHOWNORMAL); 

} 
Else if (RadioButton3 - & gt; Checked) {
StaticText1 - & gt; Caption="test page of the local server has been closed, please select the test server.. "; 
} 
The else {
ShowMessage (" error! You didn't choose any local server. "); 
} 
} 
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 

Void __fastcall TForm1: : RadioButton2Click (TObject * Sender) 
{
WinExec (" net stop apache2.4 ", SW_HIDE);//close the apache2.4 service 
WinExec (" net stop W3SVC, SW_HIDE);//close IIS9 service 
WinExec (" net start tomcat8 ", SW_HIDE);//open tomcat8 service 
//WinExec (" net start mysql56 ", SW_HIDE);//open mysql56 service 
} 
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 

Void __fastcall TForm1: : RadioButton3Click (TObject * Sender) 
{
WinExec (" net stop apache2.4 ", SW_HIDE);//close the apache2.4 service 
WinExec (" net stop tomcat8 ", SW_HIDE);//close tomcat8 service 
WinExec (" net stop W3SVC, SW_HIDE);//close IIS9 service 
WinExec (" net stop mysql56 ", SW_HIDE);//close mysql56 service 
} 
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 


Void __fastcall TForm1: : RadioButton1Click (TObject * Sender) 
{
WinExec (" net stop tomcat8 ", SW_HIDE);//close tomcat8 service 
WinExec (" net stop W3SVC, SW_HIDE);//close IIS9 service 
WinExec (" net start apache2.4 ", SW_HIDE);//open the apache2.4 service 
//WinExec (" net start mysql56 ", SW_HIDE);//open mysql56 service 
} 
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 

Void __fastcall TForm1: : Button3Click (TObject * Sender) 
{
String nowIs; 
String getCurDir; 
String getFileName; 
String newStr; 

If (OpenDialog2 - & gt; The Execute ()) {
RadioButton2 - & gt; Checked=true; 
NowIs=OpenDialog2 - & gt; The FileName. 
GetCurDir=GetCurrentDir (); 
GetFileName=ExtractFileName (nowIs); 
NewStr=getCurDir + "/" + getFileName; 
TReplaceFlags Flags; 
Edit1 - & gt; Text=StringReplace (newStr, "D: \ \ apache tomcat - 8.0.21 \ \ webapps \ ", "", FlagsMemo1 - & gt; Lines - & gt; LoadFromFile (newStr); 
For the - & gt; Click (); 
} 
} 
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 


Void __fastcall TForm1: : Button4Click (TObject * Sender) 
{
If (RadioButton1 - & gt; Checked) {
If (SaveDialog1 - & gt; nullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnull