| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Загрузка списка файлов в листбокс

HDD ©   (2004-09-28 18:10:00) 

function DlgDirList(Dlg: HWnd; PathSpec: PChar; IDListBox, IDStaticPath: Integer; FileType: Word): Integer;
Заполняет IDListBox листингом файлов или каталогов, соответствующим имени маpшpута, заданным в PathSpec.

Паpаметpы:
Dlg: Блок диалога, содеpжащий IDListBox.

PathSpec: Стpока имени маpшpута (заканчивающаяся пустым символом).

IDListBox: Идентификатоp оpгана упpавления блока списка.

IDStaticPath: Статический текстовый идентификатоp оpгана упpавления для отобpажения текущего накопителя и каталога.
Записываю функцию так:
DlgDirList(lst, 'C:\windows ', lst, 0 , faAnyFile);
в итоге не пашет

---

HDD   (2004-09-29 23:40:00) [1]

Если не выделяю память под PC тогда прога виснет, если выделяю в листбоксе файлов все равно не видно.
Уже весь инет облазил никто ни чего не знает.

---

HDD   (2004-09-29 23:37:00) [2]

Делаю так:
var
PC:Char
IDDtex,IDC_STATIC1: Integer;
************************************************************
begin
GetMem(PC, 1000);
GetDlgItemText(LSB1, IDDtex, PC, 1000);
DlgDirList(LSB1,Pchar('C:\'),GetDlgCtrlID(LSB1),GetDlgCtrlID(IDDtex),faAnyFile);
FreeMem(PC);

---

HDD   (2004-09-29 09:29:00) [3]

Неужели никто не знает как пользоваться этой функцией?

---

HDD   (2004-09-28 19:15:00) [4]

Listbox AIP`пишный:
LSB1:=CreateWindowEx(0,'ListBox','ListBox',LBS_STANDARD or WS_CHILD or WS_VISIBLE,20,20,450,500,wndMain,0,

---

Falendysh   (2004-09-28 19:11:00) [5]

сорри, ща попробуем разобраться.

---

Falendysh   (2004-09-28 19:09:00) [6]

например так:

res:=FindFirst(cat+'*.*',faAnyFile,sea);
res:=findNext(sea);
While res=0 do
 begin
   if (Sea.Attr=faDirectory) and ((Sea.Name='.')or(Sea.Name='..')) then
    begin
     Res:=FindNext(sea);
     Continue;
    end;

 if (Sea.Attr=faDirectory) then
  begin
   FileFind(cat+Sea.Name+'\');
   Res:=FindNext(Sea);
   Continue;
  end;
   try
     Form1.ListBox1.Items.Add(Form1.ShellTreeView1.path+'\'+Cat+Sea.Name);
    finally
     Res:=FindNext(Sea);
    end
 end;
FindClose(Sea);


---

HDD   (2004-09-28 19:08:00) [7]

Не проще ,так надо!
Dgl - Блок диалога это хэндл главног окна?
IDListBox - это дочернее окно списка т.е Listbox?
IDStaticPath - а это что?
Спасибо за внимание.

---

Falendysh   (2004-09-28 18:59:00) [8]

А не проще самому написать?

---

Наверх