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

Вниз

Я могу получить в Imagelist виндосовские иконки, как теперь   Найти похожие ветки 

 
Regards   (2004-12-09 01:26) [0]

определить с какой иконкой ассоциирован нужный мне тип файла ? ".txt", ".jgp" и другие.

 SHGetDesktopFolder(Desktop);
 SHGetSpecialFolderLocation(Application.Handle, CSIDL_HISTORY, HistoryPIDL);
 ImageList1        := TImagelist.Create(Self);
 ImageList1.Handle := SHGetFileInfo(Pchar(HistoryPidl), 0, FileInfo,
   SizeOf(FileInfo), SHGFI_PIDL or SHGFI_SYSICONINDEX or SHGFI_SMALLICON);


Имеется в виду нужно получить номре в ИмаджЛисте. Нужно, чтобы использовать в ТриВью.


 
Regards   (2004-12-09 01:30) [1]

var
 FileInfo    : TSHFileInfo;
 HistoryPidl : PItemIDList;
 Desktop     : IShellFolder;
 ImageList1  : TImagelist;


 
Regards   (2004-12-10 01:32) [2]

Да, мастера, это сложный вопрос. Мастерский.


 
Dolt ©   (2004-12-10 09:26) [3]

s:=ansilowercase(ExtractFileExt(s));
SHGetFileInfo(PChar(s), 0, MoreInfo, SizeOf(MoreInfo), SHGFI_USEFILEATTRIBUTES or SHGFI_ICON);
                                       ImageIndex:=MoreInfo.Iicon;


 
Rouse_ ©   (2004-12-10 09:35) [4]

какую тебе ассоциацию?
Ты сначала посмотри что ты получаешь...

procedure TForm1.Button1Click(Sender: TObject);
var
FileInfo    : TSHFileInfo;
HistoryPidl : PItemIDList;
Desktop     : IShellFolder;
I: Integer;
begin
SHGetDesktopFolder(Desktop);
SHGetSpecialFolderLocation(Application.Handle, CSIDL_HISTORY, HistoryPIDL);
ImageList1.Handle := SHGetFileInfo(Pchar(HistoryPidl), 0, FileInfo,
  SizeOf(FileInfo), SHGFI_PIDL or SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
for I := 0 to 100 do
  ImageList1.Draw(Canvas, 16 * I, 10, I);
end;


Это раз.

Второе - зачем тебе нужен в таком варианте кода вот эта строчка "SHGetDesktopFolder(Desktop);"? Она тут ни к чему.

Третье - к твоему сведенью интерфейс IShellFolder имеет метод EnumObjects


 
Regards   (2004-12-11 03:42) [5]


> Dolt ©   (10.12.04 09:26) [3]
> s:=ansilowercase(ExtractFileExt(s));
> SHGetFileInfo(PChar(s), 0, MoreInfo, SizeOf(MoreInfo), SHGFI_USEFILEATTRIBUTES
> or SHGFI_ICON);
>                                        ImageIndex:=MoreInfo.Iicon;


Получается. Спасибо !
Где бы мне чего-нибудь почитать по этому вопросу. А то в справке Дельфи нихрена нету.


> Rouse_ ©   (10.12.04 09:35) [4]
> Второе - зачем тебе нужен в таком варианте кода вот эта
> строчка "SHGetDesktopFolder(Desktop);"? Она тут ни к чему.

Просочилась. Недовырезанный результат моих эксперементов.


> Третье - к твоему сведенью интерфейс IShellFolder имеет
> метод EnumObjects

Я не знаю как этим пользоваться.



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

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

Наверх




Память: 0.48 MB
Время: 0.044 c
4-1100011302
Arnold
2004-11-09 17:41
2004.12.26
Изменение теста потомка TEdit


3-1101735933
Chery
2004-11-29 16:45
2004.12.26
Как узнать путь к БД: МуСКЛ, драйвер MyODBC-3.51.10.


3-1101894176
Blondin
2004-12-01 12:42
2004.12.26
В каком порядке хранятся записи после insert ?


4-1099902701
Андрей Н.
2004-11-08 11:31
2004.12.26
Задержка в программе


4-1100012387
Eraszer
2004-11-09 17:59
2004.12.26
Hint из панели задач в стиле "Нехватает виртуальной памяти"