VPF::Иконка - Форум программистов

Seti

Дата 6.1.2004, 22:02 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 62
Регистрация: 4.12.2003

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

Как получить у системы иконку связанную с файлом?
А для exe шника надо получить иконку, связанную конкретно с данным файлом. (извлечь иконку, которая отображается в проводнике, из программы).

<Spawn>

Дата 6.1.2004, 22:13 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

При помощи ExtractAssociatedIcon из ShellAPI:

Код

uses ...ShellAPI;

procedure TForm1.Button2Click(Sender: TObject);
var
  IconIndex : Word;
  FileIcon : TIcon;
begin
  if OpenDialog1.Execute then
  begin
    FileIcon := TIcon.Create;
    try
      FileIcon.Handle := ExtractAssociatedIcon(hInstance, PAnsiChar(OpenDialog1.FileName), IconIndex);
      Image1.Picture.Assign(FileIcon);
    finally
      FreeAndNil(FileIcon);
    end;
  end;
end;

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

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Seti

Дата 7.1.2004, 04:38 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 62
Регистрация: 4.12.2003

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

thanx большой!

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