Погода: 12 °C
23.0911...17переменная облачность, небольшие дожди
24.097...10переменная облачность, небольшие дожди
  • У кого-нибудь есть исходник (или ссылка) поиска файла по ВСЕМ папкам диска?

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


    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

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

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

Модератор: