Prevent shell.application object's OPEN() from stealing focus

[JohnBailey]

How do I prevent the following new window (as shown in the code) from stealing focus.

Local $dirPath = "C:\Program Files\"
If Not FileExists($dirPath) Then
      MsgBox(0, "Explorer Open - Error", "Directory does not exist: "&$dirPath)
      Exit
EndIf
$oShell = ObjCreate("shell.application") 
$oShell.open($dirPath)

Exit

[DaleHohm]

Valik wrote some code for me to address this issue taht I included in IE.au3. You can't prevent it from trying, but you can prevent it from getting it. See the undocumented function __IELockSetForegroundWindow() in IE.au3.

Dale

[JohnBailey]

Valik wrote some code for me to address this issue taht I included in IE.au3. You can't prevent it from trying, but you can prevent it from getting it. See the undocumented function __IELockSetForegroundWindow() in IE.au3.

Dale

I tried that function. It doesn't seem to work for this.

[Joon]

Why not just use ShellExecute with flag?

[JohnBailey]

Why not just use ShellExecute with flag?

Because I'm using COM for a project I've been working on. ShellExecute doesn't do everything that I want.

[Joon]

Hmm... I must be missing something but on this particular task, your code and my code appear to be doing the same thing.

Local $dirPath = "C:\Program Files\"
If Not FileExists($dirPath) Then
      MsgBox(0, "Explorer Open - Error", "Directory does not exist: "&$dirPath)
      Exit
EndIf
$oShell = ObjCreate("shell.application") 
$oShell.ShellExecute( $dirPath, "", "", "open", 6 )

[DaleHohm]

I tried that function. It doesn't seem to work for this.

It's a pet peeve, but "doesn't work" needs to be ripped out of the troubleshooting lexicon. It means that what you tried did not produce the results you expected. It begs the questions 1) what did you try?, 2) what did you expect? and 3) what happened instead?

Dale