Форум: "WinAPI";
Текущий архив: 2004.10.10;
Скачать: [xml.tar.bz2];
ВнизПроблема со вставкой ресурсов в ехе-файл Найти похожие ветки
← →
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 вся ветка
Форум: "WinAPI";
Текущий архив: 2004.10.10;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.035 c