Браузер файлов на диске

← →
Андрей (2008-02-02 12:30) [0]

Ребят, очень нужна помощь!!! горит просто таки! помогите написать прогу "Браузер файлов на диске" это очень важно. сам плохо во всём этом понимаю, а курсовик скоро сдавать. ОЧЕНЬ НАДЕЮСЬ НА ВАШУ ПОМОЩЬ!!! заранее спасибо

← →
Riply © (2008-02-02 12:35) [1]

> [0] Андрей (02.02.08 12:30)
> это очень важно. сам плохо во всём этом понимаю, а курсовик скоро сдавать.

А ведь, кто-то, кто хотел Учиться, не попал в институт,
поскольку ты его место занял.

Может освободить ему место ?

← →
boa_kaa © (2008-02-02 12:56) [2]

помнится закладка такая была Win 3.1. Даже писать ничего не надо...

> Riply © (02.02.08 12:35) [1]

+1

← →
ketmar © (2008-02-02 13:20) [3]

>[0] Андрей(02.02.08 12:30)
поможем советом: дворники нужны завсегда, а быдлокодеров и так переизбыток.

← →
Anatoly Podgoretsky © (2008-02-02 14:16) [4]

> Андрей (02.02.2008 12:30:00) [0]

Она уже написана, это проводник, в подворотне Браузер

← →
den303 © (2008-02-02 17:00) [5]

Эта процедура выводит список файлов в папке (стырено с DelphiWorld, ибо своего проекта под рукой нет, а наизусть не помню :o) )
procedure ListFileDir(Path: string; FileList: TStrings); var SR: TSearchRec; begin if FindFirst(Path + "*.*", faAnyFile, SR) = 0 then begin repeat if (SR.Attr <> faDirectory) then begin FileList.Add(SR.Name); end; until FindNext(SR) <> 0; FindClose(SR); end; end;
вызов:
procedure TForm1.Button1Click(Sender: TObject); begin ListFileDir("C:\WINDOWS\", ListBox1.Items); end;

ЗЫ:
1.Попробуйте больше времени уделять учёбе, чтобы не выглядеть на данном форуме имбецилом. Ничего личного :o)
2. Заданный вами вопрос банален и тысячи примеров валяются в инете. Поисковиком пользоваться умеете?

← →
Palladin © (2008-02-02 17:28) [6]

новый стиль программирования... зубрежка приемов...

← →
Dmitry S © (2008-02-02 17:30) [7]

> Браузер файлов на диске

Очередной маразм.

← →
den303 © (2008-02-02 17:46) [8]

Palladin © (02.02.08 17:28) [6]
> новый стиль программирования... зубрежка приемов...

Если Вы мне (по поводу "...а наизусть не помню"), сразу говорю, что мне сильно влом запускать среду и справку, чтобы найти реализацию для тупого совета на форуме :o)))

А если автору - то он и зубрить не будет: Копи/пэйст и готово :o(

← →
проходил тут (2008-02-02 17:51) [9]

> А если автору - то он и зубрить не будет: Копи/пэйст и готово
> :o(

Это врядли... (SR.Attr <> faDirectory)

> den303 © (02.02.08 17:00) [5]

Умница, подсказал. Теперь готовься к следующему вопросу - "что это и куда это вставлять"

> Попробуйте больше времени уделять учёбе, чтобы не выглядеть
> на данном форуме имбецилом

В данном конкретном случае словосочетание "на данном форуме" явно лишнее

> проходил тут (02.02.08 17:51) [9]
> > А если автору - то он и зубрить не будет: Копи/пэйст и
> готово > :o(Это врядли... (SR.Attr <> faDirectory)

За что купил, за то и продаю.
Аффтар! Должно быть
(p.Attr and faDirectory)=0

> DrPass © (02.02.08 23:05) [10]
> готовься к следующему вопросу - "что это и куда это вставлять">

Ну тут уж придёццо ему самому думать

> "на данном форуме" явно лишнее

Возможно, но на этом особенно ;o)

Браузер файлов на диске Найти похожие ветки