{ ********************************************************************* Copyright (C) 1997, 1998 Gertjan Schouten This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ********************************************************************* System Utilities For Free Pascal } Const DirSeparators : set of char = ['/','\']; function ChangeFileExt(const FileName, Extension: string): string; function ExtractFilePath(const FileName: string): string; function ExtractFileDrive(const FileName: string): string; function ExtractFileName(const FileName: string): string; function ExtractFileExt(const FileName: string): string; function ExtractFileDir(Const FileName : string): string; function ExpandFileName (Const FileName : string): String; function ExpandUNCFileName (Const FileName : string): String; function ExtractRelativepath (Const BaseName,DestNAme : String): String; function IncludeTrailingPathDelimiter(Const Path : String) : String; function IncludeTrailingBackslash(Const Path : String) : String; function ExcludeTrailingBackslash(Const Path: string): string; function ExcludeTrailingPathDelimiter(Const Path: string): string; function IsPathDelimiter(Const Path: string; Index: Integer): Boolean; Procedure DoDirSeparators (Var FileName : String); Function SetDirSeparators (Const FileName : String) : String; Function GetDirs (Var DirName : String; Var Dirs : Array of pchar) : Longint; Function SameFileName(const S1, S2: string): Boolean;