VPF::Получить иконки диска из проводника.

Дата 8.9.2004, 22:37 (ссылка)

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

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 14
Всего: 115

Нужна функция каторая проверит тип диска и выдаст соответвующую иконку этого диска.
Причем иконка должна соответствовать эксплореровской.
Результат функции должен быть TIcon

===========

Messages

Дата 8.9.2004, 23:11 (ссылка)

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

Загрузка ...

Шустрый

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

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

1. А зачем проверять тип диска?
2. Такой фичи в природе не существует, по ходу! Надо как-то изращацца!
3. Все SYS Иконки лежат как ресурс в, кажеться, /sysdir/system32/user32.dll
4. ...

Дата 8.9.2004, 23:18 (ссылка)

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

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 14
Всего: 115

Диск бывает Сетевой у него своя иконка, диск Бывает USB у него тоже своя иконка ну и тд..
Вообщем узнать тип диска и определить номер его иконки не проблема, пролема в том чтоб не производя лишних усилий, получить результат типа Ticon.

чесно говоря я могу эту проблему решить, но это будет выглядеть немного не красиво.

Дата 8.9.2004, 23:55 (ссылка)

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

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 14
Всего: 115

Всё сам разобрался...................... Ура.

Dynamic

Дата 10.9.2004, 18:21 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: 12
Всего: 15

RAdmin
А с товарищами поделишься?

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

Было бы о чем молчать, а уж что сказать – всегда найдется...

Дата 10.9.2004, 19:57 (ссылка)

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

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 14
Всего: 115

Можно получать иконки: файлов, дисков, папок и т.д.

Код


uses ShellAPI;

var
    Icon: TIcon;
     FileInfo: SHFILEINFO;
   From : string;

begin
  From:='c:\';

  Icon := TIcon.Create;
  SHGetFileInfo(PChar(From ), 0, FileInfo,
  SizeOf(FileInfo), SHGFI_DISPLAYNAME);
  SHGetFileInfo(PChar(From  ), 0, FileInfo,
  SizeOf(FileInfo), SHGFI_TYPENAME);
  SHGetFileInfo(PChar(From ), 0, FileInfo,
  SizeOf(FileInfo), SHGFI_ICON or SHGFI_SMALLICON);
  icon.Handle := FileInfo.hIcon;
  
  //Всё иконка готова теперь можно её юзать
  {ImageList2.AddIcon(Icon);}
  
          DestroyIcon(FileInfo.hIcon);
    Icon.Free;

Это сообщение отредактировал(а) RAdmin - 10.9.2004, 20:00

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