1 578
editací
Změny
Vytvorená stránka „Hledá soubor v seznamu adresářů. ;Deklarace function FileSearch(Dest, Name, List: PChar): PChar; ;Režim :Windows ;Poznámky :Hledá soubor daný parametrem Na...“
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]]
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.
[[Category:WinDos]]
;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]]
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.
[[Category:WinDos]]