GetParentHandle()

[AznSai 0]

Simple function to recieve the handle of the parent window of a child window (That was a bit confusing)

Func GetParentHandle($ChildHwnd)
    Local $ParentLong = DllCall("user32.dll","long","GetWindowLong","hwnd",$ChildHwnd,"int",-8)
    If $ParentLong[0] = 0 Then SetError(1)
    Local $ParentHwnd = String($ParentLong[0])
    Return HWnd($ParentHwnd)
EndFunc

And an example:

Dim $ChildhWnd = WinGetHandle("Child Window Text")
Dim $ParenthWnd = GetParentHandle($ChildhWnd)
If @error <> 0 Then Exit
WinSetState($ParenthWnd,"",@SW_MINIMIZE)

Sorry if this has been done before

Edited September 18, 2005 by AznSai

[w0uter 1]

Func GetParentHandle($ChildHwnd)
    Local $ParentLong = DllCall("user32.dll","long","GetWindowLong","hwnd",$ChildHwnd,"int",-8)
    If @ERROR <> 0 OR $ParentLong[0] = 0 Then 
        SetError(1)
        Return 0
    EndIf
    Return HWnd($ParentLong[0])
EndFunc

works a bit better IMO.

[AznSai 0]

Func GetParentHandle($ChildHwnd)
    Local $ParentLong = DllCall("user32.dll","long","GetWindowLong","hwnd",$ChildHwnd,"int",-8)
    If @ERROR <> 0 OR $ParentLong[0] = 0 Then 
        SetError(1)
        Return 0
    EndIf
    Return HWnd($ParentLong[0])
EndFunc

works a bit better IMO.

Thanks for that, it's the only way I'll learn :">

[jefhal 3]

Return HWnd($ParentLong[0])

Oddly, I got an error that HWnd was not found, until I re-re-installed Scite and the re-installed the Scite update to beta 75.

Edited September 18, 2005 by jefhal

[AznSai 0]

my attempt

Func _WinGetParent( $WGP_hwnd )
   $ret = DLLCall( "User32.dll", "hwnd", "GetParent", "hwnd", $WGP_hwnd)
   Return $ret[0]
EndFunc

Your's might be able to do what mine does in less code, but my code looks better

Lol im just a sore loser...

[WSCPorts 0]

Func _WinSetParent($OldHwnd, $NewHwnd)
$ret = DllCall("User32.dll", "hwnd", "SetParent", "hwnd", $OldHwnd, "hwnd", $NewHwnd)
If @error <> 0 then
SetError(1)
Return 0
ElseIf isHwnd($ret[0])  Then 
Return $ret[0]
Else
SetError(1)
Return 0
EndIf
EndFunc


Func _WinGetParent( $WGP_hwnd )
$ret = DLLCall( "User32.dll", "hwnd", "GetParent", "hwnd", $WGP_hwnd)
If @error <> 0 then
SetError(1)
Return 0
ElseIf isHwnd($ret[0])  Then 
Return $ret[0]
Else
SetError(1)
Return 0
EndIf
EndFunc

i like both of em

@ w0oter :is that better?

Edited September 19, 2005 by WSCPorts

[w0uter 1]

you should first check for @error and then try to access $ret.

becouse if there is an error $ret isnt an array and your script will crash.