Главная страница
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.042 c
15-1175004987
oldman
2007-03-27 18:16
2007.04.22
Яндекс ответа не дает, прошу туда не посылать...


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


2-1175671150
Riply
2007-04-04 11:19
2007.04.22
Определение последнего вызова "колбэка" BindIoCompletionCallback


2-1175187133
ImageM
2007-03-29 20:52
2007.04.22
Образ гибкого диска.


15-1174674540
webmus
2007-03-23 21:29
2007.04.22
Как бы так Web-radio relay сделать?