Добавить ссылку в меню файла "отправить"

← →
DJ_UZer © (2008-05-26 21:05) [0]

Всем привет! Подскажите пожалуйста, как можно добавить (например при нажатии кнопки) в меню фала во вкладке "отправить" ссылку на свою программу..

← →
TIF © (2008-05-26 21:15) [1]

Удалено модератором

← →
Рустам Ганеев (2008-05-26 21:16) [2]

в меня фала?я не совсем понял вас...
хотя если я правильно понял, то
procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.execute then
edit1.text:=opendialog1.filename;
end;

← →
TIF © (2008-05-26 21:21) [3]

> Рустам Ганеев (26.05.08 21:16) [2]
Нет, тут имеется в виду щелчок по файлу правой кнопкой. Пункт "Отправить >" в появившемся меню

Кстати, кроме реестра эта штука настраивается и через специальную системную папку... SendTo (в XP, да вроде даже и в Висте)

← →
Рустам Ганеев (2008-05-26 21:23) [4]

ааааааааа.... терь понял..
не в тему вопрос, но: а при чем тут делфи?

← →
TIF © (2008-05-26 21:26) [5]

> не в тему вопрос, но: а при чем тут делфи?
Автор хочет программно добавлять это %) Так по идее и правильно... Может быть, реестр зато изучит, кто знает

← →
Рустам Ганеев (2008-05-26 21:49) [6]

а зачем через реестр? можно руками... как в висте не знаю, но в хр в папке
C:\Documents and Settings\*user*\SendTo как раз ссылки того, что ему нужно...(*user* - имя пользователя).туда нужно закинуть линк его проги. так что тут работа с shellapi!

← →
Palladin © (2008-05-26 21:52) [7]

воистину, руками можно очень много добится... )

← →
Palladin © (2008-05-26 21:52) [8]

просшу просчения "добиться" :)

а то понабегут всякие словари...

← →
TIF © (2008-05-26 21:59) [9]

Удалено модератором

← →
{RASkov} © (2008-05-26 22:01) [10]

> [0] DJ_UZer © (26.05.08 21:05)

Добовляешь ярлык на свою программу в папку %USERPROFILE%\SendTo

← →
{RASkov} © (2008-05-26 22:03) [11]

> Добавляешь
:)

← →
DJ_UZer © (2008-05-26 22:12) [12]

{RASkov}, извеняюсь, но подробнее можно?

← →
TIF © (2008-05-26 22:17) [13]

> {RASkov}, извеняюсь, но подробнее можно?

Создаёшь ярлык своей программы в папке SendTo

В Vista, например, она располагается по адресу
%LocalAppData%\Roaming\Microsoft\Windows\SendTo

(C:\Users\Имя_пользователя\AppData\Roaming\Microsoft\Windows\SendTo)

В XP тебе выше сказали путь (см. [10]). Сразу после создния ярлыка в этой папке появится соответствующий пункт в разделе "Отправить >" меню файла...

Удалено модератором

> [12] DJ_UZer © (26.05.08 22:12)

Вставь это %USERPROFILE%\SendTo в адресную строку(или Win+R "Выполнить") и нажми энтер
В открывшееся окно папки добавь ярлык на свою программу.

Всем спасибо!)

{RASkov}, а программно, не подскажешь, как создать ярлыв данной папке?

← →
йцукен (2008-05-27 16:34) [18]

procedure CreateLink(const PathObj, PathLink, Desc, Param: string);
var
IObject: IUnknown;
SLink: IShellLink;
PFile: IPersistFile;
begin
IObject := CreateComObject(CLSID_ShellLink);
SLink := IObject as IShellLink;
PFile := IObject as IPersistFile;
with SLink do begin
SetArguments(PChar(Param));
SetDescription(PChar(Desc));
SetPath(PChar(PathObj));
end;
PFile.Save(PWChar(WideString(PathLink)), FALSE);
end;

В примере по ссылке
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1135&mode=print
заменить строку. т.е. выделенное
SHGetSpecialFolderPath(0, DesktopFolder, CSIDL_SENDTO, False);

Вызов примерно так:
CreateShortcut(ParamStr(0), ParamStr(0), "MyProg");
Можно [18] использовать, "доработав" его до получения пути к папке SendTo...
Например можно так:
CreateLink(ParamStr(0), GetEnvironmentVariable("USERPROFILE")+"\SendTo\MyLink.lnk", "My Super-Puper PO", "");
Но лучше воспользоваться SHGetSpecialFolderPath ....

Добавить ссылку в меню файла "отправить" Найти похожие ветки