Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Иконка

Автор: Seti 6.1.2004, 22:02

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

Автор: <Spawn> 6.1.2004, 22:13

При помощи 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

thanx большой!