Ассоциация файлов со своей программой

[dmitriegorovih]

Всем привет! Вот нашёл в инете как ассоциировать любое расширение со своей программой, но есть одна закавыка, после всех манипуляций с реестром последняя процедура должна обновить расширения, но они не обновляются, обновились тока, когда я нажал, открыть с помощью своей программой.
Вот как я ассоциирую

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Registry, ShlObj, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   Reg: TRegistry;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
Reg:=TRegistry.Create; // создаем
Reg.RootKey := HKEY_CLASSES_ROOT; // указываем корневую ветку
Reg.OpenKey('.Схема_DeM\OpenWithProgids\', true);
Reg.WriteString('Черчение схем.Схема_DeM', '');
Reg.OpenKey('\Черчение схем.Схема_DeM\DefaultIcon\', true);
s:='D:\Чертилка схем DeM\1.ico';
Reg.WriteString('', s);
Reg.OpenKey('\Черчение схем.Схема_DeM\Shell\Open\', true);
Reg.WriteString('', 'Открыть в Черчении схем');
Reg.OpenKey('command\', true);
s:='"D:\Чертилка схем DeM\Project1.exe" "%1"';
Reg.WriteString('', s);
Reg.OpenKey('DropTarget\', true);
Reg.WriteString('CLSID','{0041494D-5032-4472-6F70-546172676574}');
Reg.Free;
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
end;

Вопрос такой, как сделать, что бы расширения вступили в силу и значки обновились?

[Stilet]

как сделать, что бы расширения вступили в силу и значки обновились?

По-моему только перезагрузкой эксплорера.

[dmitriegorovih]

перезагрузкой эксплорера.

А это как? Всмысле перезагрузкой компа?

[Stilet]

dmitriegorovih

Ну я имел ввиду выкинуть в диспетчере задач процесс explorer и опять его запустить.
Однако я бы на твоем месте не спешил. Ты все равно единожды будешь ассоциировать файлы, так что подождать до следующего запуска винды не самое страшное

[GunSmoker]

По-идее должны обновиться, да.

А бродкаст WM_SETTINGCHANGE не помогает?

P.S. В 2010-м году за запись в HKCR нужно ставить к стенке и расстреливать - без суда и следствия. Это может и было нормальным пятнадцать лет назад, но не сегодня. Пишите в HKCU\Software\Classes или HKLM\Software\Classes.

[dmitriegorovih]

А бродкаст WM_SETTINGCHANGE не помогает?

А как это сделать?
P.S. А как же перезагрузку значков делает AIMP2? Я слышал что он написан на делфи.

[Stilet]

А как это сделать?

SendMessage(HWND_BROADCAST,WM_SETTINGCHANGE,...

Дальше параметры не помню.
http://www.delphiworld.narod.ru/base...een_icons.html

[dmitriegorovih]

Спасибо работает обновляет мгновенно! :P Я к своей процедуре добавил вот это

SendMessage(HWND_BROADCAST,WM_SETTINGCHANGE,SPI_SETNONCLIENTMETRICS,0);

Всем Спасибо кто откликнулся

Есть не большая проблема после пере установки венды я решил запустить вот эту процедуру но она к моему сожалению не работает через smart installer marker тоже не работает что делать? после перезагрузки тоже не работает? Работает если сделать вот так