SAOPP Цитата: такое возможно вообще?
Через vbs-скрипт:
Opera AC\Hide_Opera_On_Start.vbs Код: Set WshShell = WScript.CreateObject("WScript.Shell")
'Если путь к скрипту другой (не папка Opera), то тут следует указать
полный путь к Opera.exe.
OperaPath = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, WScript.ScriptName)-1) & "Opera.exe"
iOperaPID = PathIsProcess(OperaPath)
While iOperaPID = 0
WScript.Sleep(100)
iOperaPID = PathIsProcess(OperaPath)
WEnd
WinWaitActivate iOperaPID, 5
WshShell.AppActivate(iOperaPID)
WshShell.SendKeys("^{h}")
'Functions
Function WinWaitActivate(Title, TimeOut)
TimerInit = Timer
iRet = WshShell.AppActivate(Title)
While iRet = 0
Wscript.Sleep(100)
iRet = WshShell.AppActivate(Title)
If TimeOut > 0 And (Timer - TimerInit) >= TimeOut Then Exit Function
WEnd
End Function
Function PathIsProcess(Path)
Set Processes = GetObject("winmgmts://localhost")
Set myProcEnum = Processes.ExecQuery("select * from Win32_Process")
For Each Proc In myProcEnum
If StrComp(Proc.ExecutablePath, Path, 1) = 0 Then
PathIsProcess = Proc.ProcessID
Exit Function
End If
Next
PathIsProcess = 0
End Function