Форум: "Основная";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];
ВнизКак пихнуть иконку в 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c