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

ShellListView   Найти похожие ветки 

← →
neodiX ©   (2002-10-28 21:36) [0]

Когда ShellListView отображает файлы, он показывает и иконки, а можно ли эти иконки как нить вытащить т.е. сохранить в файлы?

---

← →
neodiX ©   (2002-10-29 22:09) [1]

неужели никто не знает?

---

← →
Yury   (2002-10-30 11:02) [2]

Здравствуй уважаемый(ая) neodiX!

Я делал так:
uses ShellApi;
//....

//IconType может быть SHGFI_SMALLICON и SHGFI_BIGICON

function GetFileDesc(const _File: string; var Text: string; var Icon: HICON; IconType: Integer): Boolean;
var
SHFileInfo: TSHFileInfo;
begin
Text := EmptyStr;
Icon := 0;
Result := Bool(SHGetFileInfo(PChar(_File),0,SHFileInfo,sizeof(SHFileInfo),SHGFI_ICON or IconType or SHGFI_TYPENAME or SHGFI_DISPLAYNAME ));
if Result then
begin
Icon := SHFileInfo.hIcon;

Text := string(SHFileInfo.szTypeName);
end;

end;

---

← →
neodiX ©   (2002-10-30 12:44) [3]

2 Yury
Спасибо, то что надо!
P.S. Только я не (ая), посмотри мою анкету.

---

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

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



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