−8°C
завтра: −9°C
Погода в Перми
−8°C
ночью−7°C
утром−9°C
завтра−9°C
Подробно
 63,23
−0.3396
Курс USD ЦБ РФна 13 декабря
63,2257
−0.3396
 70,43
−0.0287
Курс EUR ЦБ РФна 13 декабря
70,4271
−0.0287
  • У кого-нибудь есть исходник (или ссылка) поиска файла по ВСЕМ папкам диска?

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


    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

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

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

Модератор: