VPF::Еще раз об ассоциациях... - Форум программистов

McDevil

Дата 13.3.2006, 16:10 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 285
Регистрация: 8.12.2005
Где: Казахстан, Павлод ар

Репутация: 1
Всего: 3

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

--------------------

мы знаем столько, сколько можем, а можем столько, сколь хотим...

Тестируем программу: SPL-программа аналогов функций

Snowy

Дата 13.3.2006, 16:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Код тот же самый. Только небольшая модификация:

Код

uses registry, shlobj;

procedure AppRegister(ext, app, ico: string);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_CLASSES_ROOT;
  Reg.LazyWrite := False;
  Reg.OpenKey('.'+ext+'\shell\open\command',True);
  Reg.WriteString('', app + ' %1');
  Reg.CloseKey;
  Reg.OpenKey('.'+ext+'\DefaultIcon', True);
  Reg.WriteString('', ico);
  Reg.CloseKey;
  Reg.Free;
  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil); // вот эта волшебная строчка
end;

// пример
procedure TForm1.Button1Click(Sender: TObject);
begin
  AppRegister('sss', ParamStr(0), ParamStr(0)+',0');
end;

Добавлено @ 16:47

Цитата(McDevil @ 13.3.2006, 16:10

)

меня админ по-моему переслал на какой-то топик

я не админ

McDevil

Дата 14.3.2006, 02:22 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 285
Регистрация: 8.12.2005
Где: Казахстан, Павлод ар

Репутация: 1
Всего: 3

Спасибо... работает или нет еще не проверил... так, что еще могут быть вопросы...

Цитата(Snowy @ 13.3.2006, 16:45

)

я не админ

ну модератор... smile

--------------------

Snowy

Дата 14.3.2006, 09:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Цитата(McDevil @ 14.3.2006, 02:22

)

работает или нет еще не проверил...

Я проверил. Работает ;)

Цитата(McDevil @ 14.3.2006, 02:22

)

Спасибо...

Всегда пожалуйста. Заходи еще.

McDevil

Дата 14.3.2006, 14:15 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 285
Регистрация: 8.12.2005
Где: Казахстан, Павлод ар

Репутация: 1
Всего: 3

Цитата(Snowy @ 14.3.2006, 09:37

)

Я проверил. Работает ;)

Ага я тоже... КЛАССНО!!!

--------------------

Poseidon

Дата 14.3.2006, 17:52 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Цитата(Snowy @ 13.3.2006, 15:45

)

я не админ

Я бы добавил "пока" smile

Все, молчу-молчу

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »