FileSearch: Porovnání verzí

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání
 
Řádek 38: Řádek 38:
  
 
[[Category:WinDos]]
 
[[Category:WinDos]]
 +
[[Category:Správa souborů]]

Aktuální verze z 6. 10. 2012, 20:03

Hledá soubor v seznamu adresářů.

Deklarace
 function FileSearch(Dest, Name, List: PChar): PChar;
Režim
Windows


Poznámky
Hledá soubor daný parametrem Name v seznamu adresářů, daném parametrem List. Adresáře v List musejí být odděleny středníky.


Viz také
FileExpand
FileSplit
Délky řetězcových částí jména souboru


Vzorový příklad

{ FileSch.PAS}
{ Vzorový příklad pro funkci FileSearch. }
{ Pro Windows: }
{ uses WinCrt, WinDos; }
uses WinDos;
var
  S: array[0..fsPathName] of Char;
begin
  FileSearch(S, 'TURBO.EXE', GetEnvVar('PATH'));
  if S[0] = #0 then
    Writeln('TURBO.EXE nenalezen')
  else
    Writeln('Nalezen jako ', FileExpand(S, S));
end.