home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9303 / netz / tpnet / mywindos.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-06-02  |  1005 b   |  35 lines
  1. (*========================================================*)
  2. (*                     MYWINDOS.PAS                       *)
  3. (*             (c) 1993 G. Blumert & DMV-Verlag           *)
  4. (*--------------------------------------------------------*)
  5. (*     Compiler: Turbo-/Borland-Pascal für Windows        *)
  6. (* Bildet die Funktion FSearch (Ergebnistyp STRING) nach  *)
  7. (*========================================================*)
  8.  
  9. UNIT MyWinDOS;
  10. {$X+}
  11. INTERFACE
  12.  
  13. USES WinDos, Strings;
  14.  
  15. TYPE
  16.   PathStr = STRING[fsPathName];
  17.  
  18. FUNCTION FSearch(FileName, DirList: PathStr): PathStr;
  19.  
  20. IMPLEMENTATION
  21.  
  22. FUNCTION FSearch(FileName, DirList: PathStr): PathStr;
  23. VAR
  24.   FileStr, DirStr, ResStr: ARRAY[0..fsPathName] OF CHAR;
  25. BEGIN
  26.   FSearch := StrPas(
  27.        FileSearch(ResStr, StrPCopy(FileStr, FileName),
  28.                   StrPCopy(DirStr, DirList)))
  29. END;
  30.  
  31. END.
  32.  
  33. (*========================================================*)
  34. (*                   Ende von MYWINDOS.PAS                *)
  35.