Скачать: CL | DM;

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

← →
}|{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

---

← →
Iconka ©   (2004-08-09 12:38) [6]

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

---

← →
delphi2002 ©   (2004-08-09 17:45) [7]

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.038 c