VPF::как загрузить системные иконки в TImageList?

Rohoss

Дата 29.12.2007, 01:43 (ссылка)

(нет голосов)

Загрузка ...

Начальник интернета

Профиль
Группа: Завсегдатай
Сообщений: 1308
Регистрация: 9.10.2006
Где: Matrix

Репутация: нет
Всего: 18

Допустим мне нужно загрузить в TImageList иконки, ассоциированные в windows с такими расширениями файлов .jpg .gif, как можно такое сделать? Если у кого-то есть пример буду очень признателен smile

--------------------

Файловый менеджер Explorer.Net скачать video

aktuba

Дата 29.12.2007, 04:55 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 7
Всего: 38

Rohoss, DRKB посмотреть не судьба или религия мешает? Почему надо спрашивать о том, что и так описано, полнее некуда???

--------------------

Rohoss

Дата 29.12.2007, 07:03 (ссылка)

(нет голосов)

Загрузка ...

Начальник интернета

Профиль
Группа: Завсегдатай
Сообщений: 1308
Регистрация: 9.10.2006
Где: Matrix

Репутация: нет
Всего: 18

Цитата(aktuba @ 29.12.2007, 04:55

)

Rohoss, DRKB посмотреть не судьба или религия мешает? Почему надо спрашивать о том, что и так описано, полнее некуда???

Конечно, я смотрел DRKB прежде чем задать вопрос…
Вот пример с DRKB

Код


procedure TForm1.Button1Click(Sender: TObject);
var
Icon: hIcon;
IconIndex: word;
begin
IconIndex := 1;
Icon := ExtractAssociatedIcon(HInstance,
   Application.ExeName, IconIndex);
DrawIcon(Canvas.Handle, 10, 10, Icon);
end;

только вот не понятно, если вместо Application.ExeName пишу нужный путь, например 'C:\2.JPG' , результата нету, а вот если к примеру так сделать

Код


var
Icon: hIcon;
IconIndex: word;
Ico:TIcon;
c:string;
begin
c:=Application.ExeName+ 'C:\2.JPG' ;
c:=copy(c,Length(Application.ExeName)+1,10);
Edit1.Text:=c;
Ico:=TIcon.Create;
IconIndex := 1;
Icon := ExtractAssociatedIcon(HInstance,
   PChar©, IconIndex);
DrawIcon(Canvas.Handle, 10, 10, Icon);
Ico.Handle:=Icon;
ImageList1.AddIcon(Ico);
end;

тогда работает, ну вот почему, неясно… smile

Это сообщение отредактировал(а) Rohoss - 29.12.2007, 07:06

--------------------

Файловый менеджер Explorer.Net скачать video

New Neon

Дата 9.1.2008, 01:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 13.3.2004
Где: Хмельницкий, Укра ина

Репутация: нет
Всего: нет

Всё просто, ты наверное просто передавал 'C:\2.JPG' а надо было:

Код


...
var
c : String;
...
begin
...
c:='C:\2.JPG';
Icon := ExtractAssociatedIcon(HInstance,
   PChar( c ), IconIndex);
...
end;
...

оссобенности реализации WinApi.

Данкинг

Дата 9.1.2008, 01:27 (ссылка)

(голосов:1)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Не понял, а вот тут что делается? smile

Код


c:=Application.ExeName+ 'C:\2.JPG' ;
c:=copy(c,Length(Application.ExeName)+1,10);

--------------------

There's nothing left but silent epitaphs.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »