27 replies to this topic

[TheSaint]

I think it would be a great thing to have a function, that returns the path of an existing window - especially an active window. I was looking for a function, something like - WinGetPath().

Path of active window

Edited by TheSaint, 26 June 2006 - 04:24 PM.

[MHz]

Interesting. Wonder if even possible to get the path.

Edit:
Oh, as in a rightclick extension does. That is taken fron that instance then and passed to the registry, then onwards to your application. You can set the path to be sent to your application via the registry from the main branch of the rightclick menu. If you want a submenu, AutoIt would not be able to make a shell extension for that purpose. The registry can pass on the parameters just like the SendTo menu does.

Edited by MHz, 26 June 2006 - 04:38 PM.

[GaryFrost]

beta

$path = _WinGetPath()
MsgBox(0,WinGetTitle(""),$path)

Func _WinGetPath($Title="", $strComputer='localhost')
    $win = WinGetTitle($Title)
    $pid = WinGetProcess($win)
   $wbemFlagReturnImmediately = 0x10
   $wbemFlagForwardOnly = 0x20
   $colItems = ""
   $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
   $colItems = $objWMIService.ExecQuery ("SELECT * FROM Win32_Process WHERE ProcessId = " & $pid, "WQL", _
         $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
   If IsObj($colItems) Then
      For $objItem In $colItems
         If $objItem.ExecutablePath Then Return $objItem.ExecutablePath
      Next
   EndIf
EndFunc

Edited by gafrost, 26 June 2006 - 04:57 PM.

[Skruge]

Nice one, Gary.
I've been looking for this functionality since SAV Corporate started flagging cmdow.exe as a hacktool.

Thanks!

[TheSaint]

Interesting. Wonder if even possible to get the path.

Edit:
Oh, as in a rightclick extension does. That is taken fron that instance then and passed to the registry, then onwards to your application. You can set the path to be sent to your application via the registry from the main branch of the rightclick menu. If you want a submenu, AutoIt would not be able to make a shell extension for that purpose. The registry can pass on the parameters just like the SendTo menu does.

Thanks for your response MHz
I'm not quite sure how to apply what you seem to be saying - but I shall ponder upon it?

[TheSaint]

beta

Thanks gafrost
I will attempt to understand & apply what you have coded ... I think I saw this posted elsewhere (or part of it), but wasn't sure it was what I was looking for ... I guess I need to actually run it & see?

Actually, what I saw elsewhere didn't have a function called _WinGetPath, I think it was mainly dealing with PID's & processes.

Edited by TheSaint, 26 June 2006 - 05:42 PM.

[MHz]

Thanks for your response MHz
I'm not quite sure how to apply what you seem to be saying - but I shall ponder upon it?

My reply was mainly to the path of a highlighted file, rather then a window. So may have been incorrect to your needs. As to get the info from a window on a rightclick would be a nice trick indeed to know with using Autoit. Gary has given some nice code to get it outright of the path from the active window.

[GaryFrost]

Yeah I cut it and changed it from something done along time ago

http://www.autoitscript.com/forum/index.ph...st&p=114302

[TheSaint]

Yeah I cut it and changed it from something done along time ago

http://www.autoitscript.com/forum/index.ph...st&p=114302

Yeah I reckon that's the one I had checked out!

Once again thanks gafrost ... now to work!

[TheSaint]

beta

Hi again gafrost

Well I ran your code with the beta v3.1.1.124
1) I ran it from Scite, and got the Scite path
2) I ran it from the folder I saved the script to, and got C:\Windows\Explorer.exe

However what I was really after, was the folder path of the script - because that was what was open & active - D:\Projects\AutoIt 3\Context Options.

Maybe I've got to change some of your code, or maybe you misunderstood me - what I want to get, is the path of the active window, that being a folder window, not a file one.

I'm not specifically after the script folder - that just happened to be the active one when I double-clicked on the script file. In reality any window could be open & active, if I used a hotkey or shortcut, etc. That's how I want to work with it!

Anyway I'll see if I can modify your code, but I'm quite a newb when it comes to understanding object related code - something that used to drive me nuts in VB.

[WTS]

I know if you did stringreplace it will work unfortunetly it only removes .exe from the return value i'll have to look into stringregexpreplace()

MsgBox(0,'FilePath',_WinGetPath('Untitled - Notepad','localhost'))


