Как добавить свой пункт в контекстное меню Ворда? [D6, 2000, XP, 2003]
Magedon © (2007-04-04 18:05:00)
Здравствуйте.
Собственно все сказано в сабже.
Magedon (2007-04-04 20:17:00) [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)то запускается не мое
приложение, а ТундерБёрд (мой основной почтовый клиент). Именно по
этой причине мне вернули на доработку програмульку.
Причем посмотревши в
Выбор програм по умолчаниютам увидел только АутЛук и
ТундерБёрд а выбор стоит на пункте
Использовать текущую почтовую программу. Так же посмотревши
в свойства обозревателя, там почтовиком так и остался ТундерБёрд а
не моя програмка.
Подскажите, пожалуйста, что нужно еще дописать чтобы винда
окончательно признала мою программу как почтовый клиент по
умолчанию и Ворд отправлял письма через мою програмку?
Благодарю, за внимание.
Наверх 
ЧАТ |
Орешник |
|
