Погода: −4 °C
14.12−5...−1пасмурно, небольшой снег
15.12−3...1пасмурно, небольшой снег
НГС.Форум /Компьютеры Интернет Связь / Программирование /

Кто работал с файлами в Delphi

ПечатьRSSДеревом

  • У кого-нибудь есть исходник (или ссылка) поиска файла по ВСЕМ папкам диска?

  • Ответ на сообщение Кто работал с файлами в Delphi пользователя Анонимный пользователь

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


    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

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

НГС.Форум /Компьютеры Интернет Связь / Программирование /
Перейти в форум

Модератор:
Наверх
Знакомства в Новосибирске
Погода в Новосибирске
Пробки в Новосибирске
Форумы в Новосибирске
Телепрограмма в Новосибирске
Афиша в Новосибирске
Гороскоп
Курсы валют в Новосибирске
Туризм в Новосибирске
Промокоды в Новосибирске
SHKULEV HOLDING
Подробности...
Сетевое издание «НГС.НОВОСТИ» (18+)
Зарегистрировано Федеральной службой по надзору в сфере связи, информационных технологий и массовых коммуникаций (Роскомнадзор)
Свидетельство о регистрации СМИ ЭЛ № ФС 77—84683
Учредитель: Общество с ограниченной ответственностью «ИНТЕРНЕТ ТЕХНОЛОГИИ»
Главный редактор: Громкова Елена Александровна
Адрес редакции: 630099, Россия, Новосибирск, ул. Ленина, д. 12, 6 этаж, телефон 8 (383) 212-52-52, 8 (923) 157-00-00 (круглосуточно)
Электронный адрес редакции: ngs@shkulev.ru
Контактные данные для Роскомнадзора и государственных органов: juristnsk@shkulev.ru
Техподдержка: help@shkulev.ru, 8 (800) 200-03-83 (доб.3)
Связаться с отделом продаж: 8 (383) 212-52-52, 8 (800) 200-03-83 (звонок с сотового бесплатный), reklamangs@shkulev.ru
Публикации с пометкой «На правах рекламы», «Партнёрский проект», «Новости телекома», «Открытая трибуна», «Выборы-2019» и «Выборы-2020» оплачены рекламодателем. Редакция сайта не несет ответственности за достоверность информации, содержащейся в рекламных объявлениях.

Информация об ограничениях

Политика использования cookies
Политика конфиденциальности и обработки персональных данных и правила использования сайта