Иконка

← →
Rott (2006-08-10 00:28) [0]

Можно ли из другого приложения вытащить иконку и сохранить её на диске, например icon.ico

← →
ArtemESC © (2006-08-10 00:54) [1]

Можно...

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

← →
ArtemESC © (2006-08-10 00:58) [2]

Вот так надо...
Icon := TIcon.Create;
Icon.Handle := ExtractIcon(Instance, FileName, 0);
Icon.SaveToFile("My.ico");
Icon.Free;

← →
Rott (2006-08-10 01:00) [3]

А не подскажите как сохранить

← →
ArtemESC © (2006-08-10 01:03) [4]

Rott (10.08.06 01:00) [3]
Не понял, а это что Icon.SaveToFile("My.ico");

← →
Rott (2006-08-10 01:08) [5]

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

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

← →
Rott (2006-08-10 03:27) [6]

А воту меня ещё такой вопрос возник. Возьмём к примеру:
У меня есть заранее написанная программа и, мне надо с помощью другой программы поменять первой иконку файла, ну котороя отображается в файле! Заранее благодарен!

← →
vodvorezlaya (2006-08-10 08:27) [7]

Есть проги такие как RESFIX и другие, они позволяют любые менипуляции с ресурсами тобишь иконками.

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

← →
Rott (2006-08-10 08:46) [8]

да у меня такие есть, а мне б надо бы, что б в моём приложении!

← →
ArtemESC © (2006-08-10 12:55) [9]

Смотри Shell_NotifyIcon...

← →
vain © (2006-08-26 23:05) [10]

А у меня
Undeclarated Identifier "ExtractIcon"
Undeclarated Identifier "ExtracAssociatedtIcon"
Почему так?

← →
Ketmar © (2006-08-26 23:22) [11]

> [10] vain © (26.08.06 23:05)
потому что uses windows; писать надо.

Спасибо

← →
Vovan#1 (2006-08-27 00:21) [15]

> Icon.SaveToFile("My.ico");

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

> Смотри Shell_NotifyIcon...

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

Иконка Найти похожие ветки