| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как пихнуть иконку в exe шник

KIR ©   (2002-10-25 13:27:00) 

Народ, сабж?

---

Adder   (2002-10-26 02:52:00) [1]

ps А еще можно втиснуть, всунуть и плотно утрамбовать...

---

Adder   (2002-10-26 02:50:00) [2]

Например, так:
1)Пихнуть в ресурс, можно в любом текстовом редакторе.Например файл MY.RC:
2020 ICON "MY.ICO"
2)Скомпилировать ресурс с помощью BRCC-> получим файл MY.RES
3)Подключить ресурс к программе {$R MY.RES}
4)Прописать в реестр.
Можно:
Вариант 1 С помощью "заплатки" реестра
Пример:
REGEDIT4

[HKEY_CLASSES_ROOT\myfile\DefaultIcon]
@="D:\\Work\\Registry\\Test.exe,-2020"

[HKEY_CLASSES_ROOT\.my]
@="myfile"

[HKEY_CLASSES_ROOT\myfile\shell\open\command]
@="\"D:\\Work\\Registry\\Test.exe\" \"%1\""

Вариант 2 - программно

var i:integer;
Reg:TRegistry;
begin
Reg := TRegistry.Create;
Reg.LazyWrite:=False;
try
Reg.RootKey:=HKEY_CLASSES_ROOT;
if Reg.OpenKey("\myfile\shell\open\command\", True)
then begin
Reg.WriteString("",""" + ParamStr(0) + "" "%1"");
Reg.CloseKey;
end;
if Reg.OpenKey("\myfile\DefaultIcon\", True)
then begin
Reg.WriteString("",ParamStr(0) + ",-2020");
Reg.CloseKey;
end;
if Reg.OpenKey(".my", True)
then begin
Reg.WriteString("","myfile");
Reg.CloseKey;
end;
finally
Reg.Free;
end;

---

KIR   (2002-10-26 00:29:00) [3]

Для того, чтобы при инсталляции на компе пользователя эта иконка стала значком определенного типа файлов

---

Игорь Шевченко   (2002-10-25 13:42:00) [4]

Силой.

---

SottNick   (2002-10-25 13:30:00) [5]

смотря для чего

---

Наверх