VPF::не работает DlgDirList - Форум программистов

BLACK_KOT

Дата 21.7.2010, 12:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 305
Регистрация: 20.12.2006

Репутация: нет
Всего: -1

Код


procedure TForm1.ListBox1DblClick(Sender: TObject);

var s:string;

begin

s:=listbox1.Items[SendMessage(ListBox1.Handle,lb_GetCurSel,0,0)];

if edit1.Text[length(edit1.text)]<>'\' then edit1.text:=concat(edit1.text+'\');

if (not FileExists(edit1.text+s)) and (s[1]='[')and(s[length(s)]=']') then

DlgDirList( handle,

PChar(edit1.text+copy(s,2,length(s)-2)),

ListBox1.Handle,

Edit1.Handle,

faAnyFile

);

if edit1.Text[length(edit1.text)]<>'\' then edit1.text:=concat(edit1.text+'\');

if FileExists(edit1.text+s) then

begin

caption:=edit1.text+s;

ShellExecute(handle,'open',PChar(edit1.text+s),'','c:\',sw_show);

end

end;

 

procedure TForm1.FormShow(Sender: TObject);

begin

edit1.Width:=1024*8-1;

edit1.Visible:=false;

DlgDirList(handle,

PChar('c:\'),

ListBox1.Handle,

Edit1.Handle,

faAnyFile

);

listbox1.Sorted:=false;

listbox1.Sorted:=true;

end;

это пример из Delphi Russian Knowledge Base

но у меня он почему то не работает. не могли бы вы выложить пример рабочей программы, где используется DlgDirList

--------------------

.. я - демо версия Бога от Microsoft..

Snowy

Дата 21.7.2010, 14:23 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

А в чём выражается "не работает"?
Какие-то ошибки, или ещё что?
Навскидку - не будет работать в 2010-й дельфе.
До 2010 будет работать во всех.
Хотя за Windows 7 не ручаюсь... Не юзал, не знаю...

BLACK_KOT

Дата 21.7.2010, 20:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 305
Регистрация: 20.12.2006

Репутация: нет
Всего: -1

ну то есть в прямом смысле не выводит мне в листбокс содержимое диска С:\ . уж по всякому колдовал, в итоге нашёл альтарнативу. но всё таки интересно. у меня делфи 7. не могли бы вы выложить исходник с примером?

Это сообщение отредактировал(а) BLACK_KOT - 21.7.2010, 20:58

--------------------

.. я - демо версия Бога от Microsoft..

Snowy

Дата 22.7.2010, 11:02 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

Замени faAnyFile на faDirectory

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »