Как бы попроще получить иконку приложения?

← →
}|{yk © (2004-08-09 11:32) [0]

Не своего

← →
ssk © (2004-08-09 11:45) [1]

в демках есть пример проводника ресурсов. он как раз и извлекает иконки. посмотри там.

← →
olookin © (2004-08-09 11:48) [2]

ExtractAccociatedIcon?

← →
Почемучка (2004-08-09 11:49) [3]

H:=TIcon.Create;
H.Handle := ExtractIcon(hInstance, pChar(Path), 0);
Form1.Canvas.Draw(0,0,H);
H.Free;

← →
Ivolg (2004-08-09 11:52) [4]

uses ShellApi;
procedure TForm1.Button1Click(Sender: TObject);
var
IconIndex : word;
begin
IconIndex := SpinEdit1.Value;
Image1.Picture.Icon.Handle := ExtractAssociatedIcon(HInstance,
Pchar(Edit1.Text),IconIndex);
end;
положи Image1, SpinEdit1 и Edit1. Значение Edit1 задает имя файла, для которого необходимо определить иконку Image1 является получателем иконки, IconIndex задает индекс (если иконок несколько), отсчет индекса идет с 0. Файл должен существовать, иначе возвращается иконка для неопределенного типа файла.

← →
GuAV © (2004-08-09 12:08) [5]

> иконку приложения?

достаточно и ExtractIcon

Иш чё захотел...

Удалено модератором
Примечание: Правила читаем

Как бы попроще получить иконку приложения? Найти похожие ветки