Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

SendTo и копирование [D6, D7]

frost63 © (2003-10-22 11:13:00)

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

frost63 (2003-10-24 12:03:00) [1]

Пробую все это сделать с 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:00) [2]

Пробую все это сделать с 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" и ничего
что не так ?

ZEE (2003-10-23 16:46:00) [3]

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

frost63 (2003-10-23 13:47:00) [4]

Пробую на примере в директории 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 12:36:00) [5]

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

frost63 (2003-10-23 11:53:00) [6]

Получаю путь к папке 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.
Короче после всех махинаций ничего не получается, а так хочется надеятся что данную функцию можно реализовать в несколько строк, может у кого есть какие либо мысли? Спасибо.

Rouse_ (2003-10-23 08:51:00) [7]

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

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

frost63 (2003-10-23 07:12:00) [8]

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

frost63 (2003-10-22 12:06:00) [9]

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

frost63 (2003-10-22 11:26:00) [10]

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

Anatoly Podgoretsky (2003-10-22 11:22:00) [11]

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

frost63 (2003-10-22 11:21:00) [12]

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »