Welcome Guest.   Make a donation to an author on the site May 21, 2013, 09:13:40 PM  *

Please login or register.
Or did you miss your validation email?


Login with username and password (forgot your password?)
Why not become a lifetime supporting member of the site with a one-time donation of any amount? Your donation entitles you to a ton of additional benefits, including access to exclusive discounts and downloads, the ability to enter monthly free software drawings, and a single non-expiring license key for all of our programs.

You must sign up here before you can post and access some areas of the site. Registration is totally free and confidential.
 
The N.A.N.Y. Challenge 2012! Download dozens of custom programs!
   
   Forum Home   Thread Marks Chat! Downloads Search Login Register  
+  DonationCoder.com Forum
|-+  Main Area and Open Discussion
| |-+  General Software Discussion
| | |-+  Capture the address window or file path to the clipboard with hotkey
Pages: [1]   Go Down
« previous next »
  Reply  |  New Topic  |  Print  
Author Topic: Capture the address window or file path to the clipboard with hotkey  (Read 2742 times)
Contro
Participant
*
Posts: 1,280

View Profile Give some DonationCredits to this forum member
« on: June 26, 2012, 04:40:16 PM »
Capture the address window or file path to the clipboard with hotkey

I would like a software for

1. Capture the address of the selected active window to the clipboard with a definable hotkey
2. capture the file path selected to the clipboard with a definable hotkey




Best Regards
Logged
skwire
Charter Member
***
Posts: 3,448



Another Coding Snack request? Om nom nom...

see users location on a map View Profile WWW Give some DonationCredits to this forum member
« Reply #1 on: June 26, 2012, 05:39:14 PM »
Quote from: Contro on June 26, 2012, 04:40:16 PM
1. Capture the address of the selected active window to the clipboard with a definable hotkey

Since you have the active path displayed in the window's titlebar, you can do your first request like this:

Formatted for Autohotkey with the GeSHI Syntax Highlighter [copy or print]
  1. #q:: ; Win+Q, change to your liking.
  2. {
  4. }

Quote from: Contro on June 26, 2012, 04:40:16 PM
2. capture the file path selected to the clipboard with a definable hotkey

The easiest way is probably:

Formatted for Autohotkey with the GeSHI Syntax Highlighter [copy or print]
  1. #c:: ; Win+C, change to your liking.
  2. {
  3.     Clipboard = %Clipboard%
  4. }
Logged
Contro
Participant
*
Posts: 1,280

View Profile Give some DonationCredits to this forum member
« Reply #2 on: June 26, 2012, 08:25:53 PM »
Quote from: skwire on June 26, 2012, 05:39:14 PM
Quote from: Contro on June 26, 2012, 04:40:16 PM
1. Capture the address of the selected active window to the clipboard with a definable hotkey

Since you have the active path displayed in the window's titlebar, you can do your first request like this:

Formatted for Autohotkey with the GeSHI Syntax Highlighter [copy or print]
  1. #q:: ; Win+Q, change to your liking.
  2. {
  4. }

Quote from: Contro on June 26, 2012, 04:40:16 PM
2. capture the file path selected to the clipboard with a definable hotkey

The easiest way is probably:

Formatted for Autohotkey with the GeSHI Syntax Highlighter [copy or print]
  1. #c:: ; Win+C, change to your liking.
  2. {
  3.     Clipboard = %Clipboard%
  4. }



Running
I can't believe would be so simpleeeeeeeeeeeeeee

 Kiss
Logged


[ may-june 2013 ad experiment; click here to learn more about donationcoder.com ]

Contro
Participant
*
Posts: 1,280

View Profile Give some DonationCredits to this forum member
« Reply #3 on: June 26, 2012, 08:44:30 PM »
i am trying this first. But no results

[copy or print]
; 1. Capture the address of the selected active window to the clipboard with a definable hotkey

; Since you have the active path displayed in the window's titlebar, you can do your first request like this:

; Formatted for Autohotkey with the GeSHI Syntax Highlighter [copy or print]
; Skwire
;   !#y:: ; no parece elegible ^#y en ctrl+Win+y, change to your liking. Pruebo con alt
^!u:: ;
    {
       WinGetTitle, Clipboard, A
    }
    Return

In the screenshots I selected the folder path, but the target is copy to the clipboard without it.
Only needed to select the windows folder.

