Главная страница
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
3-12276
Unknown
2004-02-08 12:18
2004.03.05
База данных без BDE?


3-12263
Zilog
2004-01-31 22:06
2004.03.05
Как можно результаты изысканий копонента Query передать в Table?


1-12336
OlimPer
2004-02-21 14:36
2004.03.05
Опять ShellLIstView


7-12561
Sour
2003-12-16 10:35
2004.03.05
Как считать данные с COM порта?


3-12280
Igor_P
2004-02-07 21:32
2004.03.05
SQL-запрос