Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.09.04;
Скачать: CL | DM;

Вниз

Как получить иконку файла, каталога в Windows XP   Найти похожие ветки 

 
Maxim K   (2003-07-05 01:18) [0]

Как получить иконку файла, каталога в Windows XP. Функция ExtractAssociatedIcon(HInstance,PChar("c:\windows\notepad.exe"),IconIndex) возвращает нулевое значение. Получение иконки нужно для отображения дерева каталогов(например как в проводнике).


 
Cobalt ©   (2003-07-05 14:08) [1]

1) А какой у тебя IconIndex?
2) См. HKEY_CLASSES_ROOT\Directory


 
Maxim K   (2003-07-05 14:17) [2]

DefaultIcon = %SystemRoot%\System32\shell32.dll,3 ... попробовал IconIndex = 3, тот же эффект


 
Maxim K   (2003-07-05 14:42) [3]

Извините что напряг, но я нашел немного другой путь:
============ //Author: Pascal Enz
uses
ShellApi;

function GetAssociatedIcon(const AExtension: string; ASmall: Boolean): HIcon;
var
Info: TSHFileInfo;
Flags: Cardinal;
begin
if ASmall then
Flags := SHGFI_ICON or SHGFI_SMALLICON or SHGFI_USEFILEATTRIBUTES
else
( PChar(AExtension)
Извините что напряг, но я нашел немного другой путь:
============ //Author: Pascal Enz
uses
ShellApi;

function GetAssociatedIcon(const AExtension: string; ASmall: Boolean): HIcon;
var
Info: TSHFileInfo;
Flags: Cardinal;
begin
if ASmall then
Flags := SHGFI_ICON or SHGFI_SMALLICON or SHGFI_USEFILEATTRIBUTES
else
Flags := SHGFI_ICON or SHGFI_LARGEICON or SHGFI_USEFILEATTRIBUTES;

SHGetFileInfo(PChar(AExtension), FILE_ATTRIBUTE_NORMAL, Info,
SizeOf(TSHFileInfo), Flags);
Result := Info.hIcon;
end;
============

Без проблем работает с файлами, директориями, корневыми дисками. Нашел по адресу http://delphiplus.nagano.ru/articles/advice/file_icon/index.html. Может комунить понадобиться.



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

Текущий архив: 2003.09.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
3-10581
Fenixx
2003-08-14 15:26
2003.09.04
Импорт данных в БД из текстового файла


14-10946
Евгений Николаевич
2003-08-15 08:02
2003.09.04
как поймать невидимку в миранде???


1-10708
pkert
2003-08-20 16:56
2003.09.04
Invalid pointer operation


14-10931
Soft
2003-08-16 18:36
2003.09.04
На начальном этапе есть шанс заработать до 100% в месяц, а далее


1-10728
kapitan
2003-08-20 12:08
2003.09.04
Version