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

← →
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) то запускается не мое приложение, а ТундерБёрд (мой основной почтовый клиент). Именно по этой причине мне вернули на доработку програмульку.

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

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

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

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