How to get last active window?

[raca]

I'm codding a program to close a dialog opened by a program.

I can easily close the dialog.. but i wanna give the focus to the window active before the dialog opened

how can i do it?

[Xenobiologist]

I'm codding a program to close a dialog opened by a program.

I can easily close the dialog.. but i wanna give the focus to the window active before the dialog opened

how can i do it?

HI,

if you have got the title, use WinActivate().

So long,

Mega

[Bundy]

Hi! I wrote something like this

Func getActiveApp()
    $var = WinList()
    For $i = 1 To $var[0][0]
        $active = WinActive($var[$i][0])
        If $active == 1 And $var [$i][0] <> "" Then
            $title = $var[$i][0]
            ExitLoop
        EndIf
    Next
    $aktywne = $title
    Return $aktywne
EndFunc   ;==>getActiveApp

[raca]

but that way the active window is the dialog opened.

i want to give the focus to the previous active window.

is there a simple way to get the list of the windows of the ALT+TAB it has the last active window

[Bundy]

But You can get active window earlier and then WinWaitActive(Your_Dialog_Box). (I think You can )

[dabus]

Bundy is right.

Run this in Scite.

$OldWin=WinGetTitle('')
While 1
    $NewWin = WinGetTitle('')
    If $NewWin='' OR $NewWin = 'program manager' Then ContinueLoop
    If $NewWin = $OldWin Then
        Sleep (100)
    Else
        ConsoleWrite('Old Window was ' & $OldWin&@CR)
        $OldWin=$NewWin
    EndIf   
WEnd    
Exit

[raca]

thanks

here is the script...

it closes the annoying dialog that bores me

$OldWin=WinGetTitle("")
While 1
    If WinExists("Profile storage space") Then
;closes the window
    WinClose("Profile storage space")
;restores the focus
    WinActivate($OldWin)
    Else
    $OldWin=WinGetTitle("")
    EndIf
    Sleep(100)
WEnd

cheers

Edited May 24, 2006 by raca

[Bundy]

You should use some Ad-Aware scanner not write script ;p

[raca]

You should use some Ad-Aware scanner not write script ;p

didn't get it

[raca]

better version

$OldWin=WinGetTitle("")
$oldControl=ControlGetFocus($OldWin)
While 1
    If WinExists("Profile storage space") Then
    ;fecha a janela
        WinClose("Profile storage space")
    ;restora o focus
        ControlFocus ($OldWin,"",$oldControl)
    Else
        $OldWin=WinGetTitle("")
        $oldControl=ControlGetFocus ($OldWin)
    EndIf
    Sleep(100)
WEnd