Показать сообщение отдельно
Старый 20.01.2010, 08:40   #5
Trazzy
Разработчик
 
Аватар для Trazzy
 
Регистрация: 24.11.2008
Адрес: UA
Сообщений: 504
Написано 110 полезных сообщений
(для 225 пользователей)
Ответ: Иконка (Icon)

Вот еще вариант. Думаю тебе подойдет в самый раз...

...то, о чем говорил 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;

...
Удачи!
__________________
Уважай собеседника, а лучше подари ему +

Последний раз редактировалось Trazzy, 20.01.2010 в 09:50.
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
Winner (21.01.2010)