web服务监控程序.pdfVIP

// #include vcl.h #pragma hdrstop #include Tlhelp32.h #include Unit1.h // #pragma package(smart_init) #pragma resource *.dfm TForm1 *Form1; // __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } // void __fastcall TForm1::Button1Click(TObject *Sender) { Timer1-Enabled = true; } // void __fastcall TForm1::Timer1Timer(TObject *Sender) { try{ HANDLE SnapShot=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0); if (SnapShot == INVALID_HANDLE_VALUE) return; PROCESSENTRY32 ProcessInfo; ProcessInfo.dwSize=sizeof(ProcessInfo); BOOL Status=Process32First(SnapShot,ProcessInfo); BOOL flag = false; // 是否有 foxmail.exe 进程 while(Status) { if(AnsiString(ProcessInfo.szExeFile).LowerCase() == foxmail.exe) { flag = true; } Status=Process32Next(SnapShot,ProcessInfo); } AnsiString tempTime = FormatDateTime(yyyy,mm,dd,hh:nn:ss, Now()); if(!flag){ AnsiString Exename = D://Program Files//Foxmail//Foxmail.exe; ShellExecute(Handle,open,Exename.c_str(),,, SW_SHOW ); Memo1-Lines-Add(restart this program at + tempTime); } else{ Memo1-Lines-Add(running at + tempTime); } CloseHandle (SnapShot); }catch(...){ } } // void __fastcall TForm1::Button2Click(TObject *Sender) { Timer1-Enabled = false; } // 这个程序可以成功监控 foxmail.exe 的运行 ,如果 foxmail.exe 停掉了 ,则自动启动它 . 可是 :我们的 web 服务程序在进程中为 :java.exe, 并且有两个 .怎么办 ? 有一个近似的方法 :如果进程中有两个 java.exe, 则认为 web 服务良好 ,如果 java.exe 少于两 个, 则认为 web 停了 , 需要重新启动 . 所以修改后得到如下程序 : void __fastcall TForm1::Button1Click(TObject *Sender) { i = StrToInt(Edit1-Text); //i 为全局变量 ,记录应该有的 java 数目