2°C
завтра: 2°C
Погода в Перми
2°C
ночью−5°C
утром−1°C
завтра2°C
Подробно
 92,26
−0.3291
Курс USD ЦБ РФна 29 марта
92,2628
−0.3291
 99,71
−0.5647
Курс EUR ЦБ РФна 29 марта
99,7057
−0.5647
  • У кого-нибудь есть исходник (или ссылка) поиска файла по ВСЕМ папкам диска?

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


    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

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

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

Модератор: