21°C
завтра: 22°C
Погода в Перми
21°C
вечером22°C
ночью19°C
завтра22°C
Подробно
 66,00
+0.1054
Курс USD ЦБ РФна 17 августа
65,9961
+0.1054
 73,22
−0.2323
Курс EUR ЦБ РФна 17 августа
73,2227
−0.2323
  • У кого-нибудь есть исходник (или ссылка) поиска файла по ВСЕМ папкам диска?

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


    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

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

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

Модератор: