Subversion Repositories fastphp

Rev

Rev 13 | Rev 25 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 13 Rev 16
Line 24... Line 24...
24 
 
 24 
 
25 
function FastPHPConfig: TMemIniFile;
 25 
function FastPHPConfig: TMemIniFile;
26 
begin
 26 
begin
27 
  if not Assigned(__FastPHPConfig) then
 27 
  if not Assigned(__FastPHPConfig) then
28 
  begin
 28 
  begin
29 
    // __FastPHPConfig := TMemIniFile.Create(ChangeFileExt(ParamStr(0), '.ini'));
 29 
    __FastPHPConfig := TMemIniFile.Create(IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0))) + 'FastPHP.ini');
30 
    __FastPHPConfig := TMemIniFile.Create('FastPHP.ini');
 - 
 
31 
  end;
 30 
  end;
32 
  result := __FastPHPConfig;
 31 
  result := __FastPHPConfig;
33 
end;
 32 
end;
34 
 
 33 
 
35 
function GetPHPExe: string;
 34 
function GetPHPExe: string;