Текущий архив: 2002.11.07;
Скачать: 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 вся ветка
Текущий архив: 2002.11.07;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.016 c
