Иконки

[Патрон]

Подскажите пожалуйста как присвоить свою иконку конкретному расширению, которое создает моя программа?

[Stilet]

Уже обсуждалось, ищи в поиске

[Nemesisking]

необходимо создать новую запись в реестре в корневом ключе HKEY_CLASSES_ROOT, которая будет указывать на расширение файла, командную строку и иконку, которая будет отображаться для этого расширения:

uses  
  Registry, {For Win32}  
  IniFiles; {For Win16}  

{Для Win32}  
procedure TForm1.Button1Click(Sender: TObject);  
var  
  reg: TRegistry;  
begin  
  reg := TRegistry.Create;  
  reg.RootKey := HKEY_CLASSES_ROOT;  
  reg.LazyWrite := false;  
  {Add Program Support}  
  reg.OpenKey('.bor\shell\open\command', true);  
  {Имя файла будет передавать в приложение как первый параметр} 
  reg.WriteString('', 'C:\Program Files\Borland\Delphi 3\Project1.exe %1');  
  {Добавляем отображаемую иконку} 
  reg.CloseKey;  
  reg.OpenKey('.bor\DefaultIcon',true);  
  {Для отображения используем первую иконку в нашем приложении} 
  reg.WriteString('', 'C:\Program Files\Borland\Delphi 3\Project1.exe,0'); 
  reg.CloseKey;  
  reg.free;  
end;

[Патрон]

Сообщение от Stilet

Уже обсуждалось, ищи в поиске

Искал много раз, но что бы я там не ввел мне всегда показывает одно и тоже сообщение: не найдено ни одного результата.

[Патрон]

Сообщение от Nemesisking

необходимо создать новую запись в реестре в корневом ключе HKEY_CLASSES_ROOT, которая будет указывать на расширение файла, командную строку и иконку, которая будет отображаться для этого расширения:

uses  
  Registry, {For Win32}  
  IniFiles; {For Win16}  

{Для Win32}  
procedure TForm1.Button1Click(Sender: TObject);  
var  
  reg: TRegistry;  
begin  
  reg := TRegistry.Create;  
  reg.RootKey := HKEY_CLASSES_ROOT;  
  reg.LazyWrite := false;  
  {Add Program Support}  
  reg.OpenKey('.bor\shell\open\command', true);  
  {Имя файла будет передавать в приложение как первый параметр} 
  reg.WriteString('', 'C:\Program Files\Borland\Delphi 3\Project1.exe %1');  
  {Добавляем отображаемую иконку} 
  reg.CloseKey;  
  reg.OpenKey('.bor\DefaultIcon',true);  
  {Для отображения используем первую иконку в нашем приложении} 
  reg.WriteString('', 'C:\Program Files\Borland\Delphi 3\Project1.exe,0'); 
  reg.CloseKey;  
  reg.free;  
end;

ОГРОМНОЕ СПАСИБО!