VPF::Определить путь открываемого документа

Данкинг

Дата 3.3.2010, 16:34 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Можно ли как-то отловить, откуда открывается документ? К примеру: кликаю на .doc., запускается Word, висит в процессах. Программа должна получать список запущенных процессов (как это сделать - понятно) и путь открытого документа, т.е. c:\ddd.doc. smile

Это сообщение отредактировал(а) Данкинг - 3.3.2010, 18:26

--------------------

There's nothing left but silent epitaphs.

Frees

Дата 3.3.2010, 21:17 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54

узнать параметры запуска выполняемых процессов
http://wasm.ru/forum/viewtopic.php?id=29058

--------------------

Кольцов Виктор Владимирович

Данкинг

Дата 3.3.2010, 23:19 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Frees, а что за Pid и как, в свою очередь, его получить (Pid: dword) ?

Добавлено @ 23:24
Что-то в ДРКБ нашёл, сейчас вникать буду.

Это сообщение отредактировал(а) Данкинг - 3.3.2010, 23:24

--------------------

There's nothing left but silent epitaphs.

Данкинг

Дата 4.3.2010, 00:00 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

В общем, вот что у меня получилось, т.е. исходный путь всё равно не показывается.

Это сообщение отредактировал(а) Данкинг - 4.3.2010, 01:33

Присоединённый файл ( Кол-во скачиваний: 6 )

Logger.rar 13,68 Kb

--------------------

There's nothing left but silent epitaphs.

Keeper89

Дата 4.3.2010, 03:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

Если нужно только для Word: http://www.delphisources.ru/pages/faq/base...ocs_notify.html

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Keeper89

Дата 4.3.2010, 03:40 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

А так, вот еще ссылки:
http://forum.sources.ru/index.php?showtopic=243663
http://www.tek-tips.com/viewthread.cfm?qid...8667&page=1

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Данкинг

Дата 4.3.2010, 11:08 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Keeper89, вообще мне нужно для FoxPro. smile

По первой ссылке авторизация требуется. А по второй - путь к файлу процесса, а не документа. smile

--------------------

There's nothing left but silent epitaphs.

Keeper89

Дата 4.3.2010, 17:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

Первая ссылка:

Код


function GetProcessCmdLine(PID:DWORD):string;
var
 hProcess:THandle;
 pProcBasicInfo:PROCESS_BASIC_INFORMATION;
 ReturnLength:DWORD;
 prb:PEB;
 ProcessParameters:PROCESS_PARAMETERS;
 cb:cardinal;
 ws:WideString;
begin
 result:='';
 if pid=0 then exit;
 hProcess:=OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, FALSE, PID);
 if (hProcess <> 0) then
 try
  if (NtQueryInformationProcess(hProcess,ProcessBasicInformation,
                               @pProcBasicInfo,
                               sizeof(PROCESS_BASIC_INFORMATION),@ReturnLength) = STATUS_SUCCESS) then
  begin
   if ReadProcessMemory(hProcess,pProcBasicInfo.PebBaseAddress,@prb,sizeof(PEB),cb) then
     if ReadProcessMemory(hProcess,prb.ProcessParameters,@ProcessParameters,sizeof(PROCESS_PARAMETERS),cb) then
     begin
       SetLength(ws,(ProcessParameters.CommandLine.Length div 2));
       if ReadProcessMemory(hProcess,ProcessParameters.CommandLine.Buffer,
                            PWideChar(ws),ProcessParameters.CommandLine.Length,cb) then
       result:=string(ws)
     end
  end
 finally
  closehandle(hProcess)
 end
end;

Цитата

PS для получения ком. строки некоторых системных процессов, вызывающий процесс должен иметь привилегии отладчика. Узнать, как получить такие привилегии, можно, например, тут (см. ф-ю SetProcessDebugPrivelege).

Описания используемых структур и сигнатуры Native API ф-ций можно найти в JEDI Code Library

Автор: Krid

Еще сслыка: http://www.delphikingdom.com/asp/viewitem.asp?catalogid=698

И еще (можно записать в файл и считать оттуда): http://windowsxp.mvps.org/listproc.htm

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Данкинг

Дата 4.3.2010, 19:37 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Цитата(Keeper89 @ 4.3.2010, 17:39

)

И еще (можно записать в файл и считать оттуда):

Идея хорошая, но только под админом работает. smile

Остальное - вроде то же, что и в ДРКБ...

В общем, думаю, что решения как такого нет, ибо если документ и открыт, то определяется только само его название, а не путь. smile

Это сообщение отредактировал(а) Данкинг - 4.3.2010, 22:59

--------------------

There's nothing left but silent epitaphs.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »