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

Как заполнить ComboBox списком директорий? DlgDirListComboBox! Как она работает?   Найти похожие ветки 

← →
C_M   (2001-12-28 12:45) [0]

С наступающим всех!
Помогите решить проблему: Есть прога которая создает директории по именам пользователей. В директории пишуться логи. Задача сводиться к тому, что надо получить список пользователей (директорий) и засунуть его в ComboBox. Я для этого выбрал функцию DlgDirListComboBox. Но не могу заставить ее работать. Помогите Плизззззз!

procedure TForm1.rgSelectClick(Sender: TObject);
var ptUser : PChar;
begin
cbUser.Visible := rgSelect.ItemIndex = 0;

ptUser := StrNew (PChar("C:\Internet\WinGate\Audit\"));
if DlgDirListComboBox(
Self.Handle,
PChar(ptUser),
cbUser.ComponentIndex,
0,
DDL_DIRECTORY)=0 then
MessageDlg("Error",mtInformation,[mbOk],0);
end;

---

← →
gek   (2001-12-28 13:49) [1]

Читать описание VCL
DirectoryListBox

---

← →
C_M   (2001-12-28 14:20) [2]

Очень жаль, но мне этот компонент не подходит, мне не нужен весь список директорий Parent или Sub и диски. Мне надо только список подкаталогов одного каталога без возможности навигации по нему.

---

← →
Polevi ©   (2001-12-28 14:39) [3]

procedure TForm1.Button1Click(Sender: TObject);
var
SR:TSearchRec;
isFound:boolean;
begin
isFound:=FindFirst("c:\*.*",faAnyFile,SR)=0;
while isFound do
begin
if SR.Attr=faDirectory then ListBox1.Items.Add(SR.Name);
isFound:=FindNext(SR)=0;
end;
FindClose(SR);
end;

---

← →
gek   (2001-12-28 14:39) [4]

Ну тогда писать свой копон

---

← →
C_M   (2001-12-28 15:48) [5]

Из всего вышепредложенного следует, что функция DlgDirListComboBox непригодна для употребления с VCL. Я правильно понял?

---

← →
Gendalf   (2001-12-28 19:26) [6]

И тебя с новым годом!
Народ нынче скуп на советы, с финд диалогом никто мне так не помог - эх, ну да ладно. Лови.

DlgDirListComboBox(Form1.Handle,"C:\",ComboBox1.Handle,0,DDL_DIRECTORY);

У меня так работает.

---

← →
C_M   (2001-12-29 10:13) [7]

С наступающим Новым Годом! :))
Огромное спасибо! ВСЕМ!!
Чудесней подарка наверное трудно предумать! :)))

---

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

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



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