Func _WinGetPath($Title="", $strComputer='localhost')
    $win = WinGetTitle($Title)
    $pid = WinGetProcess($win)
   $wbemFlagReturnImmediately = 0x10
   $wbemFlagForwardOnly = 0x20
   $colItems = ""
   $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
   $colItems = $objWMIService.ExecQuery ("SELECT * FROM Win32_Process WHERE ProcessId = " & $pid, "WQL", _
         $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
   If IsObj($colItems) Then
      For $objItem In $colItems
         If $objItem.ExecutablePath Then Return StringReplace($objItem.ExecutablePath,"\notepad.exe", "\",1);StringRegExpReplace ("*\.exe", "*\.exe", "\")
      Next
   EndIf
EndFunc

Edited by WTS, 27 June 2006 - 05:02 AM.

[WTS]

I think I got it!

MsgBox(0,'FilePath',StringRegExpReplace(_WinGetPath('Untitled - Notepad','localhost'), "\A*\.exe", ""))


Func _WinGetPath($Title="",$strComputer='localhost')
    $win = WinGetTitle($Title)
    $pid = WinGetProcess($win)
   $wbemFlagReturnImmediately = 0x10
   $wbemFlagForwardOnly = 0x20
   $colItems = ""
   $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
   $colItems = $objWMIService.ExecQuery ("SELECT * FROM Win32_Process WHERE ProcessId = " & $pid, "WQL", _
         $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
   If IsObj($colItems) Then
      For $objItem In $colItems
         If $objItem.ExecutablePath Then Return $objItem.ExecutablePath;StringRegExpReplace ($objItem.ExecutablePath, "\A*.exe", "") 
      Next
   EndIf
EndFunc

Edited by WTS, 27 June 2006 - 05:19 AM.

[GaryFrost]

AutoIt        expandcollapse  popup

MsgBox(0,'FilePath',_WinGetPath('Untitled - Notepad','localhost'))


Func _WinGetPath($Title="", $strComputer='localhost')
    $win = WinGetTitle($Title)
    $pid = WinGetProcess($win)
   $wbemFlagReturnImmediately = 0x10
   $wbemFlagForwardOnly = 0x20
   $colItems = ""
   $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
   $colItems = $objWMIService.ExecQuery ("SELECT * FROM Win32_Process WHERE ProcessId = " & $pid, "WQL", _
         $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
   If IsObj($colItems) Then
      For $objItem In $colItems
         If $objItem.ExecutablePath Then 
                $path = ""
                $tmp = StringSplit($objItem.ExecutablePath,"\")
                For $x = 1 To $tmp[0] - 1
                    $path &= $tmp[$x] & '\'
                Next
                Return $path
            EndIf
      Next
   EndIf
EndFunc

[GaryFrost]

I think this would be more appropriate, returns more info

AutoIt        expandcollapse  popup

$a_path = _WinGetPath('Untitled - Notepad','', 'localhost')

If Not @error Then
    For $x = 1 To $a_path[0]
        MsgBox(0, 'Window File Path Info:', $a_path[$x])
    Next
EndIf

;*********************************************************
; if error returns empty string and sets error
; returns array containing
; 1 = Title
; 2 = PID
; 3 = Path
; 4 = Exe name
;*********************************************************
Func _WinGetPath($Title = "",$Text="", $strComputer = 'localhost')
    Local $path[5] = [5, "", -1, "", ""]
    If StringLen($Text) > 0 Then
        $path[1] = WinGetTitle($Title,$Text)
    Else
        $path[1] = WinGetTitle($Title)
    EndIf
    $path[2] = WinGetProcess($path[1])
    $wbemFlagReturnImmediately = 0x10
    $wbemFlagForwardOnly = 0x20
    $colItems = ""
    $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
    $colItems = $objWMIService.ExecQuery ("SELECT * FROM Win32_Process WHERE ProcessId = " & $path[2], "WQL", _
            $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
    If IsObj($colItems) Then
        For $objItem In $colItems
            If $objItem.ExecutablePath Then
                $tmp = StringSplit($objItem.ExecutablePath, "\")
                For $x = 1 To $tmp[0] - 1
                    $path[3] &= $tmp[$x] & '\'
                Next
                $path[4] = $tmp[UBound($tmp) - 1]
                Return $path
            EndIf
        Next
    EndIf
    SetError(1)
    Return ""
EndFunc   ;==>_WinGetPath

[TheSaint]

I think this would be more appropriate, returns more info

Sorry people, I've been away a few days. However I have now tried the above examples, but with very little success.

gafrost this is my first line

$a_path = _WinGetPath('Context Options','', 'localhost')

which has the path

D:\Projects\AutoIt 3\Context Options

what I want returned is

D:\Projects\AutoIt 3

Please note that I am not working with an executable ... unless you consider a folder is always opened by C:\Windows\Explorer.exe

I say again, that the window I have open is

D:\Projects\AutoIt 3\Context Options

Using your latest code I get 4 dialogs and an error!

Dialog 1 displays

Context Options

Dialog 2 displays

4084

Dialog 3 displays

C:\Windows\

Dialog 4 displays

Explorer.exe

Then I get an error message

Array variable has incorrect number of subscripts or subscript dimension range exceeded

Edited by TheSaint, 01 July 2006 - 06:09 PM.

[evilertoaster]

so essentailly all you want is WinGetTitle("") and then use stringsplit or other string manamgement to strip it at the first '/' from the right?

Edited by evilertoaster, 01 July 2006 - 06:48 PM.

[TheSaint]

so essentailly all you want is WinGetTitle("") and then use stringsplit or other string manamgement to strip it at the first '/' from the right?

Hi evilertoaster
No that is not always possible, it depends on what the user's folder settings are (as I explained in my first post)

[WTS]

This is not your answer but you dont get an error .. or extra value after the forth

Plain Text        expandcollapse  popup

$a_path = _WinGetPath('Untitled - Notepad','', 'localhost')

If Not @error Then
    For $x = 1 To $a_path[0]
        MsgBox(0, 'Window File Path Info:', $a_path[$x])
    Next
EndIf

;*********************************************************
; Function Name: _WinGetPath()
; Parameter(s): $Title = Window Title
;              $Text = Window Text
;              $strComputer = Computer Name
; Return Value(s): 1 = Title
;                 2 = PID
;                 3 = Path
;                 4 = Exe name
; Comment(s):  If error returns empty string and sets error
;             returns array containing
; Author(s): Gary Frost
;*********************************************************
Func _WinGetPath($Title = "",$Text="", $strComputer = 'localhost')
    Local $path[5] = [4, "", -1, "", ""]
    If StringLen($Text) > 0 Then
        $path[1] = WinGetTitle($Title,$Text)
    Else
        $path[1] = WinGetTitle($Title)
    EndIf
    $path[2] = WinGetProcess($path[1])
    $wbemFlagReturnImmediately = 0x10
    $wbemFlagForwardOnly = 0x20
    $colItems = ""
    $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
    $colItems = $objWMIService.ExecQuery ("SELECT * FROM Win32_Process WHERE ProcessId = " & $path[2], "WQL", _
            $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
    If IsObj($colItems) Then
        For $objItem In $colItems
            If $objItem.ExecutablePath Then
                $tmp = StringSplit($objItem.ExecutablePath, "\")
                For $x = 1 To $tmp[0] - 1
                    $path[3] &= $tmp[$x] & '\'
                Next
                $path[4] = $tmp[UBound($tmp) - 1]
                Return $path
            EndIf
        Next
    EndIf
    SetError(1)
    Return ""
EndFunc ;==>_WinGetPath

the least you can do is thank us for trying... 8)

Edited by WTS, 01 July 2006 - 09:02 PM.

[TheSaint]

This is not your answer but you dont get an error .. or extra value after the forth

Thanks WTS
You are right on both accounts!

the least you can do is thank us for trying... 8)

Once again, Thanks WTS (sorry ... forgot to add your name in one of the last posts, but it was also meant for you ... your efforts & others are always appreciated!)

Edited by TheSaint, 01 July 2006 - 09:25 PM.

[TheSaint]

Once again, Thanks WTS (sorry ... forgot to add your name in one of the last posts, but it was also meant for you ... your efforts & others are always appreciated!)

Actually, I just had a look again, and realised that I'd forgotten to put any thanks at all ... though I certainly meant to ... oops silly me!

Once again, thank you to everybody who's ever replied to any of my requests ... whether they were ultimately helpful or not ... just the fact that you read my post, and then said something, warrants a thanks in my book!

HAPPY CODING!