Flasher
|
 Posted: Fri Feb 06, 2015 10:25 Post subject: |
 |
|
В общем, не суть. Тут главное то, что само меню встроенное. Поэтому хоть по Enter, хоть по Открыть в комстроке, хоть по Тест на папке - без разницы.
| Code: | QL ="winmgmts:\\.\root\cimv2:win32_process.Handle="
With CreateObject("WScript.Shell")
With GetObject(QL & .Exec("rundll32 kernel32,Sleep").ProcessId)
Path = GetObject(QL & GetObject(QL & .ParentProcessId)._
ParentProcessId).ExecutablePath : .Terminate()
End With
With .Environment("Process")
If Path = .Item("COMMANDER_EXE") Then
MsgBox "Это TC!"
ElseIf StrComp(Path, .Item("SystemRoot") & "\explorer.exe", 1) = 0 Then
MsgBox "Это проводник!"
Else MsgBox "Это что-то другое!"
End if
End With : .Run "wmic.exe exit", 0
End With |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Fri Feb 06, 2015 12:47; edited 3 times in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
