| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как заполнить ComboBox списком директорий? DlgDirListComboBox! Как она работает? [D5, Win2k]
C_M © (2001-12-28 12:45:00)С наступающим всех!
Помогите решить проблему: Есть прога которая создает директории по именам пользователей. В директории пишуться логи. Задача сводиться к тому, что надо получить список пользователей (директорий) и засунуть его в 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;
C_M (2001-12-29 10:13:00) [1]С наступающим Новым Годом! :))
Огромное спасибо! ВСЕМ!!
Чудесней подарка наверное трудно предумать! :)))
Gendalf (2001-12-28 19:26:00) [2]И тебя с новым годом!
Народ нынче скуп на советы, с финд диалогом никто мне так не помог - эх, ну да ладно. Лови.
DlgDirListComboBox(Form1.Handle,"C:\",ComboBox1.Handle,0,DDL_DIRECTORY);
У меня так работает.
C_M (2001-12-28 15:48:00) [3]Из всего вышепредложенного следует, что функция DlgDirListComboBoxнепригодна для употребления с VCL. Я правильно понял?
Polevi (2001-12-28 14:39:00) [4]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:00) [5]Ну тогда писать свой копон
C_M (2001-12-28 14:20:00) [6]Очень жаль, но мне этот компонент не подходит, мне не нужен весь список директорий Parent или Sub и диски. Мне надо только список подкаталогов одного каталога без возможности навигации по нему.
gek (2001-12-28 13:49:00) [7]Читать описание VCL
DirectoryListBox
| |
