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

← →
HDD (2004-09-28 18:10) [0]

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);
в итоге не пашет

← →
Falendysh (2004-09-28 18:59) [1]

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

← →
HDD (2004-09-28 19:08) [2]

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

← →
Falendysh (2004-09-28 19:09) [3]

например так:
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);

← →
Falendysh (2004-09-28 19:11) [4]

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

← →
HDD (2004-09-28 19:15) [5]

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

← →
HDD (2004-09-29 09:29) [6]

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

← →
HDD (2004-09-29 23:37) [7]

Делаю так:
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 23:40) [8]

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

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