Как определить какое приложение запускается

← →
Дубинин Алексей © (2003-10-31 21:55) [0]

Здраствуйте. Вопрос такой. Как можно определить какое приложение запускается, зная путь к исполняемому файлу.
Т.е. программа должна определить, что, например, запускается калькулятор, причем до этого в программе написан путь к исполняемому файлу. Дайте хотя бы идею...как это можно выполнить. Заранее спасибо...

← →
Игорь Шевченко © (2003-10-31 22:13) [1]

В форуме "система" был способ узнавания, что запустилось приложение.

← →
Дубинин Алексей © (2003-11-01 22:01) [2]

> Игорь Шевченко © (31.10.03 22:13) [1]
> В форуме "система" был способ узнавания, что запустилось
> приложение.

Просмотрел много, но ничего не нашел. Воспользовался вариантом Юрия Зотова использовать WH_SHELL в глобальной ловушке, но ничего не вышло. Пробовал установить ловушку на WH_GETMESSAGE и отлавливать WM_CREATE, но не ловится данное сообщение. Помогите пожалуйста.

← →
Song © (2003-11-02 09:38) [3]

Ошибка в 17-ой строке, Алексей.

Отвечу сам себе:

function SysMsgProc1(code : integer; wParam : word; lParam : longint) : longint; stdcall;
begin
if code < 0 then
begin
Result:= CallNextHookEx(GlobalData^.SysHook1, Code, wParam, lParam);
Exit;
end;
//************************
if code = HSHELL_WINDOWCREATED then
if GlobalData^.H>0 then SendMessage(GlobalData^.H, WM_CREATEAPP, wParam, lParam);
CallNextHookEx(GlobalData^.SysHook1, Code, wParam, lParam);
Result:= 0;
end;

GlobalData^.SysHook1 := SetWindowsHookEx( WH_SHELL, @SysMsgProc1, HInstance, 0);

Спасибо jonni

Как определить какое приложение запускается Найти похожие ветки