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

Вниз

Как пихнуть иконку в exe шник   Найти похожие ветки 

← →
KIR ©   (2002-10-25 13:27) [0]

Народ, сабж?

---

← →
SottNick   (2002-10-25 13:30) [1]

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

---

← →
Игорь Шевченко ©   (2002-10-25 13:42) [2]

Силой.

---

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

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

---

← →
Adder ©   (2002-10-26 02:50) [4]

Например, так:
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;

---

← →
Adder ©   (2002-10-26 02:52) [5]

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

---

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

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

Наверх

Память: 0.47 MB
Время: 0.022 c