что нужно сделать чтобы DlgDirList выводил еще и файлы

← →
sergey1 © (2005-11-27 22:55) [0]

ndx:=GetWindowTextLength(edit);
if ndx<>0 then begin
getWindowText(edit,p,ndx+1);
windows.SetCurrentDirectory(p);
windows.DlgDirList(mainwnd,nil,idlb_1,ide_1,DDL_DIRECTORY);

mainwnd – созданная форма родитель при помощи windows api,
edit – потомок,
idlb_1 – идентификатор ListBox,
ide_1 – идентификатор Edit
(все эти компоненты созданы при помощи Windows API, т.е. не являются VCL компонентами)
эта процедура определяет только директории текущего диска или при указании другой директории выводит список поддиректорий, что нужно сделать чтобы выводил еще и файлы, пробовал подставлять и другие константы в место DDL_DIRECTORY но ничего в ListBox не выходило .

← →
begin...end © (2005-11-28 08:03) [1]

var
Path: array [0..MAX_PATH] of Char;
begin
Path := "*";
DlgDirList(mainwnd, Path, idlb_1, ide_1, DDL_DIRECTORY or DDL_ARCHIVE or DDL_HIDDEN or DDL_READONLY or DDL_SYSTEM);
end

← →
sergey1 © (2005-12-02 00:25) [2]

спасибо я понял как это сделать
var
Path:Char;
begin
Path := "с:\";
DlgDirList(mainwnd, Path, idlb_1, ide_1,DDL_readwrite or DDL_DIRECTORY);
end

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

и вот еще что я хотел спросить может кто знает как можно в ListBox"e указав курсором директорию переходить в нее.

← →
Джо © (2005-12-02 00:37) [3]

[2] sergey1 © (02.12.05 00:25)
>
> и вот еще что я хотел спросить может кто знает как можно
> в ListBox"e указав курсором директорию переходить в нее.

Для начала нужно определиться, что ты имеешь в виду под "переходить в нее".

Для начала нужно определиться, что ты имеешь в виду под "переходить в нее".

"переходить в нее" т.е. обновить ListBox текущим каталогом к примеру был на диске "С:\" и видел все каталоги этого диска, а при переходе на "C:\temp" видишь содержимое этого каталога и т.д.

что нужно сделать чтобы DlgDirList выводил еще и файлы Найти похожие ветки