[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