[Bomj]

Сообщение от lmikle

Вообще, думаю, что проблема в чем-то другом. На чтение то система безопасности дает доступ.
Код покажи.

да,на чтение система даёт права.

Код:

procedure FindI(const aDir : String);
//const
//N = 10;
//ArrExt : array[1..N] of String = ('3FR', 'ACCDB', 'TXT', 'AI', 'ARW', 'BAY');

var
  StrExt : string;
  StrDir : String;
  SearchRec : TSearchRec;
  i : Integer;
begin
  StrDir := IncludeTrailingBackslash(aDir);
  if FindFirst(StrDir + '*.*', faAnyFile, SearchRec) = 0 then
    repeat
      StrExt := UpperCase( ExtractFileExt(SearchRec.Name) );
      if (SearchRec.Name = '.') or (SearchRec.Name = '..') then
        Continue;
      if (SearchRec.Attr and faDirectory) <> 0 then
        FindI(StrDir + SearchRec.Name)
      else
        for i := 1 to N do begin
          if StrExt = ArrExt[i] then begin

          
        end;
    until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
end;
procedure TForm1.Button1Click(Sender: TObject);
 var ser:TSearchRec;
 StrDir:string;
begin
 FindI('D :\');

 Memo1.Lines.Add(StrDir+ser.Name);
end;

end.