[Der_G()RuNu(h]

Может кто знает, как найти системные файлы?

P.S.
насколько я знаю, для этого есть
function FindFirst(const Path: string; Attr: Integer;
var F: TSearchRec): Integer;

function FindNext(var F: TSearchRec): Integer;

как ими пользоваться?
я написал один код, но вышла бесконечная рекурсия.

Подскажите, кто, что знает???

[NumLock]

все знают - в справке пример есть:

FindFirst, FindNext, FindClose example

Код:

procedure TForm1.Button1Click(Sender: TObject);

var
  sr: TSearchRec;
  FileAttrs: Integer;
begin
  StringGrid1.RowCount := 1;
  if CheckBox1.Checked then
    FileAttrs := faReadOnly
  else
    FileAttrs := 0;
  if CheckBox2.Checked then
    FileAttrs := FileAttrs + faHidden;
  if CheckBox3.Checked then
    FileAttrs := FileAttrs + faSysFile;
  if CheckBox4.Checked then
    FileAttrs := FileAttrs + faVolumeID;
  if CheckBox5.Checked then

    FileAttrs := FileAttrs + faDirectory;
  if CheckBox6.Checked then
    FileAttrs := FileAttrs + faArchive;
  if CheckBox7.Checked then

    FileAttrs := FileAttrs + faAnyFile;

  with StringGrid1 do
  begin
    RowCount := 0;

    if FindFirst(Edit1.Text, FileAttrs, sr) = 0 then

    begin
      repeat
        if (sr.Attr and FileAttrs) = sr.Attr then
        begin
        RowCount := RowCount + 1;
        Cells[1,RowCount-1] := sr.Name;
        Cells[2,RowCount-1] := IntToStr(sr.Size);
        end;
      until FindNext(sr) <> 0;
      FindClose(sr);
    end;
  end;
end;

[Der_G()RuNu(h]

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

все знают - в справке пример есть:

это клик...
а где сама функция?

[angvelem]

Вынеси содержимое из "клика" в функию и получишь требуемое:

это клик...
а где сама функция?

а уже к функции обратишься из "клика".

[Der_G()RuNu(h]

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

Вынеси содержимое из "клика" в функию и получишь требуемое:

а уже к функции обратишься из "клика".

блин... да мне не клик нужен, а сама функция...
у меня с ней проблемы...

[NumLock]

Сообщение от Der_G()RuNu(h

как ими пользоваться? я написал один код, но вышла бесконечная рекурсия.

как ими пользоваться я показал. теперь покажи свой код с рекурсией?

Сообщение от Der_G()RuNu(h

а где сама функция?

а что она должна возвращать? ответ "системные файлы" не принимается)

[Der_G()RuNu(h]

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

как ими пользоваться я показал. теперь покажи свой код с рекурсией?

Код:

function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer;
var
  Path: string;
  Attr: Integer;
begin
  Path:= 'c:\*.*';
  Attr:= faHidden + faSysFile;

  FindFirst(Path, Attr, F);

  if F.name <> '' then
  begin
    ListBox1.Items.Add(F.name); Добавление в TListBox имени найденного файла
    while FindNext(F) = 0 do
      ListBox1.Items.Add(F.name);
  end;
  FindClose(F);
end;

[Viajero]

Ух ты, ***ическая сила!!! Ну кто ж так делает???

function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer

Это ж системная функция, ты её переопределил и теперь у тебя рекурсия. Поменяй название, чтобы рекурсии не было.
Например:

Код:

function myFindSystemFiles(const Path: string; Attr: Integer; var F: TSearchRec): Integer

[Der_G()RuNu(h]

и все равно не катит... теперь пишет, что Path: string; Attr: Integer; неизвестные идентификаторы.

Как и где их объявить?
В процедуре когда их пишешь, все нормально, но в функции никак...

[Viajero]

Ну дык, ты ж почитай, как правильно процедуры и функции оформлять.
Path и Attr не могут быть сразу и параметрами и локальными переменными.
И зачем тебе вообще здесь функция, если она не возвращает результат.

[Der_G()RuNu(h]

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

зачем тебе вообще здесь функция, если она не возвращает результат.

как это сделать (найти системные файлы) самому - я хз, в гугле нашел про такую функцию. Но с функцией у меня никак не получается, поэтому я создал процедуру Find.

Код:

procedure Find;
var
  Searchrec: TSearchRec;//инфа о файле или каталоге
  F: TSearchRec;
  Path: string;
  Attr: Integer;
begin
  //Искать все файлы в заданной директории с расширение .wav
  Path:= 'E:\Музыка\Arash - Donya\*.mp3';
  //которые имеют атрибуты "Только для чтения" и "Архивный"
  Attr:= faReadOnly + faArchive;
  FindFirst(Path, Attr, F);
  //Если хотя бы один файл найден, то продолжить поиск
  if F.name <> '' then
  begin
    {ListBox1.Items.Add(F.name);//Добавление в TListBox имени найденного файла
    while FindNext(F) = 0 do
      ListBox1.Items.Add(F.name);}
    MainForm.Memo1.Lines.Add(F.name);
    {ChDir(SearchRec.Name);//войти в каталог
    Find;//поиск в подкаталоге
    ChDir('..');//выйти из каталога}
    while FindNext(F)=0 do
    MainForm.Memo1.Lines.Add(F.name);
  end;
  FindClose(F);

на примере файлов mp3 она работает, но системные файлы же так искать не будешь...
как мне функцию эту сделать или может есть другие пути решения?

[NumLock]

Сообщение от Der_G()RuNu(h

но системные файлы же так искать не будешь...

очень даже будешь. см. 2-ой пост на строчку:

Код:

FileAttrs := FileAttrs + faSysFile;

а так же на свою:

Код:

Path:= 'E:\Музыка\Arash - Donya\*.mp3';
Attr:= faReadOnly + faArchive;

[Der_G()RuNu(h]

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

И зачем тебе вообще здесь функция, если она не возвращает результат.

так что же, все делать процедурой?

[Der_G()RuNu(h]

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

очень даже будешь. см. 2-ой пост на строчку:

Код:

FileAttrs := FileAttrs + faSysFile;

так это в процедуре писать или все-таки функцию добить?

[NumLock]

Сообщение от Der_G()RuNu(h

так это в процедуре писать или все-таки функцию добить?

и там и там пиши - должно сработать
ЗЫ. червя на крючок, крючок в воду...
копай, копай здесь его много...
(С) Лева Соловейчик, "Особенности национальной рыбалки"
сорри за оффтоп