I am doing something bad. Don't copy
I tried also win+1
but the clipboard have wrong.
It seems don't act the command
« Last Edit: June 26, 2012, 08:52:21 PM by Contro » Logged
Contro
Participant
*
Posts: 1,280

View Profile Give some DonationCredits to this forum member
« Reply #4 on: June 27, 2012, 09:21:35 PM »
Repeating

[copy or print]
#q:: ; Win+Q, change to your liking.
    {
       WinGetTitle, Clipboard, A
    }
    Return

Go perfect
Logged
Contro
Participant
*
Posts: 1,280

View Profile Give some DonationCredits to this forum member
« Reply #5 on: June 27, 2012, 09:33:44 PM »
Repeating

[copy or print]
#c:: ; Win+C, change to your liking.
    {
       Clipboard = %Clipboard%
    }
    Return

don't go

I don't understand

clipboard = %clipboard%   ; Convert any copied files, HTML, or other formatted text to plain text.

I position the cursor over one file.

By example :



After applying the script don't appear the clip in my Ditto Clipboard.
Logged
skwire
Charter Member
***
Posts: 3,448



Another Coding Snack request? Om nom nom...

see users location on a map View Profile WWW Give some DonationCredits to this forum member
« Reply #6 on: June 27, 2012, 09:54:02 PM »
Try this:

Formatted for Autohotkey with the GeSHI Syntax Highlighter [copy or print]
  1. #c:: ; Win+C, change to your liking.
  2. {
  3.     SendInput, ^c
  4.     ClipWait, 2
  5.     Clipboard = %Clipboard%
  6. }
Logged
4wd
Supporting Member
**
Posts: 2,486



Light's on but nobody's home.

see users location on a map View Profile Read user's biography. Give some DonationCredits to this forum member
« Reply #7 on: June 27, 2012, 10:39:09 PM »
I'm not sure but I think what Contro is saying is:

a) If no file is selected, return the Window address field to the clipboard.
b) If a file is selected, return the full path of the file.

Feel free to ignore me if I'm wrong smiley

Of course, with my non-knowledge of AutoHK you might have already answered the question, in which case feel free to  trout
Logged
Four wheel drive: Helping you get stuck faster, harder, further from help...........and it's no different on this forum Evil
Contro
Participant
*
Posts: 1,280

View Profile Give some DonationCredits to this forum member
« Reply #8 on: June 28, 2012, 06:14:15 AM »
Quote from: 4wd on June 27, 2012, 10:39:09 PM
I'm not sure but I think what Contro is saying is:

a) If no file is selected, return the Window address field to the clipboard.
b) If a file is selected, return the full path of the file.

Feel free to ignore me if I'm wrong smiley

Of course, with my non-knowledge of AutoHK you might have already answered the question, in which case feel free to  trout

May be that what you are telling is what I must say.

 Grin

It's a good solution, because with one hotkey we can do all the tasks
Logged
Contro
Participant
*
Posts: 1,280

View Profile Give some DonationCredits to this forum member
« Reply #9 on: June 28, 2012, 06:14:43 AM »
Quote from: skwire on June 27, 2012, 09:54:02 PM
Try this:

Formatted for Autohotkey with the GeSHI Syntax Highlighter [copy or print]
  1. #c:: ; Win+C, change to your liking.
  2. {
  3.     SendInput, ^c
  4.     ClipWait, 2
  5.     Clipboard = %Clipboard%
  6. }

Running to try
Best Regards
 Kiss
Logged
Contro
Participant
*
Posts: 1,280

View Profile Give some DonationCredits to this forum member
« Reply #10 on: June 28, 2012, 06:21:10 AM »
A Strange thing. One time goes well. next time fails.

4wd is the best initial idea :

Possibilities with the assigned hotkey .
1. In the active window assigned hotkey copy the active window path to the clipboard
2. In the active window and one subfolder select copy the the subfolder path to the clipboard
3. In the active window and file select inside that folder or explorer window copy the file path to the clipboard.

 tongue
Logged
4wd
Supporting Member
**
Posts: 2,486



Light's on but nobody's home.

see users location on a map View Profile Read user's biography. Give some DonationCredits to this forum member
« Reply #11 on: July 03, 2012, 09:21:28 AM »
I did not write any of this, (except _ExClip function and set a hotkey), it was written by Ascend4ant and Melba23 over on the AutoIt forum.

Thank them if you want to thank someone.

