Здравствуйте, 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 меняется.
Продублируйте пожалуйста на делфи (если не трудно)
