Как заполнить 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]

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

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