Большой Воронежский Форум
» Программирование>Как в listbox отображать название папок в Delphi
Alecsundr 10:59 11.04.2008
Мне необходимо отображать название папок в listbox, которые вложены в определенную папку? [Ответ]
mexx 12:49 11.04.2008
+1 тоже интересно [Ответ]
AIM-9M 16:29 11.04.2008
я думаю, что на просторах интернета таких примеров - хоть ртом ешь. [Ответ]
Pengvin 16:48 11.04.2008
http://delphiworld.narod.ru/
Alecsundr, скачай оттуда одноименную программу. там найдеш ответ на свой вопрос и на другие. вобще must have если собрался дельфи изучать [Ответ]
Alecsundr 09:58 12.04.2008
Спасибо за ссылку [Ответ]
Alecsundr 10:15 12.04.2008
mexx, чтоб не искал

Вывести список всех директорий, файлов и дисков
Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch


procedure TForm1.Button1Click(Sender: TObject);

var
D: PChar;
begin
D := 'C:\*.*';
SendMessage(ListBox1.Handle,
LB_DIR,
DDL_ARCHIVE +
DDL_DIRECTORY +
DDL_DRIVES +
DDL_EXCLUSIVE +
DDL_HIDDEN +
DDL_READONLY +
DDL_READWRITE +
DDL_SYSTEM,
Integer(D));
end;

//Oder:
//Or:

procedure TForm1.Button2Click(Sender: TObject);
var
D: PChar;
begin
D := 'C:\*.*';
ListBox2.Perform(LB_DIR,
DDL_ARCHIVE +
DDL_DIRECTORY +
DDL_DRIVES +
DDL_EXCLUSIVE +
DDL_HIDDEN +
DDL_READONLY +
DDL_READWRITE +
DDL_SYSTEM,
Integer(d));
end; [Ответ]
mexx 11:59 12.04.2008
спс =) [Ответ]
Вверх