從windows服務中開啟視窗進程

IVR地方業務中有一個DBA_BJLDNW工具要在伺服器上運行著.一旦斷開業務即中止.需要寫一個精靈監視它,

一旦發現關閉了即重新啟動.

為了防止精靈本身被使用者關閉,所以我打算做一個windows服務在後台運行.每5分鐘列舉一個當前系統進程,如果

沒有發現DBA_BJLDNW.exe則重新啟動.

問題是windows服務不是視窗進程,在這個進程中調用ShellExecute開啟的應用程式也是在後台運行,不能顯示在當前視窗中.

後來搜尋到可以在Windows服務中開啟視窗程序的方法.就是開啟使用者WinSta0和desktop,取得和使用者互動的許可權後再開啟視窗進程,果然可以在windows服務中開啟視窗進程了:

 

  HINSTANCE hProcessSnap = NULL;
 PROCESSENTRY32 pe32 = {0};

 

 //擷取進程的記憶體鏡照
 hProcessSnap = (HINSTANCE) ::CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
 if(hProcessSnap == (HANDLE) -1) return ;
 pe32.dwSize = sizeof(PROCESSENTRY32);

 DWORD flag = 0;
 CString theProcssName = "DBA_BJLDNW.exe";

 //列舉進程

 if(::Process32First(hProcessSnap,&pe32)){
  do{
   if(!theProcssName.CompareNoCase(pe32.szExeFile)){
    flag = 1;
    break;
   }
  }
  while(Process32Next(hProcessSnap,&pe32));
 }
 ::CloseHandle(hProcessSnap);

 if(!flag){ //如果沒有找到

  HDESK   hdeskCurrent;
  HDESK   hdesk;
  HWINSTA hwinstaCurrent;
  HWINSTA hwinsta;

  hwinstaCurrent = GetProcessWindowStation();

  if (hwinstaCurrent == NULL){
   LogEvent(_T("get window station err"));
   return ;
  }

  hdeskCurrent = GetThreadDesktop(GetCurrentThreadId());
  if (hdeskCurrent == NULL){
   LogEvent(_T("get window desktop err"));
   return ;
  }

 

  //開啟使用者的winsta0
  hwinsta = OpenWindowStation("winsta0", FALSE,                         
   WINSTA_ACCESSCLIPBOARD   |
   WINSTA_ACCESSGLOBALATOMS |
   WINSTA_CREATEDESKTOP     |
   WINSTA_ENUMDESKTOPS      |
   WINSTA_ENUMERATE         |
   WINSTA_EXITWINDOWS       |
   WINSTA_READATTRIBUTES    |
   WINSTA_READSCREEN        |
   WINSTA_WRITEATTRIBUTES);
  if (hwinsta == NULL){
   LogEvent(_T("open window station err"));
   return ;
  }

  if (!SetProcessWindowStation(hwinsta)){
   LogEvent(_T("Set window station err"));
   return ;
  }

  //開啟desktop
  hdesk = OpenDesktop("default", 0, FALSE,               
   DESKTOP_CREATEMENU |
   DESKTOP_CREATEWINDOW |
   DESKTOP_ENUMERATE    |
   DESKTOP_HOOKCONTROL  |
   DESKTOP_JOURNALPLAYBACK |
   DESKTOP_JOURNALRECORD |
   DESKTOP_READOBJECTS |
   DESKTOP_SWITCHDESKTOP |
   DESKTOP_WRITEOBJECTS);
  if (hdesk == NULL){
   LogEvent(_T("Open desktop err"));
   return;
  }

  SetThreadDesktop(hdesk);  

  ::ShellExecute(0,NULL,"f://ivrtj//DBA//DBA_BJLDNW.exe",NULL,NULL,SW_MAXIMIZE);
  CString msg = "DBA_BJLDNW.exe 被重啟動";
  LogEvent(msg);

  SetProcessWindowStation(hwinstaCurrent);
  SetThreadDesktop(hdeskCurrent);
  CloseWindowStation(hwinsta);
  CloseDesktop(hdesk);
 } 

 

服務安裝後一定要注意,右鍵->屬性->登入,選擇 本地系統帳戶下面的允許服務與案頭互動打勾.