Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.04.22;
Скачать: CL | DM;

Вниз

Как добавить свой пункт в контекстное меню Ворда?   Найти похожие ветки 

 
Magedon ©   (2007-04-04 18:05) [0]

Здравствуйте.
Собственно все сказано в сабже.


 
Magedon ©   (2007-04-04 20:17) [1]

Прошу прощение за столь уродливо заданный вопрос.
Сейчас, когда прояснил до конца ситуацию, попробую задать более правильно.

Значит так, написал программку, которая регистрирует себя как почтовый клиент поумолчанию.

Вот этой функцией регистрирую себя по умолчанию:

function RegisterMailClient(const ApplicationFullName, ApplParams,
                                 CannonicalName, DisplayName,
                                 IconFile: string; InconNumder: integer):boolean;
var
 Reg: TRegistry;
 h: longword;
begin
 Result := false;
 Reg := TRegistry.Create;
 try
   try
     Reg.RootKey := HKEY_CLASSES_ROOT;

     Reg.OpenKey("\mailto\shell\open\command", true);
     Reg.WriteString("",ApplicationFullName + " " + ApplParams);
     Reg.OpenKey("\mailto\DefaultIcon", true);
     Reg.WriteString("",IconFile + ", " + IntToStr(InconNumder));

     Reg.OpenKey(cMailClients+CannonicalName,true);
     Reg.WriteString("",CannonicalName);
     if DisplayName <> "" then
       Reg.WriteString("LocalizedString",DisplayName);

     Reg.OpenKey(cMailClients+CannonicalName+"\shell\open\command", true);
     Reg.WriteString("",ApplicationFullName + " " + ApplParams);
     Reg.OpenKey(cMailClients+CannonicalName+"\shell\open\ddeexec\Application", true);

     Reg.OpenKey(cMailClients+CannonicalName+"\Protocols\Mailto", true);
     Reg.WriteString("","URL:MailTo Protocol");
     Reg.WriteString("URL Protocol","");
     h := $00000002;
     Reg.WriteBinaryData("EditFlags", h, SizeOf(LongWord));
     Reg.OpenKey(cMailClients+CannonicalName+"\Protocols\Mailto\DefaultIcon", true);
     Reg.WriteString("",IconFile + ", " + IntToStr(InconNumder));

     Reg.OpenKey(cMailClients+CannonicalName+"\Protocols\Mailto\shell\open\command", true);
     Reg.WriteString("",ApplicationFullName + " " + ApplParams);

     Result := true;
     except
        Result := false;
     end;
 finally
   FreeAndNil(reg);
 end;
end;//RegisterTMAsMailClient


Работает. Кликая на ссылке в браузере или из Runа выполняя команду mailto:user@tm.org?subject=Mailto%20test&body=yrtyjrtyjrtyj запускается мое приложение.

НО

Когда в ворде в меню File\Send To кликнуть на Mail Recipient (as Attachment) то запускается не мое приложение, а ТундерБёрд (мой основной почтовый клиент). Именно по этой причине мне вернули на доработку програмульку.

Причем посмотревши в Выбор програм по умолчанию там увидел только АутЛук и ТундерБёрд а выбор стоит на пункте Использовать текущую почтовую программу. Так же посмотревши в свойства обозревателя, там почтовиком так и остался ТундерБёрд а не моя програмка.

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

Благодарю, за внимание.



Страницы: 1 вся ветка

Текущий архив: 2007.04.22;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.034 c
3-1170519998
SerVit
2007-02-03 19:26
2007.04.22
Ошибка при вставке данных с русскими буквами


2-1175269492
ditork
2007-03-30 19:44
2007.04.22
Закраска


15-1175096504
Галинка
2007-03-28 19:41
2007.04.22
Что из ужастиков новенькое есть


15-1175207940
рожке
2007-03-30 02:39
2007.04.22
intel d945 plrn не выключается


2-1175108515
Углук
2007-03-28 23:01
2007.04.22
Что быстрее? Чарт или директиИксовский канвас?