[Файловая система] Получить путь к запускаемому файлу

ControlGetText

HotKeySet("+{1}",'_Put') ;Shift+1

While 1
Sleep(20)
WEnd

Func _Put()
Send("{F2}")
$text = WinGetText("[ACTIVE]", "")
MsgBox(0, "", $text)
Endfunc

#include <Array.au3>

$aSelected_Info = _ExplorerGetSelectedItems("[CLASS:CabinetWClass]")
If @error Then Exit MsgBox(48, "Error", "There is no selected items." & @LF & @LF & "OK ==> EXIT")

_ArrayDisplay($aSelected_Info, "_ExplorerGetSelectedItems") 

;[0][0] = Total items count
;[N][0] = Selected element Index
;[N][1] = Selected element is Directory
;[N][2] = Selected element string (full path to the file/dir)
Func _ExplorerGetSelectedItems($sCabinetWClass="[CLASS:CabinetWClass]")
	Local $aRetInfo[1][1]
	Local $aIndexes, $iIndex, $iCount, $sSelected, $sSelected_Path
	Local $hSearch, $sCurrentFile
	
	$sSelected_Path = _GetWindowsExplorerPath(WinGetHandle($sCabinetWClass))
	$sSelected_Path = StringRegExpReplace($sSelected_Path, "\\+$", "")
	$aIndexes = StringSplit(ControlListView($sCabinetWClass, "", "SysListView321", "GetSelected", 1), "|")
	
	If $aIndexes[1] = "" Then
		Return SetError(1, 0, 0)
	EndIf
	
	Dim $aRetInfo[$aIndexes[0]+1][3]
	
	For $i = 1 To $aIndexes[0]
		$sSelected = ControlListView($sCabinetWClass, "", "SysListView321", "GetText", $aIndexes[$i])
		$sCurrentFile = $sSelected_Path & "\" & $sSelected
		
		If Not FileExists($sCurrentFile) Then ;Search the extension for file...
			$hSearch = FileFindFirstFile($sCurrentFile & ".*")
			
			If $hSearch <> -1 Then
				$sCurrentFile = $sSelected_Path & "\" & FileFindNextFile($hSearch)
				FileClose($hSearch)
			EndIf
		EndIf
		
		$aRetInfo[0][0] += 1
		$aRetInfo[$aRetInfo[0][0]][0] = $aIndexes[$i] ;Index
		$aRetInfo[$aRetInfo[0][0]][1] = Number(StringInStr(FileGetAttrib($sCurrentFile), "D") > 0) ;Is Directory
		$aRetInfo[$aRetInfo[0][0]][2] = $sCurrentFile ;Selected file / dir
	Next
	
	If $aRetInfo[0][0] = 0 Then
		Return SetError(2, 0, 0)
	EndIf
	
	ReDim $aRetInfo[$aRetInfo[0][0]+1][3]
	Return $aRetInfo
EndFunc

; ==================================================================================================
; Func _GetWindowsExplorerPath($hWnd)
;
; Function to get the path currently being explored by a Windows Explorer window
;
; $hWnd = Handle to the Windows Explorer window
;
; Returns:
;   Success: String - Path being explored by this window
;   Failure: "" empty string, with @error set:
;      @error = 1 = This is not a valid explorer window
;      @error = 2 = DLL call error, use _WinAPI_GetLastError()
;
; Author: WideBoyDixon
; ==================================================================================================
Func _GetWindowsExplorerPath($hWnd)
    Local $pv, $pidl, $return = "", $ret, $hMem, $pid, $folderPath = DllStructCreate("char[260]"), $className
    Local $bPIDL = False
    Local Const $CWM_GETPATH = 0x400 + 12;

    ; Check the classname of the window first
    $className = DllCall("user32.dll", "int", "GetClassName", "hwnd", $hWnd, "str", "", "int", 4096)
    If @error Then Return SetError(2, 0, "")
    If ($className[2] <> "ExploreWClass" And $className[2] <> "CabinetWClass") Then Return SetError(1, 0, "")
    
    ; Retrieve the process ID for our process
    $pid = DllCall("kernel32.dll", "int", "GetCurrentProcessId")
    If @error Then Return SetError(2, 0, "")

    ; Send the CWM_GETPATH message to the window
    $hMem = DllCall("user32.dll", "lparam", "SendMessage", "hwnd", $hWnd, "int", $CWM_GETPATH, "wparam", $pid[0], "lparam", 0) 
    If @error Then Return SetError(2, 0, "")
    If $hMem[0] = 0 Then Return SetError(1, 0, "")
    
    ; Lock the shared memory
    $pv = DllCall("shell32.dll", "ptr", "SHLockShared", "uint", $hMem[0], "uint", $pid[0])
    If @error Then Return SetError(2, 0, "")
    If $pv[0] Then
        $pidl = DllCall("shell32.dll", "ptr", "ILClone", "uint", $pv[0]) ; Clone the PIDL
        If @error Then Return SetError(2, 0, "")
        $bPIDL = True
        DllCall("shell32.dll", "int", "SHUnlockShared", "uint", $pv) ; Unlock the shared memory
    EndIf
    DllCall("shell32.dll", "int", "SHFreeShared", "uint", $hMem, "uint", $pid) ; Free the shared memory
    
    If $bPIDL Then
        ; Retrieve the path from the PIDL
        $ret = DllCall("shell32.dll", "int", "SHGetPathFromIDList", "ptr", $pidl[0], "ptr", DllStructGetPtr($folderPath))
        If (@error = 0) And ($ret[0] <> 0) Then $return = DllStructGetData($folderPath, 1) ; Retrieve the value
        DllCall("shell32.dll", "none", "ILFree", "ptr", $pidl[0]) ; Free up the PIDL that we cloned
        Return SetError(0, 0, $return) ; Success
    EndIf
    
    Return SetError(2, 0, "") ; Failed a WinAPI call
EndFunc

#include <Array.au3>

$aSelected = _GetSelectedItems()
If @error Then Exit MsgBox(48, "Error", "There is no selected items." & @LF & @LF & "OK ==> EXIT")

_ArrayDisplay($aSelected, "_GetSelectedItems") 

Func _GetSelectedItems($sCabinetWClass = "[CLASS:CabinetWClass]")
	Local $sOrigin_ClipGet = ClipGet()
	ClipPut("")
	
	If ControlSend($sCabinetWClass, "", "SysListView321", "^{INSERT}") = 0 Then
		Return SetError(1, 0, ClipPut($sOrigin_ClipGet))
	EndIf
	
	Local $sClipGet = ClipGet(), $iTimer = TimerInit()
	
	While $sClipGet == "" And TimerDiff($iTimer) < 5000 ;wait 5 seconds and continue
		Sleep(10)
		$sClipGet = ClipGet()
	WEnd
	
	ClipPut($sOrigin_ClipGet)
	
	If $sClipGet == "" Then Return SetError(2, 0, 0)
	Return StringSplit($sClipGet, @LF)
EndFunc

[CLASS:CabinetWClass]

[CLASS:Progman]

$aSelected_Info = _ExplorerGetSelectedItems("[CLASS:Progman]")

Func _ExplorerGetSelectedItems($sCabinetWClass="[CLASS:CabinetWClass]")
	...
    
	$sSelected_Path = _GetWindowsExplorerPath(WinGetHandle($sCabinetWClass))
	If StringInStr($sCabinetWClass, "Progman") Then $sSelected_Path = @DesktopDir
	
	...
EndFunc

#include <Misc.au3>
#include <File.au3>

$sTmp_File = _TempFile()
$sTmp_FileName = StringRegExpReplace($sTmp_File, "^.*\\", "")
_FileCreate($sTmp_File)
_ClipPutFile($sTmp_File)
Sleep(500)
$sText = ControlGetText("[CLASS:#32770]", "FolderView", "Edit1")
ControlSetText("[CLASS:#32770]", "FolderView", "Edit1", "*")
ControlSend("[CLASS:#32770]", "FolderView", "Edit1", "{ENTER}")

WinActivate("[CLASS:#32770]", "FolderView")
WinActivate("[CLASS:#32770]", "FolderView")
WinWaitActive("[CLASS:#32770]", "FolderView")
ControlSend("[CLASS:#32770]", "FolderView", "SysListView321", "+{INS}")
Sleep(200)
ControlSend("[CLASS:#32770]", "FolderView", "SysListView321", "^{INS}")
Sleep(200)
$sPath = ClipGet()
$sPath_FileName = StringRegExpReplace($sPath, "^.*\\", "")
ControlSetText("[CLASS:#32770]", "FolderView", "Edit1", $sText)
If $sTmp_FileName = $sPath_FileName Then FileDelete($sPath)
$sPath = StringRegExpReplace($sPath, "\\[^\\]*$", "")
FileDelete($sTmp_File)

MsgBox(64, 'Title', $sPath)

#include <WinAPI.au3>
_Path()

Func _Path($sCabinetWClass = "[CLASS:CabinetWClass]")
	Local $sOrigin_ClipGet = ClipGet()
	ClipPut("")
	If ControlSend($sCabinetWClass, "", "SysListView321", "^{INSERT}") = 0 Then
		Return SetError(1, 0, ClipPut($sOrigin_ClipGet))
	EndIf
	Local $sClipGet = ClipGet(), $iTimer = TimerInit(), $sRezult
	While $sClipGet == "" And TimerDiff($iTimer) < 5000
		Sleep(10)
		$sClipGet = ClipGet() ; полный путь к выделенному файлу
		MsgBox(0,"",$sClipGet)
	WEnd
	$sPath = StringLeft($sClipGet, StringInStr($sClipGet, "\", 2, -1)) ;получил путь в папку без названия файла

		MsgBox(0, "", $sPath)

EndFunc

ClassnameNN:	DirectUIHWND3

$var = WinList("[REGEXPCLASS:(Explore|Cabinet)WClass]")
$sPath =_GetWindowsExplorerPath($var[1][1]) & "\"