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

[Кристинка89]

Всем привет. Скиньте пожалуйста исходник где показан пример ассоциации текстовых файлов с программой.. очень нужно в поиске которые нашла варианты не работают

[GunSmoker]

HKEY_CLASSES_ROOT заменить на HKEY_CURRENT_USER\Software\Classes.

[Кристинка89]

это исходник что ли? что надо заменить я и без вас поняла

[spamer]

Вооон там внизу этой страницы есть раздел Похожие темы, а вот там как раз и готовый код присутствует...

[Кристинка89]

Да ну вас............ я видела это все и поэтому исходник попросила потому что особо не разбираюсь в этом.. Если Вы не знаете то уж лучше молчать умники нашлись тут

[HOOCH94]

Сообщение от Кристинка89

Да ну вас............ я видела это все и поэтому исходник попросила потому что особо не разбираюсь в этом.. Если Вы не знаете то уж лучше молчать умники нашлись тут

Попробую помочь Вам :

Uses  ShlObj;
procedure TForm1.btn1Click(Sender: TObject);
begin
SHChangeNotify(SHCNE_ALLEVENTS, SHCNF_IDLIST, nil, nil);
end;

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

[HOOCH94]

Я думаю это сорец(автор которого : Человек_Борща) вам будет полезен:
http://rghost.net/16705261

Листинг на всякий случай, работает 100%

unit Unit1;

interface

uses
  Windows, Messages, Classes, Controls, Forms,
  Registry, StdCtrls, SysUtils;

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

const
  TestExt = '.hel'; // расширение которое вам надо
  TestExtDesc = 'HLREL'; // описание файла 
  TestContextBtnCaption = 'Открыть при помощи TestApp'; // Текст кнопки в контекстном меню 

  {-------------------------------------------------------------------------------
    Процедура: RegFileExt - Регистрирует новый тип файла в системе
    Автор:    Человек_Борща
    Дата:  2011.03.07
    Входные параметры: Ext, ExtDesc, ContextBtnText: string
    Результат:    Нет
    Ext - Расширение с точкой(например: .hel)
    ExtDesc - Описание файла(Например: HRLEL (Сокрашённая аббревиатура))
    ContextBtnText - Текст кнопки контекстного меню
  -------------------------------------------------------------------------------}

procedure RegFileExt(Ext, ExtDesc, ContextBtnText: string);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  //Если расширение или описание на заданы значит Error
  if (Trim(Ext) = '') or (Trim(ExtDesc) = '') then
    Exit
  else
  begin
    try
      //Регистрация нового типа файла
      Reg.RootKey := HKEY_CLASSES_ROOT;
      //Регистрируем расширение
      Reg.OpenKey(Ext, True); //.ER
      Reg.WriteString('', ExtDesc); //HLREL
      Reg.CloseKey;

      //Регестрируем иконку для файлов с этим расширением
      Reg.OpenKey(ExtDesc + '\DefaultIcon', True);
      Reg.WriteString('', ParamStr(0) + ',0');
      Reg.CloseKey;

      //Проверка на длинну
      if not (Trim(ContextBtnText) = '') then
      begin
        //Кнопка в контекстное меню
        Reg.OpenKey(ExtDesc + '\shell\Open', True);
        Reg.WriteString('', ContextBtnText);
        Reg.CloseKey;
      end;

      //Шелл-запуск
      Reg.OpenKey(ExtDesc + '\shell\Open\Command', True);
      Reg.WriteString('', ParamStr(0) + ' "%1"');
      Reg.CloseKey;
    finally
      Reg.Free;
    end;
    //После регистрации расширения обновляем иконки(Нахрен нам перезапск ПК или килл explorer'а?)=)
    SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, SPI_SETNONCLIENTMETRICS, 0);
  end;
end;

{-------------------------------------------------------------------------------
  Процедура: UnRegFileExt - Удаляет указаный тип файла из системы
  Автор:    Человек_Борща
  Дата:  2011.03.07
  Входные параметры: Ext, ExtDesc: string
  Результат:    Нет
  Ext - Расширение с точкой(например: .hel)
  ExtDesc - Описание файла(Например: HRLEL (Сокрашённая аббревиатура))
-------------------------------------------------------------------------------}

procedure UnRegFileExt(Ext, ExtDesc: string);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  //Если расширение или описание на заданы значит Error
  if (Trim(Ext) = '') or (Trim(ExtDesc) = '') then
    Exit
  else
  begin
    try
      //Регистрация нового типа файла
      Reg.RootKey := HKEY_CLASSES_ROOT;
      Reg.DeleteKey(Ext);
      Reg.DeleteKey(ExtDesc);
    finally
      Reg.Free;
    end;
    //После регистрации расширения обновляем иконки(Нахрен нам перезапск ПК или килл explorer'а?)=)
    SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, SPI_SETNONCLIENTMETRICS, 0);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  if ParamCount > 0 then
    Memo1.Lines.LoadFromFile(ParamStr(1)); //загружаем переданный шеллом файл в программу!
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  RegFileExt(TestExt, TestExtDesc, TestContextBtnCaption);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  UnRegFileExt(TestExt, TestExtDesc);
end;

end.

Говорим спасибо за сорец и комментарии форумчанину с ником : Человек_Борща

[GunSmoker]

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

работает 100%

http://www.gunsmoker.ru/2010/05/90.html - см. пример 3. И вообще целиком вдумчиво почитай.

[artemavd]

Добрый день! Всех с наступившим новым годом!
Подниму эту тему, дабы не создавать новую.
Я применил код из поста №7, но у меня не срабатывает код и ругается выдавая сообщение:
Работаю в Delphi XE в Windows 8.1

[GunSmoker]

А надо было читать сообщение #8