Вот еще вариант. Думаю тебе подойдет в самый раз...
...то, о чем говорил ViNT
Сообщение от ViNT
Также можно прилинковать иконки к программе в виде ресурсов, и потом извлекать их, конкретного примера под рукой нет, но в инете найдется.
|
Пример (c) ArtikZ
Создаешь обычный текстовый документ с расширением .rc и помещаешь в него свои "иконки". Пример файла "sample.rc":
imya1 RCDATA LOADONCALL путь_к_иконке/icon1.ico
imya2 RCDATA LOADONCALL путь_к_иконке/icon2.ico
imya3 RCDATA LOADONCALL путь_к_иконке/icon3.ico
потом через brcc32.exe делаешь .res файл..
через коммандную строку это будет выглядеть так:
brcc32.exe путь_к_файлу/sample.rc
получаешь файл "sample.RES"... Подключаешь его к своей программе и берешь из него иконки. Примерно так:
...
var
Form1: TForm1;
Res: TResourceStream;
implementation
{$R *.dfm}
{$R sample.RES}
procedure TForm1.Button1Click(Sender: TObject);
begin
Res := TResourceStream.Create(Hinstance, 'imya2', RT_RCDATA);
//возьмет 2ю иконку
try
Image1.Picture.Icon.LoadFromStream(res);
//рисуем иконку в TImage
{
Application.Icon.LoadFromStream(res);
//делаем imya2 иконкой нашего приложения
}
finally
Res.Free;
end;
end;
...
Удачи!