... TList; var dir: TSearchRec; ppidStr, statFile: string; statF: Text; childPID, ppid: LongInt; parts: TStringList; begin result := TList.Create; if FindFirst('/proc/*', faDirectory, dir) = 0 then begin repeat if (dir.Name[1] in ['0'..'9']) then begin statFile := '/proc/' + dir.Name + '/stat'; try ...

... then begin S:= HTTPClient.GetHeader(ST,'Content-Length'); If S<>'' then Result := S.ToInt64; end; HTTPClient.Free; St.Free; end else begin try if FindFirst(FPath , faAnyFile, sr) = 0 then begin Result := Sr.Size; end finally FindClose(sr); end end end;

... RightPanel: TPanel; ActivePanel: ^TPanel; procedure LoadPanel(var Panel: TPanel); var SR: TSearchRec; begin SetLength(Panel.Files, 0); if FindFirst(Panel.Path + '/*', faAnyFile, SR) = 0 then begin repeat SetLength(Panel.Files, Length(Panel.Files) + 1); Panel.Files[High(Panel.Files)] := ...

... ',ORD(A5[1])); A5:='GF*'; //НАЧАЛО ИМЕНИ КАТАЛОГА, ДРУГАЯ ЧАСТЬ СОДЕРЖИТ ПРОБЕЛ И НЕЛАТИНСКИЕ СИМВОЛЫ S5:='SLUCILASJ LAZA'; Q2:=SYSUTILS.findfirst(A5,faDirectory+faAnyFile+fahidden+fareadonly,Info); IF Q2=0 THEN S5:=INFO.NAME; SYSUTILS.FINDCLOSE(Info); WRITELN('__INFO.NAME__ ',StringCodePage(S5),' ...

... procedure CreateTumb(b: TBitmap; sz: integer); begin b.Width := sz; b.Height := sz; b.Canvas.StretchDraw(b.Canvas.ClipRect, bmp); end; begin if FindFirst(dir + '*.jpg', faAnyFile, sr) = 0 then begin img := TPicture.Create; bmp := TBitmap.Create; b1 := TBitmap.Create; repeat try FileName := sr.Name; ...

Очередное "Чеб, ты дибииил!" :oops: Или почему линуксовые версии никак не работали. If FindFirst(path + '*.*', faDirectory, SearchRec) = 0 Они не могли найти ни одной папки чтобы искать файлы в них! Угадайте с трёх раз, почему. Винда мудра и долготерпелива и подобное ...

... системе ext4 ? Для ext4 файлы в разном регистре - разные файлы. Потому прямого способа нет. Можно считать файлы в интересующем каталоге через findfirst/findnext и пробежаться по списку файлов, сравнивая названия без учета регистра.

... Exception.Create('Error'); end; MSWord.Documents.Add(EmptyParam, EmptyParam, EmptyParam, EmptyParam); infomemo.Lines.Add('Word запущен!'); if FindFirst(dirPath+'/' + '*.*', faArchive, SR) = 0 then begin repeat DirList.Add(StringReplace(dirPath+'\'+ SR.Name, '/', '\',[rfReplaceAll, rfIgnoreCase])); ...

... собой объект: папка или файл или объект вообще не существует? procedure TForm1.Button1Click(Sender: TObject); var R: TRawByteSearchRec; begin FindFirst(Edit1.Text, faAnyFile, R); end; R.Attr покажет, на какой объект указывает путь и его наличие. Если объекта нет, то R.Attr = faAnyFile = $000001FF; ...

... TStringList; SR: TSearchRec; begin // LazGetLanguageIDs(Lang, FallbackLang); try // Сделаем попытку удаления всех ранее нагенеренных файлов if FindFirst(GetTempDir + '*.slk', faAnyFile, SR) = 0 then begin repeat DeleteFile(GetTempDir + SR.Name) until FindNext(SR) <> 0; FindClose(SR); end; except ...

... TTreeView; aRoot: TTreeNode; Path: string; Recurse: boolean); var NewNode: TTreeNode; SRec: TSearchRec; begin if FindFirst(Path + '*.*', SysUtils.faAnyFile, SRec) = 0 then repeat if (sRec.Name = '.') or (sRec.Name = '..') then Continue; begin TreeViewObject.Add(PChar(Path ...

... else Die(RuEn('Не удалось открыть файл "%0"','Failed to open file "%0"'),[AFileName]); inherited Create(h); end; Function FindFirst (Const Path : TFileNameString; Attr : Longint; out Rslt : TSearchRec) : Longint; begin Name:= Path; Rslt.Attr:=attr; Rslt.ExcludeAttr:=(not ...

FindFirstUtf8 это же из лазаруса, в модулях fpc его нет. Если кодировка консоли совпадает с системной кодировкой, то и FindFirst будет нормально искать - какой набор байтов утилита получила, такой и надо найти. С проверкой ...

С появлением файловых систем с символическими ссылками, один и тот-же файл или каталог поиском по маске функциями findfirst и findnext за один раз можно найти несколько раз. По имени файла и его пути уже гарантированно не определить, обрабатывался этот файл или нет. И чтобы обработать ...

... TTreeView; aRoot: TTreeNode; Path: string; Recurse: boolean); var NewNode: TTreeNode; SRec: TSearchRec; begin if FindFirst(Path + '*.*', SysUtils.faAnyFile, SRec) = 0 then repeat if (sRec.Name = '.') or (sRec.Name = '..') then Continue; NewNode := aTreeView.Items.AddChild(aRoot, ...