The hotkey is set for Shift+Alt+C, edit the code to change it to what you like.

  • If nothing is selected, the Explorer path is clipped.
  • If something is selected, its full path is clipped.
  • If multiple somethings are selected, only the first one is returned.

Formatted for AutoIt with the GeSHI Syntax Highlighter [copy or print]
  1. ; http://www.autoitscript.com/forum/topic/89833-windows-explorer-current-folder/page__st__40#entry973904
  2. #include <Array.au3>
  3.  
  4. HotKeySet('+!c', '_ExClip') ; Shift+Alt+C
  5.  
  6. Local $oErrorHandler = ObjEvent("AutoIt.Error", "_ComErrFunc")
  7.  
  9. 	Sleep(100)
  11.  
  12.  
  13. Func _ExClip()
  14. 	$hExplr = WinActive("[REGEXPCLASS:(Explore|Cabinet)WClass]")
  15. 	If $hExplr <> '' Then
  16. 		$aSelection = _ExplorerWinGetSelectedItems($hExplr)
  17. 		If $aSelection[0] = 0 Then
  18. 			If StringLeft($aSelection[1], 2) <> '::' Then ClipPut($aSelection[1])
  20. 			ClipPut($aSelection[2])
  24.  
  25.  
  26.  
  27. ; ==========================================================================================================================
  28.  
  29. ; Func _ObjectSHFolderViewFromWin($hWnd)
  30. ;
  31. ; Returns an 'ShellFolderView' Object for the given Window handle
  32. ;
  33. ; Author: Ascend4nt, based on code by KaFu, klaus.s
  34. ; ==========================================================================================================================
  35.  
  36. Func _ObjectSHFolderViewFromWin($hWnd)
  37.     If Not IsHWnd($hWnd) Then Return SetError(1,0,0)
  38.     Local $oShell,$oShellWindows,$oIEObject,$oSHFolderView
  39.  
  40.     ; Shell Object
  41.     $oShell=ObjCreate("Shell.Application")
  42.     If Not IsObj($oShell) Then Return SetError(2,0,0)
  43.  
  44. ;   Get a 'ShellWindows Collection' object
  45.     $oShellWindows = $oShell.Windows()
  46.     If Not IsObj($oShellWindows) Then Return SetError(3,0,0)
  47.  
  48. ;   Iterate through the collection - each of type 'InternetExplorer' Object
  49.  
  50.     For $oIEObject In $oShellWindows
  51.         If $oIEObject.HWND = $hWnd Then
  52.             ; InternetExplorer->Document = ShellFolderView object
  53.             $oSHFolderView=$oIEObject.Document
  54.             If IsObj($oSHFolderView) Then Return $oSHFolderView
  55.             Return SetError(4,0,0)
  56.         EndIf
  57.     Next
  58.  
  59.     Return SetError(-1,0,0)
  61.  
  62. ; ==========================================================================================================================
  63. ; Func _ExplorerWinGetSelectedItems($hWnd)
  64. ;
  65. ;
  66. ; Author: klaus.s, KaFu, Ascend4nt (consolidation & cleanup, Path name simplification)
  67. ; ==========================================================================================================================
  68.  
  69. Func _ExplorerWinGetSelectedItems($hWnd)
  70.     If Not IsHWnd($hWnd) Then Return SetError(1,0,'')
  71.     Local $oSHFolderView
  72.     Local $iSelectedItems,$iCounter=2,$aSelectedItems[2] = [0, ""]
  73.  
  74.     $oSHFolderView=_ObjectSHFolderViewFromWin($hWnd)
  76.  
  77. ;   SelectedItems = FolderItems Collection object->Count
  78.     $iSelectedItems = $oSHFolderView.SelectedItems.Count
  79.  
  80.     Dim $aSelectedItems[$iSelectedItems+2]  ; 2 extra -> 1 for count [0], 1 for Folder Path [1]
  81.  
  82.     $aSelectedItems[0]=$iSelectedItems
  83. ;   ShellFolderView->Folder->Self as 'FolderItem'->Path
  84.     $aSelectedItems[1]=$oSHFolderView.Folder.Self.Path
  85.  
  86. ;   ShellFolderView->SelectedItems = FolderItems Collection object
  87.     $oSelectedFolderItems = $oSHFolderView.SelectedItems
  88.  
  89. #cs
  90.     ; For ALL items in an Explorer Window (not just the selected ones):
  91.     $oSelectedFolderItems = $oSHFolderView.Folder.Items
  92.     ReDim $aSelectedItems[$oSelectedFolderItems.Count+2]
  93. #ce
  94.  
  95.     For $oFolderItem In $oSelectedFolderItems
  96.         $aSelectedItems[$iCounter] = $oFolderItem.Path
  97.         $iCounter += 1
  98.     Next
  99.  
  100.     Return SetExtended($iCounter-2,$aSelectedItems)
  101. EndFunc   ;==>_ExplorerWinGetSelectedItems
  102.  
  103. Func _ComErrFunc($oError)
  104.     ConsoleWrite("COM Error occurred:"  & @CRLF & _
  105.         "Number: " & @TAB & $oError.number & @CRLF & _
  106.         "Windescription:" & @TAB & $oError.windescription & @CRLF & _
  107.         "Description is: " & @TAB & $oError.description & @CRLF & _
  108.         "Source is: " & @TAB & $oError.source & @CRLF & _
  109.         "Helpfile is: " & @TAB & $oError.helpfile & @CRLF & _
  110.         "Helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _
  111.         "Lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _
  112.         "Scriptline is: " & @TAB & $oError.scriptline & @CRLF & _
  113.         "Retcode is: " & @TAB & $oError.retcode & @CRLF & @CRLF)
  114. EndFunc   ;==>_ComErrFunc
