поиск и лог

[p51x]

  root := 'C:\';

Вы код только копи-пастите... читать не пробывали?

[hacknet]

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

  root := 'C:\';

Вы код только копи-пастите... читать не пробывали?

это я заметил!
а что именно сделать я не знаю( чтоб поиск пошел дальше

[p51x]

может возьмете книгу "Делфи для чайников" или "Паскаль для чайников", чтоб хотя бы элементарные вещи выучить?

[hacknet]

спасибо за совет))

root := ch;

так? не работает(((

подскажите!

простите за флуд, ну хоть кто нибудь помогите!

ау, плзззз помогите

[hacknet]

что прям ни кто не знает?)))

[hacknet]

ребят вот код, всё нормально ищет файл по всему ПК... подскажите как узнать, что поиск закончился? спасибо!

procedure Scan(s: string);
var
  sr: TSearchRec;
  r: integer;
  f: integer;
  OldDir: string;
begin
  {$I-}
  ChDir (s);
  {$I+}
  if IoResult = 0 then begin
    try
      r := FindFirst ('*.*', faAnyFile, sr);
      while r = 0 do begin
        if (sr.Name <> '.') and (sr.Name <> '..') then begin
          Form1.Label1.Caption := ExpandFileName (sr.Name);
          Form1.Label1.Update;
          if (faDirectory and sr.Attr) = faDirectory then begin
            OldDir := GetCurrentDir;
            Scan (ExpandFileName (sr.Name));
            ChDir (OldDir);
          end else begin
            if MatchesMask (sr.Name, '1111.txt') then
              form1.listbox1.Items.Add (ExpandFileName (sr.Name));
          end;
        end;
        r := FindNext (sr);
      end;
    finally
      FindClose (sr);

    end;
  end;
end;

procedure Search;
var
  DriveNum: Integer;
  DriveChar: Char;
  DriveBits: set of 0..25;

begin
  
  Integer(DriveBits) := GetLogicalDrives;
  for DriveNum := 0 to 25 do begin
  if not (DriveNum in DriveBits) then
    Continue;
    DriveChar := Char(DriveNum + Ord('a'));
    Scan (DriveChar + ':\');
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Search;
end;

[Stilet]

подскажите как узнать, что поиск закончился?

procedure TForm1.Button1Click(Sender: TObject);
begin
Search;ShowMessage('Поиск закончился');
end;