VPF::Delphi WMI - Форум программистов

Domoffou

Дата 29.1.2009, 22:38 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 60
Регистрация: 22.6.2008
Где: Северная Венеция

Репутация: нет
Всего: нет

Здравствуйте.
Скажите, пожалуйста, можно ли использовать асинхронные события WMI в Delphi (использование объекта WbemScripting.SWbemSink)???

Мне необходимо перехватывать все запущенные и закрытые процессы.
Перебрав все варианты, остановился на vbs-скрипте:

Код



On Error Resume Next

Dim SQL, objSink, objWMIService,WshShell

strComputer = "."
dllPath="C:\WINDOWS\system32\disbypid.dll"
SQL = "SELECT * FROM __InstanceCreationEvent WITHIN 5 WHERE TargetInstance ISA 'Win32_Process'"
                 
Set objSink = WScript.CreateObject("WbemScripting.SWbemSink","SINK_")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
objWMIService.ExecNotificationQueryAsync objSink, SQL
Set WshShell = CreateObject("WScript.Shell")

Do While(True)
  Wscript.Sleep(2000)
loop

'--------------------------
'---  Event CALLBACK -----
'--------------------------
Sub SINK_OnObjectReady(oOutParams, oContext)
On Error Resume Next
    if oOutParams.TargetInstance.description = "xxxx.exe" then
        cmd="rundll32 "&dllPath&",DisableCloseButton "&oOutParams.TargetInstance.ProcessID
        WshShell.Run cmd,2,false
    end if
end sub

Но как отдельно работающий скрипт это не очень красиво :(
Переводится ли это дело в дельфю?
спасибо!

Rrader

Дата 30.1.2009, 09:05 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 29
Всего: 191

Буквально на днях делал.

Это сообщение отредактировал(а) Rrader - 30.1.2009, 09:23

Присоединённый файл ( Кол-во скачиваний: 68 )

SWbemSink.rar 25,16 Kb

--------------------

Let's do this quickly!
Rest in peace, Vit!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »