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

Вниз

Проблема со вставкой ресурсов в ехе-файл   Найти похожие ветки 

 
Jetus ©   (2004-09-02 00:31) [0]

Мастера, помогите решить такую проблему.
Я при помощи функций BeginUpdateResource(), UpdateResource() и EndUpdateResource занёс в ехе-шник свою иконку. Потом я просмотрел этот ехе-шник при помощи ResHacker"a. Иконка (сам ресурс) там появилась, но не отображалась, как остальные. В чём же проблема?
Вот кусок кода, который у меня всё делает:

procedure TForm1.Button1Click(Sender: TObject);
var
 FileWnd : THandle;
 Ico: TIcon;
begin
 FileWnd := BeginUpdateResource("C:\nine\nine.exe", FALSE); // Наш ехе-шник
 Ico := TIcon.Create;
 Ico.LoadFromFile("C:\my_icon.ico"); // Моя иконка
 if UpdateResource(FileWnd, RT_ICON, "1", LANG_RUSSIAN, Ico, 766) then
   Label1.Caption := "Success!" else Label1.Caption := "Failed...";
 EndUpdateResource(FileWnd, FALSE);
 Ico.Free;
end;

766 - это размер моей иконки.

С текстом у меня всё нормально, а вот с иконкай лажа. В чём же баг?


 
Digitman ©   (2004-09-02 08:28) [1]


> В чём же баг?


ms: TMemoryStream;
...

Ico.LoadFromFile("C:\my_icon.ico");
ms := TMemoryStream.Create;
try
Ico.SaveToStream(ms);
if UpdateResource(FileWnd, RT_ICON, "1", LANG_RUSSIAN, ms.Memory, ms.Size) then ...
finally
ms.Free;
end;


 
Jetus ©   (2004-09-03 01:04) [2]

Попробовал - ситуация не изменилась: ресурс появляется, но не просматривается, как остальные иконки-ресурсы :( Какие еще будут предложения?



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

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

Наверх




Память: 0.47 MB
Время: 0.052 c
3-1094827298
Vasis
2004-09-10 18:41
2004.10.10
Insert, Update, Delete, Refresh SQL


14-1095732732
Думкин
2004-09-21 06:12
2004.10.10
С днем рождения! 21 сентября


1-1095778586
DelphiLexx
2004-09-21 18:56
2004.10.10
Получить имя меню


8-1090228258
bander_log
2004-07-19 13:10
2004.10.10
Печать графики и ее преобразование...


1-1095947188
yaric
2004-09-23 17:46
2004.10.10
Удаление из TEdit