PID to HWND

[guinness]

Oh, and here is another array diff function to learn from.

Func _ArrayDiff_2D(ByRef $aArray_Before, ByRef $aArray_After)
    Local $sWndString = ''
    For $i = 1 To $aArray_Before[0][0]
        $sWndString &= '|' & $aArray_Before[$i][1] & '|'
    Next
    Local $sReturn = ''
    For $i = 1 To $aArray_After[0][0]
        If StringInStr('|' & $sWndString & '|', $aArray_After[$i][1]) = 0 Then
            $sReturn &= $aArray_After[$i][1] & @CRLF
        EndIf
    Next
    $sReturn = StringTrimRight($sReturn, StringLen(@CRLF))
    Return StringSplit($sReturn, @CRLF, 3)
EndFunc   ;==>_ArrayDiff_2D

[power1power1]

No idea. Maybe add a sleep before calling the second run, as probably explorer processes the commands once it's been idle for a couple of ms.

OK, then this should take care of it

expandcollapse popup

#include <Array.au3>
Local $aSize = WinGetPos('', 'Notification Area'), _
      $iTaskBarHeight = $aSize[3], _
      $sExecutable = '"' & "c:\windows\explorer.exe" & '"', _
      $sParameters1 = ' /separate, /e, C:\', _
      $sParameters2 = ' /separate, /e, D:\', _
      $aWinList_Before = 0, _
      $aWinList_After = 0, _
      $aWinList_Diff = 0, _
      $hWnd_1 = 0, _
      $hWnd_2 = 0

$hWnd_1 = _Get_Handle($sParameters1)
$hWnd_2 = _Get_Handle($sParameters2)

WinMove($hWnd_1, '', 0 , 0, @DesktopWidth / 2, @DesktopHeight - $iTaskBarHeight)
WinMove($hWnd_2, '', @DesktopWidth / 2, 0, @DesktopWidth / 2, @DesktopHeight - $iTaskBarHeight)

WinSetState($hWnd_1, '', @SW_RESTORE)
WinSetState($hWnd_2, '', @SW_RESTORE)

Exit

Func _Get_Handle($sParameters)
$aWinList_Before = WinList('[CLASS:CabinetWClass]')
Run($sExecutable & $sParameters, '', @SW_HIDE)
While 1
    sleep(100)
    $aWinList_After = WinList('[CLASS:CabinetWClass]')
    $aWinList_Diff = _ArrayDiff_2D($aWinList_Before, $aWinList_After)

    If UBound($aWinList_Diff) = 1 And HWnd($aWinList_Diff[0]) Then ; If one new windows.
        Return HWnd($aWinList_Diff[0])
    EndIf
WEnd
EndFunc

Func _ArrayDiff_2D(ByRef $aArray_Before, ByRef $aArray_After)
    Local Const $iLocalVar = 1
    For $i = 1 To $aArray_Before[0][0]
        If IsDeclared($aArray_Before[$i][1] & '$') = 0 Then
            Assign($aArray_Before[$i][1] & '$', 0, $iLocalVar)
        EndIf
    Next
    Local $sReturn = ''
    For $i = 1 To $aArray_After[0][0]
        If IsDeclared($aArray_After[$i][1] & '$') = 0 Then
            $sReturn &= $aArray_After[$i][1] & @CRLF
        EndIf
    Next
    $sReturn = StringTrimRight($sReturn, StringLen(@CRLF))
    Return StringSplit($sReturn, @CRLF, 3)
EndFunc

Edited May 28, 2013 by power1power1

[power1power1]

 

Oh, and here is another array diff function to learn from.

Hi guinness. Do you prefer this one over the other one?

[guinness]

I prefer the first one, but then if you use Obfuscator by Jos it will display a warning (which is valid and correct) so the second version is just a backup.

I only use Asiign and IsDeclared for determining the uniqueness of an array. See >>