« Last Edit: July 03, 2012, 09:30:53 AM by 4wd; Reason: For some reason I appear to be getting grumpier...it\'s not true...honest...maybe it\'s just the way I phrase things...or maybe I haven\'t had enough coffee... » Logged
Four wheel drive: Helping you get stuck faster, harder, further from help...........and it's no different on this forum Evil
Contro
Participant
*
Posts: 1,280

View Profile Give some DonationCredits to this forum member
« Reply #12 on: July 03, 2012, 11:01:44 AM »
Quote from: 4wd on July 03, 2012, 09:21:28 AM
I did not write any of this, (except _ExClip function and set a hotkey), it was written by Ascend4ant and Melba23 over on the AutoIt forum.

Thank them if you want to thank someone.

The hotkey is set for Shift+Alt+C, edit the code to change it to what you like.

  • If nothing is selected, the Explorer path is clipped.
  • If something is selected, its full path is clipped.
  • If multiple somethings are selected, only the first one is returned.

Formatted for AutoIt with the GeSHI Syntax Highlighter [copy or print]
  1. ; http://www.autoitscript.com/forum/topic/89833-windows-explorer-current-folder/page__st__40#entry973904
  2. #include <Array.au3>
  3.  
  4. HotKeySet('+!c', '_ExClip') ; Shift+Alt+C
  5.  
  6. Local $oErrorHandler = ObjEvent("AutoIt.Error", "_ComErrFunc")
  7.  
  9. 	Sleep(100)
  11.  
  12.  
  13. Func _ExClip()
  14. 	$hExplr = WinActive("[REGEXPCLASS:(Explore|Cabinet)WClass]")
  15. 	If $hExplr <> '' Then
  16. 		$aSelection = _ExplorerWinGetSelectedItems($hExplr)
  17. 		If $aSelection[0] = 0 Then
  18. 			If StringLeft($aSelection[1], 2) <> '::' Then ClipPut($aSelection[1])
  20. 			ClipPut($aSelection[2])
  24.  
  25.  
  26.  
  27. ; ==========================================================================================================================
  28.  
  29. ; Func _ObjectSHFolderViewFromWin($hWnd)
  30. ;
  31. ; Returns an 'ShellFolderView' Object for the given Window handle
  32. ;
  33. ; Author: Ascend4nt, based on code by KaFu, klaus.s
  34. ; ==========================================================================================================================
  35.  
  36. Func _ObjectSHFolderViewFromWin($hWnd)
  37.     If Not IsHWnd($hWnd) Then Return SetError(1,0,0)
  38.     Local $oShell,$oShellWindows,$oIEObject,$oSHFolderView
  39.  
  40.     ; Shell Object
  41.     $oShell=ObjCreate("Shell.Application")
  42.     If Not IsObj($oShell) Then Return SetError(2,0,0)
  43.  
  44. ;   Get a 'ShellWindows Collection' object
  45.     $oShellWindows = $oShell.Windows()
  46.     If Not IsObj($oShellWindows) Then Return SetError(3,0,0)
  47.  
  48. ;   Iterate through the collection - each of type 'InternetExplorer' Object
  49.  
  50.     For $oIEObject In $oShellWindows
  51.         If $oIEObject.HWND = $hWnd Then
  52.             ; InternetExplorer->Document = ShellFolderView object
  53.             $oSHFolderView=$oIEObject.Document
  54.             If IsObj($oSHFolderView) Then Return $oSHFolderView
  55.             Return SetError(4,0,0)
  56.         EndIf
  57.     Next
  58.  
  59.     Return SetError(-1,0,0)
  61.  
  62. ; ==========================================================================================================================
  63. ; Func _ExplorerWinGetSelectedItems($hWnd)
  64. ;
  65. ;
  66. ; Author: klaus.s, KaFu, Ascend4nt (consolidation & cleanup, Path name simplification)
  67. ; ==========================================================================================================================
  68.  
  69. Func _ExplorerWinGetSelectedItems($hWnd)
  70.     If Not IsHWnd($hWnd) Then Return SetError(1,0,'')
  71.     Local $oSHFolderView
  72.     Local $iSelectedItems,$iCounter=2,$aSelectedItems[2] = [0, ""]
  73.  
  74.     $oSHFolderView=_ObjectSHFolderViewFromWin($hWnd)
  76.  
  77. ;   SelectedItems = FolderItems Collection object->Count
  78.     $iSelectedItems = $oSHFolderView.SelectedItems.Count
  79.  
  80.     Dim $aSelectedItems[$iSelectedItems+2]  ; 2 extra -> 1 for count [0], 1 for Folder Path [1]
  81.  
  82.     $aSelectedItems[0]=$iSelectedItems
  83. ;   ShellFolderView->Folder->Self as 'FolderItem'->Path
  84.     $aSelectedItems[1]=$oSHFolderView.Folder.Self.Path
  85.  
  86. ;   ShellFolderView->SelectedItems = FolderItems Collection object
  87.     $oSelectedFolderItems = $oSHFolderView.SelectedItems
  88.  
  89. #cs
  90.     ; For ALL items in an Explorer Window (not just the selected ones):
  91.     $oSelectedFolderItems = $oSHFolderView.Folder.Items
  92.     ReDim $aSelectedItems[$oSelectedFolderItems.Count+2]
  93. #ce
  94.  
  95.     For $oFolderItem In $oSelectedFolderItems
  96.         $aSelectedItems[$iCounter] = $oFolderItem.Path
  97.         $iCounter += 1
  98.     Next
  99.  
  100.     Return SetExtended($iCounter-2,$aSelectedItems)
  101. EndFunc   ;==>_ExplorerWinGetSelectedItems
  102.  
  103. Func _ComErrFunc($oError)
  104.     ConsoleWrite("COM Error occurred:"  & @CRLF & _
  105.         "Number: " & @TAB & $oError.number & @CRLF & _
  106.         "Windescription:" & @TAB & $oError.windescription & @CRLF & _
  107.         "Description is: " & @TAB & $oError.description & @CRLF & _
  108.         "Source is: " & @TAB & $oError.source & @CRLF & _
  109.         "Helpfile is: " & @TAB & $oError.helpfile & @CRLF & _
  110.         "Helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _
  111.         "Lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _
  112.         "Scriptline is: " & @TAB & $oError.scriptline & @CRLF & _
  113.         "Retcode is: " & @TAB & $oError.retcode & @CRLF & @CRLF)
  114. EndFunc   ;==>_ComErrFunc

I'll try and comment.
 Kiss
Logged
Contro
Participant
*
Posts: 1,280

View Profile Give some DonationCredits to this forum member
« Reply #13 on: July 03, 2012, 12:09:29 PM »
 tongue

Wonderful.
Wonderfullllllllllllllllllllllllllllllllllll
Logged
gabrielko
Participant
*
Posts: 1

View Profile Give some DonationCredits to this forum member
« Reply #14 on: October 02, 2012, 11:41:06 AM »
This may or may not be significant, it's totally up to you to decide I really did get a quick fix with Long Path Tool. http://PathTooDeep.com  cheesy
Logged
Pages: [1]   Go Up
  Reply  |  New Topic  |  Print  
« previous next »



[ may-june 2013 ad experiment; click here to learn more about donationcoder.com ]


 
Jump to:  
   Forum Home   Thread Marks Chat! Downloads Search Login Register  

DonationCoder.com | About Us
DonationCoder.com Forum | Powered by SMF
[ Page time: 0.332s | Server load: 0.79 ]