Нужен исходник - полный аналог Windows проводника.

[jangle]

Если у кого-нибудь есть, поделитесь пожалуйста.

[Twister]

Эм... А может тебе просто сорцы проводника взять из исходников w2k/wnt?

[jangle]

Эм... А может тебе просто сорцы проводника взять из исходников w2k/wnt?

Думаю это будет нарушением авторских прав Майкрософт. И потом я на VB код ищю

[Twister]

Думаю это будет нарушением авторских прав Майкрософт. И потом я на VB код ищю

Да уж какие к чёрту авторские права... Сей код гуляет по сети с 2004 года, даже в исходниках Касперского можно найти коды мелкомягких. Так что забей

Ну а по поводу того, что ищешь на VB - удачи

[jangle]

даже в исходниках Касперского

Что за исходники Касперского?

[Twister]

http://blogs.drweb.com/node/414

[jangle]

http://blogs.drweb.com/node/414

Исходник в отрыве от его разработчиков ничего не стоит. Это все равно что украсть чертежи новейшего самолета, круто звучит, но практического смысла нет.

[Viper]

Это все равно что украсть чертежи новейшего самолета, круто звучит, но практического смысла нет.

Ага, потому что получается паравоз.

[FFOX]

Если у кого-нибудь есть, поделитесь пожалуйста.

Книжка Евангелоса Петрусоса Visual Basic 6 (ISBN 5731500738). Глава 8 вот код примера с диска к книге проект Explorer
ЗЫ
За работу кода отвечает издатель книги . Я не проверял.

[jangle]

Если у кого-нибудь есть, поделитесь пожалуйста.

Книжка Евангелоса Петрусоса Visual Basic 6 (ISBN 5731500738). Глава 8 вот код примера с диска к книге проект Explorer
ЗЫ
За работу кода отвечает издатель книги . Я не проверял.

Такой примитив меня не интересует. Набросал скелет проводника. И пока ищу ответы на следующие вопросы

1. Как выдрать из системы ассоциированные с конкретным типом приложений иконки?
2. Откуда выдрать тип файла?
3. Что означают атрибуты файлов под номерами 6, 38, 128 ?
4. Какой алгоритм округления размера файла применяет Майкрософт?
5. Пример быстрых сортировок по имени, размеру и дате.

[dr.MIG]

Что касается 1 и 2: За это отвечают разделы HKEY_CLASSES_ROOT. За ассоциирование с одним расширением отвечает два раздела. Первый — соответствует расширению, а в качестве значения параметра по умолчанию, имеет ProgID. Второй — с именем, соответствующим этому самому ProgID и значением параметра по умолчанию, соответствующим типу файла. Этот раздел может содержать так же подразделы, в том числе DefaultIcon (иконка по умолчанию).

[jangle]

Что касается 1 и 2: За это отвечают разделы HKEY_CLASSES_ROOT. За ассоциирование с одним расширением отвечает два раздела. Первый — соответствует расширению, а в качестве значения параметра по умолчанию, имеет ProgID. Второй — с именем, соответствующим этому самому ProgID и значением параметра по умолчанию, соответствующим типу файла. Этот раздел может содержать так же подразделы, в том числе DefaultIcon (иконка по умолчанию).

Дергать реестр каждый раз, чтобы получить иконку файла, что-то слишком тормознуто получается. Других путей нет?

[Antonariy]

1)Поставь курсор в поле Whisky и нажми enter. Если у тебя нет диска e:, задай другой в text3_keypress.
2)Тип файла это кагбэ его расширение, не?

Набросал скелет проводника.

Только зря потратил время У VB6 есть тип проекта Project Wizard, который генерирует результат не хуже.

Это одна из первых моих прикладных прог для интернет-салона, которого уже нет.
Сколько лет, сколько зим, но под семеркой работает.

[dr.MIG]

2)Тип файла это кагбэ его расширение, не?

ИМХО, в данном случае имеется в виду то, что пишется в окне свойств файла напротив строчки "Тип файла:"

[jangle]

2)Тип файла это кагбэ его расширение, не?

Нет не расширение, это столбец в проводнике

[FFOX]

Такой примитив меня не интересует.

Да это понятно
это же не проект, а направление в котором копать

[FFOX]

Нет не расширение, это столбец в проводнике

например для рисунка .bmp : HKEY_CLASSES_ROOT\.bmp Content Type
Ы?
Там же есть веточки HKEY_CLASSES_ROOT\.bmp\OpenWithList - надо покопать в эту сторону, очевидно, что здесь можно определить какой программой открывается и попробовать найти ассоциированную с этой программой иконку. Все эти вещи очевидно придется где-то кешировать, чтобы не дергать реестр
каждый раз. Ну не знаю, у меня только такие идеи, если есть другие пути с удовольствием послушаю.

[jangle]

