If DirectoryExists(...'Addons') then ...
я получаю истину, если там папка называется на самом деле "AddOns".If DirectoryExists(...'Addons') then ...
... но ведь там я получу ложь, так как папка то на самом деле называется "AddOns".Спасибо :-)
function DirExists(const Where, What: string): Boolean; var R: TSearchRec; begin if FindFirst(IncludeTrailingPathDelimiter(Where) + AllFilesMask, faDirectory, R) <> 0 then Result := False else try repeat Result := ((R.Attr and faDirectory) <> 0) and SameFileName(R.Name, What) until Result or (FindNext(R) <> 0); finally FindClose(R); end; end;