poniedziałek, 25 października 2010

Instalacja usługi Apache Tomcat 6.x

Funkcja pozwala zainstalować usługę, zatrzymać, uruchomić, zaaktualizować parametry usługi i deinstalować usługę Apache Tomcat
Parametry:
szPath - ścieżka zainstalowanego serwera Apache Tomcat 6.x
nAction - 0..5 wybrana akcja dotycząca usługi
szParams - można pominąć - future
bLog - zapis do logu informacji
function BOOL TomcatService(szPath, nAction, szParams, bLog)
BOOL bResult;
STRING szLog, szProgram, szAction;
begin 
 switch (nAction)
  case 0: szAction = '//TS//';
    szLog = " uruchomienie usługi Tomcat jako aplikacja konsolowa";            
  case 1: szAction = '//SS//';   
    szLog = " zatrzymanie usługi Tomcat";            
  case 2: szAction = '//US//';
    szLog = " aktualizacja parametrow usługi Tomcat";                 
  case 3: szAction = '//IS//';
    szLog = " instalacja usługi Tomcat";                   
  case 4: szAction = '//DS//Tomcat6';
    szLog = " deinstalacja usługi Tomcat";                     
 endswitch;                             
 
 if Is(FILE_EXISTS, szPath ^ "tomcat6.exe") then
  szProgram = szPath ^ "tomcat6.exe";
  if LaunchApplication(szProgram, szAction, szPath, SW_HIDE, 0, LAAW_OPTION_USE_SHELLEXECUTE | 
LAAW_OPTION_WAIT | LAAW_OPTION_SHOW_HOURGLASS)=ISERR_SUCCESS then
      bResult = TRUE;  
     else  
      bResult = FALSE;
     endif;
 else  
  if bLog then WriteLog(1,"Brak pliku \"tomcat6.exe\" "); endif;
 endif;
 
 return bResult;             
end;

Brak komentarzy:

Prześlij komentarz