| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

SHGetSystemInfo и иконки

CatAlone ©   (2007-07-19 19:18:00) 

Привет всем! Дело в том, что у меня не все иконки отображаются в листвью корректно. Я так полагаю, что это из-за того, что первым параметром я указываю не существующие файлы. Прав ли я и как это можно обойти?

---

CatAlone   (2007-07-20 21:09:00) [1]

begin...end
Извиняюсь за свою тупость. Просто в английском не силен я и упор делал на твой пример.
Спасибо БОЛЬШОЕ!!!! Помогло.

---

begin...end   (2007-07-20 21:02:00) [2]

> CatAlone   (20.07.07 20:05) [3]

Основная мысль сообщения [1] заключалась в использовании флага SHGFI_USEFILEATTRIBUTES. В коде [3] я его не наблюдаю...

---

CatAlone   (2007-07-20 20:05:00) [3]

Что-то все равно не получается. Привожу код.

procedure TForm1.FormCreate(Sender: TObject);
var
sysimagelist:uint;
SFI:tshfileinfo;
begin

sysimagelist:=SHGetFileInfo('',0,SFI,sizeof(tshfileinfo),SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
if sysimagelist<>0 then begin
listview1.SmallImages.Handle:=sysimagelist;
listview1.SmallImages.ShareImages:=true;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
shinfo:tshfileinfo;
begin
.......

ext := LowerCase(ExtractFileExt(fname));
shgetfileinfo(pchar('*.'+ext),0,shinfo,sizeof(shinfo),SHGFI_TYPENAME or SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
listview1.Items.Add.Caption:=fdobname;
listview1.Items.Item[i-1].ImageIndex:=shinfo.iIcon;
end.


Здесь fname это имя несуществующего файла.

---

CatAlone   (2007-07-19 20:09:00) [4]

Да ты прав. В спешке неправильно написал. Надо будет попробовать.

---

begin...end   (2007-07-19 20:06:00) [5]

Может быть, имеется в виду SHGet FileInfo ? Если да, то см. MSDN:

If the uFlags parameter includes the SHGFI_USEFILEATTRIBUTES flag, pszPathparameter does not have to be a valid file name. The function will proceed as if the file exists with the specified name and with the file attributes passed in the dwFileAttributes parameter. This allows you to obtain information about a file type by passing just the extensionfor pszPathand passing FILE_ATTRIBUTE_NORMAL in dwFileAttributes.

То есть, код должен быть примерно таким:

var
 Info: TShFileInfo;
begin
 if SHGetFileInfo('.exe', FILE_ATTRIBUTE_NORMAL, Info, sizeof(Info), SHGFI_ICON or SHGFI_USEFILEATTRIBUTES) <> 0 then
   // в поле Info.hIcon лежит хэндл нужной иконки
 ...
end

---

Наверх