Извлечение из 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

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