Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2008.10.19;
Скачать: [xml.tar.bz2];

Вниз

Системные иконки Shell32.dll   Найти похожие ветки 

 
Нов_и_чок   (2008-09-10 15:22) [0]

Подскажите пожалуйста как можно к проекту подключить иконки Shell32.dll


 
brother ©   (2008-09-10 15:25) [1]

в начале "выдрать" их оттуда, а потом можно поместить в ресурс и использовать в своем приложении


 
Нов_и_чок   (2008-09-10 15:27) [2]

Пробовал качество теряется! Возник вопрос можно выдрать так, шобы качество не терялось???


 
brother ©   (2008-09-10 15:29) [3]

> Пробовал качество теряется!

не тем пробовал? ;))))) попробуй restorator...


 
clickmaker ©   (2008-09-10 15:29) [4]

LoadImage(GetModuleHandle("shell32.dll"), MAKEINTRESOURCE(IconID), IMAGE_ICON, 16, 16, 0)


 
Нов_и_чок   (2008-09-10 15:33) [5]

Я наверно наглею, но как я понимаю LoadImage вытаскивает по одной, я хочу все сразу... :)


 
brother ©   (2008-09-10 15:38) [6]

в любом варианте, грузишь по одной сколько надо...


 
Amoeba ©   (2008-09-10 15:43) [7]


> я хочу все сразу...

И что же такое собираешься делать со всеми сразу?


 
Правильный$Вася   (2008-09-10 15:45) [8]


> я хочу все сразу

мозаикой выложить?


 
Palladin ©   (2008-09-10 15:47) [9]


> brother ©   (10.09.08 15:25) [1]

тебя MS потом возлюбит за такие дела...


 
Anatoly Podgoretsky ©   (2008-09-10 15:48) [10]

> brother  (10.09.2008 15:25:01)  [1]

Они так уже в ресурсе.


 
Sapersky   (2008-09-10 15:58) [11]

Uses ShellAPI;

function GetSysImgList(Owner : TComponent; SmallIcons : Boolean): TCustomImageList;
var FileInfo : TSHFileInfo;
   Flags : DWord;
begin
Result := TCustomImageList.Create(Owner);
FillChar(FileInfo, SizeOf(FileInfo), 0);
Flags := SHGFI_SYSICONINDEX;// or SHGFI_ICON;
If SmallIcons then Flags := Flags or SHGFI_SMALLICON;
Result.Handle := SHGetFileInfo("", 0, FileInfo, Sizeof( FileInfo ), Flags);
Result.ShareImages := True;
end;

Почему использовал TCustomImageList вместо TImageList - уже и сам не помню, возможно, не хотелось добавлять в uses Сontrols.


 
Правильный$Вася   (2008-09-10 16:02) [12]


> Sapersky   (10.09.08 15:58) [11]

и произвольная нумерация каждый раз...


 
Sapersky   (2008-09-10 16:15) [13]

Возможно. Нумерацией я не интересовался, т.к. использовал этот ImageList для отображения иконок файлов, индексы получал тоже через ShGetFileInfo.



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2008.10.19;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.005 c
2-1220531255
zzz
2008-09-04 16:27
2008.10.19
Проверка на последнюю запись


11-1194543607
Sinko
2007-11-08 20:40
2008.10.19
KOL CE + Lazarus +Иероглифы


2-1221057756
deras
2008-09-10 18:42
2008.10.19
Работа с датой


15-1219836124
Kent
2008-08-27 15:22
2008.10.19
Visra. Прямая запись на raw диск. Только через драйвер?


2-1221045757
Нов_и_чок
2008-09-10 15:22
2008.10.19
Системные иконки Shell32.dll





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский