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