Правила форума
FindFirst (процедура) (модуль WinDos)Язык:
Русский
English
FindFirst (процедура) (модуль WinDos)
Ищет файл в заданном каталоге.
Объявление
Procedure FindFirst(Path : PChar; Attr : Word; Var F : SearchRec);
Режим
Windows, Real, Protected
Замечания
Ищет в определенном (или текущем) каталоге первое вхождение файла, соответствующего заданному имени и набору атрибутов.
Смотри также
Пример
Язык:
Русский
English
uses Dos, Crt;
var
DirInfo : SearchRec;
begin
FindFirst('*.PAS', faArchive, DirInfo);
{ Аналог команды DIR *.PAS }
while DosError = 0 do
begin
WriteLn(DirInfo.Name);
FindNext(DirInfo);
end;
end.
var
DirInfo : SearchRec;
begin
FindFirst('*.PAS', faArchive, DirInfo);
{ Аналог команды DIR *.PAS }
while DosError = 0 do
begin
WriteLn(DirInfo.Name);
FindNext(DirInfo);
end;
end.
::
::
::
