Главная страница
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.01 c
1-12375
$tranger
2004-02-24 20:07
2004.03.05
Работаю с фалами


14-12532
strannik_
2004-02-12 12:00
2004.03.05
snif


7-12551
man
2003-12-17 10:42
2004.03.05
как остановить сервис из самого сервиса


3-12296
Maxim Volobuev
2004-02-06 15:07
2004.03.05
Литовские и русские буквы в DB


1-12319
111
2004-02-21 19:02
2004.03.05
*.txt ; *.rtf