Значок для своего расширения

@KaDima281 · Регистрация: 14.12.2013

Author24 — интернет-сервис помощи студентам

Я создал программу для тестирования (по информатике) и создания (изменения) тестов. Вот расширение: .сtt ... Открывает он его как ини-файл

.
Всё работает замечательно, но хотелось бы что-бы это расширение было с красивым значком. В интернете выдает как изменить папку, но я это всё знаю. Как поставить свой значок на расширение, ПРОГРАММНО?!!!
Как добавлять шрифт, я знаю (сам догадался), просто добавляю в С:\WINDOWS\Fonts свой шрифт. Может можно как-то так добавить?

Добавлено через 6 минут
А и еще. Можно как-то изменить значок программы. Я знаю - Form1.Icon , но он не меняет иконку в панели задач и в файле .ехе

@Игорь[Igor] · 23.03.2014, 16:51

Delphi

unit Unit4;
 
interface
 
uses
  SysUtils, registry, windows, forms;
 
  procedure Reg;
 
const
  FN = 'Project1.exe';
var
  R: TRegIniFile;
 
implementation
 
procedure Reg;
begin
  R:=TRegIniFile.Create('');
  with R do
  begin
    RootKey:=HKEY_CLASSES_ROOT;
    WriteString('.org', '', 'org');
    WriteString('org', '', 'Файл планов');
    WriteString('org\DefaultIcon', '', ExtractFilePath(application.ExeName)+FN+',1');
    WriteString('org\Shell', '', 'Default_Action');
//    WriteString('org\Shell\First_Action', '', 'Открыть');
//    WriteString('org\Shell\First_Action\command', '', ExtractFilePath(application.ExeName)+FN+' /LotsOfParamaters %1');
    WriteString('org\Shell\Default_Action', '', 'Открыть');
    WriteString('org\Shell\Default_Action\command', '', ExtractFilePath(application.ExeName)+FN+' %1');
//    WriteString('org\Shell\Second_Action', '', 'Изменить');
//    WriteString('org\Shell\Second_Action\command', '', ExtractFilePath(application.ExeName)+FN+' /TonsOfParameters %1');
    Free;
  end;
end;
 
end.

@KaDima281 · 23.03.2014, 17:04 **[ТС]**

Спасибо. А можно поподробней? Куда значок всувать и так далее.

@Игорь[Igor] · 23.03.2014, 17:12

Можно через свойства проекта или редактирование *.res файла или вовсе загружать из файла.

@KaDima281 · 23.03.2014, 17:17 **[ТС]**

Можно через свойства проекта или редактирование *.res файла или вовсе загружать из файла.

У меня ХР, через свойства не получиться.

Тот код, он меняет значок расширения или значок программы? Как тогда второе

@Игорь[Igor] · 23.03.2014, 17:29

В меню выбери "Проект"->"Опции" вкладка "Приложение".
Код регестрирует расширение файла в системе и устанавливает ему значек из ресурса приложения

Delphi

1	WriteString('org\DefaultIcon', '', ExtractFilePath(application.ExeName)+FN+',1');

цифра 1 это номер выбранного значка, добавить значки в приложение можно в *.res

@KaDima281 · 23.03.2014, 22:36 **[ТС]**

Спасибо, я слоупок.

Добавлено через 13 минут
*.res ? В каком смысле? Project1.res? Может быть ИмеджИндекс?
P.S Знаю, знаю, я слоупок

Добавлено через 3 часа 19 минут
ЕЙ, ЗДЕсЬ ЕСТЬ КТОТО?

@Игорь[Igor] · 23.03.2014, 23:28

Да Project1.res

@KaDima281 · 24.03.2014, 16:23 **[ТС]**

Можно спросить, я плохо понял?
1) Тот код изменяет иконку программы, или расширения. Если расширения то куда его вставлять?
2) Как в *.res вставить картинку?

Спасибо, я повторяюсь, я слоупок.

@Игорь[Igor] · 24.03.2014, 17:06

Код изменяет картинку расширения если тебе так понятнее.
Картинку добавить можно программой Image Editor входящей в состав Delphi7

@KaDima281 · 24.03.2014, 19:17 **[ТС]**

Спасибо, тема закрыта.

@Игорь[Igor] 726 / 478 / 130 Регистрация: 24.12.2008 Сообщений: 3,924
	24.03.2014, 17:06	10
	Код изменяет картинку расширения если тебе так понятнее. Картинку добавить можно программой Image Editor входящей в состав Delphi7 0

@KaDima281 6 / 6 / 2 Регистрация: 14.12.2013 Сообщений: 117
	24.03.2014, 19:17 [ТС]	11
	Спасибо, тема закрыта. 0

Значок для своего расширения

Решение

Решение

@KaDima281 6 / 6 / 2 Регистрация: 14.12.2013 Сообщений: 117
		1
	Значок для своего расширения 23.03.2014, 16:51. Показов 1857. Ответов 10 Метки нет (Все метки) Я создал программу для тестирования (по информатике) и создания (изменения) тестов. Вот расширение: .сtt ... Открывает он его как ини-файл . Всё работает замечательно, но хотелось бы что-бы это расширение было с красивым значком. В интернете выдает как изменить папку, но я это всё знаю. Как поставить свой значок на расширение, ПРОГРАММНО?!!! Как добавлять шрифт, я знаю (сам догадался), просто добавляю в С:\WINDOWS\Fonts свой шрифт. Может можно как-то так добавить? Добавлено через 6 минут А и еще. Можно как-то изменить значок программы. Я знаю - Form1.Icon , но он не меняет иконку в панели задач и в файле .ехе 0

@KaDima281 6 / 6 / 2 Регистрация: 14.12.2013 Сообщений: 117
	23.03.2014, 17:04 [ТС]	3
	Спасибо. А можно поподробней? Куда значок всувать и так далее. 0

@Игорь[Igor] 726 / 478 / 130 Регистрация: 24.12.2008 Сообщений: 3,924
	23.03.2014, 17:12	4
	Сообщение было отмечено KaDima281 как решение Решение Можно через свойства проекта или редактирование *.res файла или вовсе загружать из файла. 1

@KaDima281 6 / 6 / 2 Регистрация: 14.12.2013 Сообщений: 117
	23.03.2014, 17:17 [ТС]	5
	Можно через свойства проекта или редактирование *.res файла или вовсе загружать из файла. У меня ХР, через свойства не получиться. Тот код, он меняет значок расширения или значок программы? Как тогда второе 0

@KaDima281 6 / 6 / 2 Регистрация: 14.12.2013 Сообщений: 117
	23.03.2014, 22:36 [ТС]	7
	Спасибо, я слоупок. Добавлено через 13 минут .res ? В каком смысле? Project1.res? Может быть ИмеджИндекс? P.S Знаю, знаю, я слоупок Добавлено через 3 часа 19 минут* ЕЙ, ЗДЕсЬ ЕСТЬ КТОТО? 0

@Игорь[Igor] 726 / 478 / 130 Регистрация: 24.12.2008 Сообщений: 3,924
	23.03.2014, 23:28	8
	Да Project1.res 0

@KaDima281 6 / 6 / 2 Регистрация: 14.12.2013 Сообщений: 117
	24.03.2014, 16:23 [ТС]	9
	Можно спросить, я плохо понял? 1) Тот код изменяет иконку программы, или расширения. Если расширения то куда его вставлять? 2) Как в *.res вставить картинку? Спасибо, я повторяюсь, я слоупок. 0