Наконец докопал как получать иконки, типы файлов и прочую инфу о файле. Функция SHGetFileInfo вернет все в лучшем виде

[FFOX]

Наконец докопал как получать иконки, типы файлов и прочую инфу о файле. Функция SHGetFileInfo вернет все в лучшем виде

А scrrun.dll (microsoft scripting runtime) не позволяет делать то же самое? Объект FileSystemObject? Посмотри в эту сторону, может будет поудобнее
работать?

[Хакер]

FFOX, издеваешься? С каких это пор?

[Twister]

Немного оффтопа:

Исходник в отрыве от его разработчиков ничего не стоит

Глупости. В любом исходнике можно разобраться, все упирается только во время.

По теме:

Функция SHGetFileInfo вернет все в лучшем виде

Угу, но не всегда. Иногда приходилось брать иконку по инфе из реестра:

Код: Выделить всё

// GetRegistryIcon() возвращает хэндл иконки извлеченной с помощью ExtractIcon()

  SHGetFileInfo(lpszFileName, 0, shfi, SizeOf(SHFILEINFO), SHGFI_SMALLICON or SHGFI_ICON);
  ind := ImageList_AddIcon(frmMain.iml.Handle, shfi.hIcon);

  if ind = -1 then ind := ImageList_AddIcon(frmMain.iml.Handle, GetRegistryIcon(lpszFileName));
  if ind = -1 then ind := 0;
  // li это элемент в ListView
  li.ImageIndex := ind;

[FFOX]

FFOX, издеваешься? С каких это пор?

Я не такой знаток как ты, я только учусь, я задал вопрос, что может быть этот объект позволяет работать с свойствами файла...
Если я неправ, то наверно надо так и ответить, я буду знать, и скажу тебе спасибо, что ткнул носом.

[Antonariy]

Ты не просто спросил, а посоветовал попробовать, хотя должен был сделать это сам, прежде чем советовать. Дурной тон советовать то, что не знаешь как работает и работает ли вообще. Тем более если ты не знаток.

[FFOX]

Ты не просто спросил, а посоветовал попробовать,

1. С каких это пор в русском языке знак вопроса приравнивается к совету?
2 Косвенным путем, удалось выяснить, что FileSystemObject в частности и Microsoft Scripting Runtime в целом не позволяет решить задачу получения атрибутов файла в контексте данной задачи.
Спасибо, удачи!

[Antonariy]

1. Ну ты еще пару запятых из контекста вырви

Посмотри в эту сторону, может будет поудобнее работать?

Что таки попробовал — молодец.

[Antonariy]

Наткнулся на еще один способ, попроще в реализации:

Код: Выделить всё

Public Declare Function ExtractAssociatedIcon Lib "shell32.dll" Alias "ExtractAssociatedIconA" _
  (ByVal hInst As Long, ByVal lpIconPath As String, lpiIcon As Long) As Long

Public Declare Function DrawIcon Lib "user32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long, _
  ByVal hIcon As Long) As Long

Public Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long

Dim mIcon As Long
mIcon = ExtractAssociatedIcon(App.hInstance, xFileName, 2)
DrawIcon Image2.hDC, 0, 0, mIcon
DestroyIcon mIcon

[jangle]

Наткнулся на еще один способ, попроще в реализации:

Cпасибо! Отличный способ и очень удобный!

[FFOX]

1. Ну ты еще пару запятых из контекста вырви

Посмотри в эту сторону, может будет поудобнее работать?

Что таки попробовал — молодец.

Аналогично. Ты тоже не всю фразу привел, каждый привел то, что ему хотелось типа.
Где в моем посте Прямой совет "Бери Microsoft scripting runtime и ни ногой в сторону"? Одни вопросы.
А я не пробовал, я по твоей реакции понял.
Тоже мне развели флуд, нет сказать, что нельзя сделать и все. И все бы были довольны.

[jangle]

Наткнулся на еще один способ, попроще в реализации:

Код: Выделить всё

Public Declare Function ExtractAssociatedIcon Lib "shell32.dll" Alias "ExtractAssociatedIconA" _
  (ByVal hInst As Long, ByVal lpIconPath As String, lpiIcon As Long) As Long

Public Declare Function DrawIcon Lib "user32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long, _
  ByVal hIcon As Long) As Long

Public Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long

Dim mIcon As Long
mIcon = ExtractAssociatedIcon(App.hInstance, xFileName, 2)
DrawIcon Image2.hDC, 0, 0, mIcon
DestroyIcon mIcon

Иконка возвращается 32 на 32 пикселя, как получить 16 на 16? Вот такой код

Код: Выделить всё

DrawIconEx Picture1.hdc, 16, 16, hIcon, 16, 16, 0, 0, DI_NORMAL

портит внешний вид иконки

[iGrok]

Частично тут:
viewtopic.php?f=1&t=40136

Частично тут:
http://msdn.microsoft.com/en-us/library/bb776415.aspx