Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

}|{yk © (2004-08-09 11:32:00)
Не своего

delphi2002 (2004-08-09 17:45:00) [1]
Удалено модератором
Примечание: Правила читаем

Iconka (2004-08-09 12:38:00) [2]
Иш чё захотел...

GuAV (2004-08-09 12:08:00) [3]

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

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

Ivolg (2004-08-09 11:52:00) [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. Файл должен существовать, иначе возвращается иконка для неопределенного типа файла.

Почемучка (2004-08-09 11:49:00) [5]
H:=TIcon.Create;
H.Handle := ExtractIcon(hInstance, pChar(Path), 0);
Form1.Canvas.Draw(0,0,H);
H.Free;

olookin (2004-08-09 11:48:00) [6]
ExtractAccociatedIcon?

ssk (2004-08-09 11:45:00) [7]
в демках есть пример проводника ресурсов. он как раз и извлекает иконки. посмотри там.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »