Hello, !
You wrote on Wed, 01 Sep 2004 00:40:47 GMT:
> Нужно поставить глобальный перехват на запуск приложений.
> Хочу сначала подгрузить свою библиотеку, а потом запускать програму.
> Напишите кусок кода или отправте туда где есть, спасибо...
Перехватить запуск приложения можно через WMI. Дальше код на VBScript, кот. можно на дельфи перевести:
Set objWMIServices = GetObject("WinMgmts:")
Set sink = WScript.CreateObject("WbemScripting.SWbemSink","SINK_")
objWMIServices.ExecNotificationQueryAsync sink, _
"SELECT * FROM Win32_ProcessStartTrace"
WScript.Echo "Waiting for events"
Sub SINK_OnObjectReady(objObject, objAsyncContext)
WScript.Echo (objObject.ProcessName)
End Sub
Таким же макаром можно много чего ловить — только запрос select меняется.
Posted via RSDN NNTP Server 1.9 beta
Нужно поставить глобальный перехват на запуск приложений.
Хочу сначала подгрузить свою библиотеку, а потом запускать програму.
Напишите кусок кода или отправте туда где есть, спасибо...
Здравствуйте, Аноним, Вы писали:
А>Нужно поставить глобальный перехват на запуск приложений.
А>Хочу сначала подгрузить свою библиотеку, а потом запускать програму.
А>Напишите кусок кода или отправте туда где есть, спасибо...
http://gzip.rsdn.ru/Forum/Message.aspx?mid=788034Автор:
Дата: 01.09.04
Здравствуйте, s.ts, Вы писали:
ST>Hello, !
ST>You wrote on Wed, 01 Sep 2004 00:40:47 GMT:
>> Нужно поставить глобальный перехват на запуск приложений.
>> Хочу сначала подгрузить свою библиотеку, а потом запускать програму.
>> Напишите кусок кода или отправте туда где есть, спасибо...
ST>Перехватить запуск приложения можно через WMI. Дальше код на VBScript, кот. можно на дельфи перевести:
ST>ST>Set objWMIServices = GetObject("WinMgmts:")
ST>Set sink = WScript.CreateObject("WbemScripting.SWbemSink","SINK_")
ST>objWMIServices.ExecNotificationQueryAsync sink, _
ST>"SELECT * FROM Win32_ProcessStartTrace"
ST>WScript.Echo "Waiting for events"
ST>Sub SINK_OnObjectReady(objObject, objAsyncContext)
ST> WScript.Echo (objObject.ProcessName)
ST>End Sub
ST>
ST>Таким же макаром можно много чего ловить — только запрос select меняется.
Продублируйте пожалуйста на делфи (если не трудно)
