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

Вниз

Извлечение из Dll и Exe файлов   Найти похожие ветки 

 
Ivolg ©   (2004-02-23 07:54) [0]

Уважаемые мастера помогите извлеч иконку из Dll и Exe файлов и потом ее сохранить в Bmp или в Ico файлах? Я искал в FAQ нашёл, но чтото не работает! БОЛЬШОЕ СПАСИБО!!!


 
Unax ©   (2004-02-23 08:04) [1]

Посмотри в примерах Дельфи ResXplor


 
Ivolg ©   (2004-02-23 08:18) [2]

//Unax

Я смотрел, там одно с другим связано! Не знаю как разделить!


 
Юрий Зотов ©   (2004-02-23 08:38) [3]

uses
..., ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
begin
with TIcon.Create do
try
Handle := ExtractIcon(HInstance, PChar(ParamStr(0)), 0);
SaveToFile("C:\MyIcon.ico")
finally
Free
end;
end;


 
Ivolg ©   (2004-02-23 09:02) [4]

Юрий Зотов
А как же открыть файл!


 
Юрий Зотов ©   (2004-02-23 09:33) [5]

> Ivolg © (23.02.04 09:02) [4]

Зачем?

Для того, чтобы "извлечь иконку из Dll и Exe файлов и потом ее сохранить в Bmp или в Ico файлах" никаких файлов открывать РУКАМИ не требуется. ExtractIcon и SaveToFile САМИ откроют и закроют все, что требуется.


 
Ivolg ©   (2004-02-23 10:50) [6]

Юрий Зотов
Мне нкжно открыть конкретно Dll или Exe файл и извлеч из него иконку?


 
AKul ©   (2004-02-23 11:04) [7]


> Ivolg © (23.02.04 10:50) [6]

А чем пример Юрий Зотов © (23.02.04 08:38) [3] Вам не подходит?

Если нужно "разжевать", то так и напишите:

> with TIcon.Create do
> try
> Handle := ExtractIcon(HInstance, PChar(ParamStr(0))/B>, 0);
// Вот выделенное жирным в предыдущей строчке
// и есть имя файла, из которого следует извлечь иконку.
// В данном примере - это имя запущенного экзешника.
// Вместо ParamStr(0) указывайте нужное имя файла
// ExtractIcon сама откроет указанный файл!
// Handle - это не просто Handle, а TIcon.Handle

> SaveToFile("C:\MyIcon.ico")
// А это есть метод TIcon.SaveToFile



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

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

Наверх




Память: 0.48 MB
Время: 0.019 c
3-12240
Lbvf1
2004-02-09 14:51
2004.03.05
Не могу сохранить int64 в поле bigint


11-12310
dataMaster
2003-06-19 14:53
2004.03.05
Модальное окно №2 = зависание


8-12453
alexay
2003-11-03 12:21
2004.03.05
Организация просмотра многостраничного файла TIFF GROUP 4


11-12302
Stargazer
2003-06-19 00:26
2004.03.05
KOL2FPC - проблемы с тестом TestKol3.dpr


3-12250
RDA
2004-02-10 12:37
2004.03.05
Lookup-поля и справочники