SendTo и копирование

← →
frost63 (2003-10-22 11:13) [0]

Есть папка SendTo в Documents and Settings в которой находятся
объекты отображающиеся в PopupMenu ("Отправить") и применяя данный
пункт к файлу мы получаем как результат копирование данного файла в
то место куда его послали :). Я получаю содержимое данной папки (SendTo) но как
произвести эффект копирования програмно не знаю. Пробовал ShellExcecute, где в качестве имени файла передаю следующею строку St1 + St2 где St1 - объект в папке SendTo а St2 тот
файл к которому я хочу применить действие копирование (тоесть St2 - параметр) но ничего не выходит. Внимание вопрос: Как програмно сделать отправку некоторого файла используя файлы в директории SendTo? Спасибо!

← →
frost63 (2003-10-22 11:21) [1]

Копирование в данном случае следует понимать несколько шире так как при применении к некоторому файлу пункта Адресат мы получим Mail с данным файлом.

← →
Anatoly Podgoretsky (2003-10-22 11:22) [2]

St2 надо помещать не в имя программы, а в параметр, это следующий по счету

← →
frost63 (2003-10-22 11:26) [3]

АААА !!!! За параметр спасибо чего то я совсем подзабыл, сейчас сделаю.

← →
frost63 (2003-10-22 12:06) [4]

Нет в виде параметра тоже не помогает, что делать?!

← →
frost63 (2003-10-23 07:12) [5]

Может есть функции API для работы именно с этими объектами, кто нибудь знает в MSDN не нашел.

← →
Rouse_ (2003-10-23 08:51) [6]

А код то покажи...

Желаю успехов

← →
frost63 (2003-10-23 11:53) [7]

Получаю путь к папке SendTo например используя компонент JvDirectories
из набора JEDI - VCL
используя FindFirst и FindNext получаем список файлов в данной папке
далее например записываем пути к этим файлам в TStringList, в какойто момент
зная путь к некоторому файлу (например: C:\ReadMe.txt) пытаемся его отправить как при работе в Windows при вызове на нем меню и выбор пункта "Отправить" но програмно, я делаю это так
ShellExecute(Handle, nil,
PChar(SendTo.Strings[i]),
PChar(C:\ReadMe.txt), nil,
SW_RESTORE); где SendTo.Strings[i] - как раз путь к некоторому файлу в директории SendTo.
Короче после всех махинаций ничего не получается, а так хочется надеятся что данную функцию можно реализовать в несколько строк, может у кого есть какие либо мысли? Спасибо.

← →
ZEE (2003-10-23 12:36) [8]

я запускаю так
ShellExecute(handle,"open",PChar(SendTo.Strings[i]),PChar("C:\ReadMe.txt"),nil,sw_shownormal);
зы: кстати с SendTo тоже работал - все окейно

← →
frost63 (2003-10-23 13:47) [9]

Пробую на примере в директории SendTo если с ней ничего не делать есть стандартный файл Адресат, програмно получаю к нему путь (SendTo.Strings[i]: = "C:\Documents and Settings\Администратор\SendTo\Адресат.MAPIMail") и дальше пишу
ShellExecute(handle,"open",PChar(SendTo.Strings[i]),PChar("C:\ReadMe.txt"),nil,sw_shownormal); И ничего!!!
Уважаемый ZEE если несложно чуть более подробно про опыт с SendTo, очень надо. Зарание спасибо!

← →
ZEE (2003-10-23 16:46) [10]

да, посмотрел - с файлами MAPIMail (также как и с DeskLink, mydocs) у меня тоже ниче не получалось,
все работало только с LNK (ярлыками) помещенными в SendTo
сорри за дезинформацию

← →
frost63 (2003-10-24 12:03) [11]

Пробую все это сделать с CreateProcessA делаю:

CreateProcessA(PChar(FileName), PChar(SendTo.Strings[i]), nil, nil, false, NORMAL_PRIORITY_CLASS, nil, nil, StartInfo, ProcInfo);
где FileName - "C:\Documents and Settings\Администратор\SendTo\Адресат.MAPIMail",
SendTo.Strings[i] - "C:\ReadMe.txt" и ничего
что не так ?

← →
frost63 (2003-10-24 12:03) [12]

Пробую все это сделать с CreateProcessA делаю:
CreateProcessA(PChar(FileName), PChar(SendTo.Strings[i]), nil, nil, false, NORMAL_PRIORITY_CLASS, nil, nil, StartInfo, ProcInfo);
где FileName - "C:\Documents and Settings\Администратор\SendTo\Адресат.MAPIMail",
SendTo.Strings[i] - "C:\ReadMe.txt" и ничего
что не так ?

SendTo и копирование Найти похожие ветки