Вниз
Скачать: CL | DM;

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

 
Дубинин Алексей ©   (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-ой строке, Алексей.


 
Дубинин Алексей ©   (2003-11-02 18:33) [4]

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

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c
1-99551
DelphiNew
2003-12-16 10:40
2003.12.30
проверка на кол-во символов


1-99518
Ko
2003-12-18 00:12
2003.12.30
Мастера Помогите с TreeView!!!!!!!!!!!!!


3-99459
badis
2003-12-03 07:53
2003.12.30
Как сделать так, чтобы БД работала без BDE Administrator


1-99531
DelphiNew
2003-12-16 14:25
2003.12.30
Проблема при вводе данных


1-99587
Clift
2003-12-17 15:23
2003.12.30
Кнопка /Пуск/




   Наверх