Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.02;
Скачать: CL | DM;

Вниз

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

 
Ag2002   (2002-11-20 18:45) [0]

Подскажите как можно извлеч иконку из чужой проги ???
Дайте пример если возможно ! Спасибо !!!


 
Skolotovich ©   (2002-11-20 19:33) [1]

любой редактор ресурсов


 
Poirot ©   (2002-11-20 20:42) [2]

Мона типа ExtractFileIcon что-то типа
или мона юзая под NT функции типа FindResource, Lockresource и т.д.


 
Ag2002   (2002-11-21 10:42) [3]

нет мне нужно програмно !!!
Дайтие пример как !!!


 
stone ©   (2002-11-21 10:49) [4]

в Delphi\Demos есть пример Resourse Explorer


 
Ag2002   (2002-11-21 11:08) [5]

stone © там очень трудновато,
нет ли у кого конкретно примера извлечения главной иконки из файла !!!!


 
Song ©   (2002-11-21 11:16) [6]

Конкретный пример будет страниц на 5, если не больше, потому что MS ничего готового не сделала для этой функции. (или может я не в курсе).


 
Крот ©   (2002-11-21 11:27) [7]

ExtractAssociatedIcon извлекает иконку, сязанную с типом файла
ExtractIcon извлекает все иконки, содержащиеся в *.exe или *.dll


 
Song ©   (2002-11-21 11:30) [8]

2Крот © (21.11.02 11:27)
Имелось ввиду из ресурса. Хотя может я и не правильно понял.


 
mukha ©   (2002-11-22 11:20) [9]

из моей проги:
на форме находится TImage. В него и вытаскиваю иконку из EXE-файла. Если надо из другого EXE, то пропиши полный путь к нему. Ну а из TImage иконку сохранишь, если надо.

procedure TForm12.FormCreate(Sender: TObject);
var IconIndex : word;
h : hIcon;
begin
IconIndex := 0;
h :=ExtractAssociatedIcon(hInstance,"Archives.EXE",IconINdex);
DrawIcon(Image1.Canvas.Handle,1,1,h);
end;



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

Текущий архив: 2002.12.02;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.011 c
3-4238
pivo_est
2002-11-13 23:43
2002.12.02
Сеть и PARADOX


1-4402
dim-
2002-11-22 09:10
2002.12.02
TImage


1-4502
wer1
2002-11-20 09:30
2002.12.02
Работа с вещественными числами - Exstended


1-4473
andrek
2002-11-20 15:12
2002.12.02
Встроенный ASSEMBLER


1-4463
STANT
2002-11-20 11:09
2002.12.02
Как