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

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

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

Иконка

Rott © (2006-08-10 00:28:00)
Можно ли из другого приложения вытащить иконку и сохранить её на диске, например icon.ico

Anton_K (2006-08-27 16:37:00) [1]

> Смотри Shell_NotifyIcon...

Это тут при чем?

Vovan#1 (2006-08-27 00:21:00) [2]
> Icon.SaveToFile('My.ico');

Весьма ограниченная штука в Delphi. Лучше - писать вручную или использовать сторонние библиотеки.

vain (2006-08-26 23:35:00) [3]
Спасибо

Ketmar (2006-08-26 23:29:00) [4]
> [12] Zeqfreed © (26.08.06 23:27)
тьфу. пардон. ангел попутал. %-)

Zeqfreed (2006-08-26 23:27:00) [5]
> [11] Ketmar © (26.08.06 23:22)

uses windows конечно хорошо, а uses ShellAPI лучше ;)

Ketmar (2006-08-26 23:22:00) [6]
> [10] vain © (26.08.06 23:05)
потому что uses windows; писать надо.

vain (2006-08-26 23:05:00) [7]
А у меня
Undeclarated Identifier 'ExtractIcon'
Undeclarated Identifier 'ExtracAssociatedtIcon'
Почему так?

ArtemESC (2006-08-10 12:55:00) [8]
Смотри Shell_NotifyIcon...

Rott (2006-08-10 08:46:00) [9]
да у меня такие есть, а мне б надо бы, что б в моём приложении!

vodvorezlaya (2006-08-10 08:27:00) [10]
Есть проги такие как RESFIX и другие, они позволяют любые менипуляции с ресурсами тобишь иконками.

http://www.cracklab.ru/download.php

Rott (2006-08-10 03:27:00) [11]
А воту меня ещё такой вопрос возник. Возьмём к примеру:
У меня есть заранее написанная программа и, мне надо с помощью другой программы поменять первой иконку файла, ну котороя отображается в файле! Заранее благодарен!

Rott (2006-08-10 01:08:00) [12]

> Не понял, а это что Icon.SaveToFile('My.ico');

нет просто практически обновременно отправляли сообщения [2] and [3], Спасибо!

ArtemESC (2006-08-10 01:03:00) [13]
Rott (10.08.06 01:00) [3]
Не понял, а это что Icon.SaveToFile('My.ico');

Rott (2006-08-10 01:00:00) [14]
А не подскажите как сохранить

ArtemESC (2006-08-10 00:58:00) [15]
Вот так надо...
Icon := TIcon.Create;
Icon.Handle := ExtractIcon(Instance, FileName, 0);
Icon.SaveToFile('My.ico');
Icon.Free;

ArtemESC (2006-08-10 00:54:00) [16]
Можно...

IconIndex: integer;
Icon: TIcon;
begin
IconIndex := 0;
Icon.Handle := ExtractAssociatedIcon(hInstance, 'C\Windows\notepad.exe', IconIndex);
end;

Наверх

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