paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-01 19:29:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Implemented function ExeSearch

Browse Source 
git-svn-id: trunk@12947 -
This commit is contained in:
joost 2009-03-22 10:02:24 +00:00
parent 2c7d05d210
commit 51b49d324e
2 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/objpas/sysutils/filutilh.inc
View File

@ -96,6 +96,7 @@ Function FileSetAttr (Const Filename : String; Attr: longint) : Longint;
Function DeleteFile (Const FileName : String) : Boolean;
Function RenameFile (Const OldName, NewName : String) : Boolean;
Function FileSearch (Const Name, DirList : String; ImplicitCurrentDir : Boolean = True) : String;
Function ExeSearch (Const Name, DirList : String) : String;
Function FileIsReadOnly(const FileName: String): Boolean;
Function GetFileHandle(var f : File):Longint;

10
rtl/objpas/sysutils/sysutils.inc
View File

@ -51,6 +51,16 @@
result:='';
end;
Function ExeSearch (Const Name, DirList : String) : String;
begin
{$ifdef unix}
Result := FileSearch(Name, DirList, False);
{$else unix}
Result := FileSearch(Name, DirList, True);
{$endif unix}
end;
{$ifndef OS_FILEISREADONLY}
Function FileIsReadOnly(const FileName: String): Boolean;