Мобильная версия форумов
Открыть
 −8°C
завтра: −4°C
Погода в Перми
−8°C
утром−14°C
днем−9°C
завтра−4°C
Подробно
 66,70
+0.1615
Курс USD ЦБ РФна 16 февраля
66,7044
+0.1615
 75,25
+0.2021
Курс EUR ЦБ РФна 16 февраля
75,2492
+0.2021
  • Анонимный пользователь
    У кого-нибудь есть исходник (или ссылка) поиска файла по ВСЕМ папкам диска?

  • SibProgrammer

    Анонимный пользователь

    Вообщем, ниже цитата из одного из моих проектов. На оригинальность и безошибочность не претендую:улыб:Чтобы понять - нужно быть не полным чайником, т.к. мне все это объяснять и разжевывать не хочется ;))


    procedure TIniForm.miAddDirectoryAndAllSubClick(Sender: TObject);
    var
    RootDir : string;
    Folders : TStringList;
    CurrentItem : integer;
    Counter : integer;
    lpInfo : TBrowseInfo;
    Buf : PChar;
    Item : PItemIDList;
    //////////////////////////////
    procedure BuildFolderList;
    var
    FindInfo : TSearchRec;
    Rslt : integer;
    begin
    Counter := Folders.Count - 1;
    CurrentItem := 0;
    while CurrentItem

Записей на странице:

Перейти в форум

Модератор: