Скачать: CL | DM;

что нужно сделать чтобы 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 указав курсором директорию переходить в нее.

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

---

← →
sergey1 ©   (2005-12-02 00:57) [4]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c