Скачать: CL | DM;

Системные иконки 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.011 c