Pobieranie scieżki do php.ini z konfiguracji Apache

Parametry Funkcji:
szApacheConfigFile - scieżka do pliku konfiguracji Apache,
svPHPIniDir - ścieżka do php.ini jak zwracana
bLog - zapis do pliku log
Funkcja zwraca 2 wartość - true/false jako funkcja i svPHPIniDir jako ścieżka do pliki php.ini w przypadku detekcji konfiguracji php.ini w pliku konfiguracji serwera Apache -> httpd.conf

function BOOL GetApachePHPIniDir(szApacheConfigFile, svPHPIniDir, bLog)
BOOL bResult;
LIST lsApache;
string szLine;
int i;
begin
    if (bLog) then WriteLog(0,"* Pobieranie scieżki do php ini z konfiguracji Apache..."); endif;
    bResult = FALSE;
    if (Is(FILE_EXISTS,szApacheConfigFile)) then
        lsApache = ListCreate(STRINGLIST);
        ListReadFromFile ( lsApache, szApacheConfigFile ); //Odczyt Apache Conf
        if (ListCount(lsApache)>0) then         
                ListSetIndex(lsApache,LISTFIRST);                
                  for i=0 to ListCount(lsApache)-1                    
                      ListCurrentString ( lsApache, szLine ); 
                    szLine = StrTrim(szLine);
                    if (StrFind(szLine, "PHPIniDir")=0) then
                        StrSub(svPHPIniDir, szLine, 9, StrLength(szLine));
                        svPHPIniDir = StrTrim(svPHPIniDir);
                        StrReplace(svPHPIniDir,'"','',0);
                        StrReplace(svPHPIniDir,"/","\\",0);
                        if (bLog) then WriteLog(1,"- ścieżka do php.ini: "+svPHPIniDir); endif;
                        bResult = TRUE;
                      endif;
                      ListSetIndex(lsApache,LISTNEXT);
                  endfor;    
          endif;            
    endif;
    
    ListDestroy(lsApache);
    
    return bResult;
end;