if !DllCall("shlwapi\PathIsDirectory", Str, FilePath)
      {
         FinalPath := FilePath
         break
      }
      If (FinalPath = "")
         FinalPath := FilePath

F5::
DetectHiddenWindows, on
SetBatchLines, -1
RunAsAdmin()
LoadLibraries()
EnablePrivilege()
If (A_Is64bitOS && (A_PtrSize = 4))
   DllCall("Wow64DisableWow64FsRedirection", "UInt*", OldValue)

Exe_Name := GetExecutableName()

process = %Exe_Name%
; для поиска и файлов и папок заменить на ,avi,mp4,mov
videofiles = ,avi,mp4,mov,djvu,pdf,txt
NotInclude = C:\Windows,C:\Program Files (x86),C:\Windows\System32,C:\Program Files

WinGet, Pid, PID, ahk_exe %process%
GetAllFileHandleInfo(pid, videofiles, NotInclude)
FileRead, All, %A_Temp%\Log.txt
FileDelete, %A_Temp%\Log.txt

All := RegExReplace(All, "s)(.*)(\w:\\.*)", "$1`n$2") ; все пути с новой строки
StringReplace, All, All, C:\Windows, C-\Windows,All
StringReplace, All, All, C:\Program, C-\Program,All
StringReplace, All, All, C:\Users,   C-\Users,All
StringReplace, All, All, C:\Temp,    C-\Temp,All
;All := RegExReplace(All, "m`a)\w-.+")  ; удал. начинающиеся на \w-\
All := RegExReplace(All, "\R+\s*", "") ; удал. пустые строки

MsgBox, % All
return

GetExecutableName() {  ; GetExecutableName := GetExecutableName()
  WinGet, PID_Target, PID, % "ahk_id " WinExist("A")
  ComObjGet("winmgmts:").ExecQuery("Select * from Win32_Process WHERE ProcessId = "
  . PID_Target)._NewEnum.next(x)
  GetExecutableName := % x.Name ;% или Caption
  Return %GetExecutableName%
}

GetAllFileHandleInfo(pid, videofiles, NotInclude) {
   Static hCurrentProc := DllCall("GetCurrentProcess", "UPtr")
   DataArray := []
   If !(SHI := QuerySystemHandleInformation()) {
      MsgBox, 16, Error!, % "Couldn't get SYSTEM_HANDLE_INFORMATION`nLast Error: " . Format("0x{:08X}", ErrorLevel)
      Return False
   }
   HandleCount := SHI.Count
   Loop %HandleCount% {
      ; PROCESS_DUP_HANDLE = 0x40, PROCESS_QUERY_INFORMATION = 0x400
      If !(hProc := DllCall("OpenProcess", "UInt", 0x0440, "UInt", 0, "UInt", SHI[A_Index, "PID"], "UPtr"))
            Continue
      if (SHI[A_Index].PID != pid)
            Continue
      ; DUPLICATE_SAME_ATTRIBUTES = 0x04 (4)
      If !(hObject := DuplicateObject(hProc, hCurrentProc, SHI[A_Index, "Handle"], 4)) {
            DllCall("CloseHandle", "Ptr", hProc)
            Continue
      }
      If (OBI := QueryObjectBasicInformation(hObject))
      && (OTI := QueryObjectTypeInformation(hObject))
      && (OTI.Type = "File")
      && (DllCall("GetFileType", "Ptr", hObject, "UInt") = 1)
      && (ONI := QueryObjectNameInformation(hObject)) {
            ; VarSetCapacity(ProcFullPath, 520, 0)
            ; DllCall("QueryFullProcessImageName", "Ptr", hProc, "UInt", 0, "Str", ProcFullPath, "UIntP", sz := 260) ; NOT COMPATIBLE WITH WINDOWS XP

            FilePath := GetPathNameByHandle(hObject)







            fileappend, %FilePath%`t, %A_Temp%\Log.txt
/*
            if FilePath in %NotInclude%
               Continue
            SplitPath,FilePath,,,ext
            if ext in %videofiles%
            {
               DllCall("CloseHandle", "Ptr", hObject)
               DllCall("CloseHandle", "Ptr", hProc)
               Return FilePath
            }
*/







      }
   }
}



LoadLibraries() {
   DllCall("LoadLibrary", "Str", "Advapi32.dll", "UPtr")
   DllCall("LoadLibrary", "Str", "Ntdll.dll", "UPtr")
   DllCall("LoadLibrary", "Str", "Shell32.dll", "UPtr")
   DllCall("LoadLibrary", "Str", "Iphlpapi.dll", "UPtr")
   DllCall("LoadLibrary", "Str", "psapi.dll", "UPtr")
}

; ==================================================================================================================================
; General functions that can simply be used in other scripts =======================================================================
; ==================================================================================================================================
GetProcessFilePath(hProcess) {
   nSize := VarSetCapacity(lpFilename, 260 * (A_IsUnicode ? 2 : 1), 0)
   If !(DllCall("GetModuleFileNameEx", "Ptr", hProcess, "Ptr", 0, "Str", lpFilename, "UInt", nSize))
      If !(DllCall("psapi.dll\GetModuleFileNameEx", "Ptr", hProcess, "Ptr", 0, "Str", lpFilename, "UInt", nSize))
         Return (ErrorLevel := 2) & 0
   Return lpFilename
}
; ==================================================================================================================================
GetProcessFilePathByPID(PID) {
   If !(hProcess := DllCall("OpenProcess", "UInt", 0x10|0x400, "Int", 0, "UInt", PID, "UPtr"))
      Return (ErrorLevel := 1) & 0
   lpFilename := GetProcessFilePath(hProcess)
   DllCall("CloseHandle", "Ptr", hProcess)
   Return lpFilename
}
; ==================================================================================================================================
GetExtendedTcpTable() {
   ; https://msdn.microsoft.com/en-us/library/aa365928.aspx
   Static AF_INET := 2, TCP_TABLE_OWNER_PID_ALL := 5
   DllCall("Iphlpapi.dll\GetExtendedTcpTable", "Ptr", 0, "UInt*", pdwSize, "Int", 0, "UInt", AF_INET, "UInt", TCP_TABLE_OWNER_PID_ALL, "UInt", 0)
   VarSetCapacity(pTcpTable, pdwSize, 0)
   If (DllCall("Iphlpapi.dll\GetExtendedTcpTable", "Ptr", &pTcpTable, "UInt*", pdwSize, "Int", 0, "UInt", AF_INET, "UInt", TCP_TABLE_OWNER_PID_ALL, "UInt", 0) != 0)
      Return (ErrorLevel := 1) & 0

   Offset := 0, TcpTable := []
   Loop % NumGet(pTcpTable, "UInt") {
      TcpTable[A_Index, "State"] := NumGet(&pTcpTable + (Offset+=4), "UInt")
      TcpTable[A_Index, "LocalAddr"] := NumGet(&pTcpTable + (Offset+=4), "UInt")
      TcpTable[A_Index, "LocalPort"] := NumGet(&pTcpTable + (Offset+=4), "UInt")
      TcpTable[A_Index, "RemoteAddr"] := NumGet(&pTcpTable + (Offset+=4), "UInt")
      TcpTable[A_Index, "RemotePort"] := NumGet(&pTcpTable + (Offset+=4), "UInt")
      TcpTable[A_Index, "OwningPid"] := NumGet(&pTcpTable + (Offset+=4), "UInt")
   }
   Return TcpTable
}
; ==================================================================================================================================
;SetScrollInfo(hwnd, ScrollInfoObj, fnBar:=1, fRedraw:=True) {
;    ; NOT SUPPORTED ON WINDOWS XP
;    ; https://msdn.microsoft.com/en-us/library/windows/desktop/bb787583%28v=vs.85%29.aspx
;    VarSetCapacity(SCROLLINFO, ScrollInfoObj.Size, 0)
;    NumPut(ScrollInfoObj.Size, SCROLLINFO, 0, "UInt") 
;    NumPut(ScrollInfoObj.Mask, SCROLLINFO, 4, "UInt")
;    NumPut(ScrollInfoObj.Min, SCROLLINFO, 8, "Int")
;    NumPut(ScrollInfoObj.Max, SCROLLINFO, 12, "Int")
;    NumPut(ScrollInfoObj.Page, SCROLLINFO, 16, "UInt")
;    NumPut(ScrollInfoObj.Pos, SCROLLINFO, 20, "Int")
;    NumPut(ScrollInfoObj.TrackPos, SCROLLINFO, 24, "Int")
;    Return DllCall("User32.dll\SetScrollInfo", "Ptr", hwnd, "Int", fnBar, "Ptr", &SCROLLINFO)
;}
;; ==================================================================================================================================
;GetScrollInfo(hwnd, fnBar:=1) {
;    ; NOT SUPPORTED ON WINDOWS XP
;    ; https://msdn.microsoft.com/en-us/library/windows/desktop/bb787583%28v=vs.85%29.aspx
;    VarSetCapacity(SCROLLINFO, 28, 0)
;    NumPut(28, SCROLLINFO, 0, "UInt") 
;    NumPut(0x1F, SCROLLINFO, 4, "UInt") ; SIF_ALL
;    If !DllCall("User32.dll\GetScrollInfo", "Ptr", hwnd, "Int", fnBar, "Ptr", &SCROLLINFO)
;        Return False
;
;    ScrollInfoObj := {}
;    ScrollInfoObj.Size := NumGet(SCROLLINFO, 0, "UInt")
;    ScrollInfoObj.Mask := NumGet(SCROLLINFO, 4, "UInt")
;    ScrollInfoObj.Min := NumGet(SCROLLINFO, 8, "Int")
;    ScrollInfoObj.Max := NumGet(SCROLLINFO, 12, "Int")
;    ScrollInfoObj.Page := NumGet(SCROLLINFO, 16, "UInt")
;    ScrollInfoObj.Pos  := NumGet(SCROLLINFO, 20, "Int")
;    ScrollInfoObj.TrackPos := NumGet(SCROLLINFO, 24, "Int")
;
;    Return ScrollInfoObj
;}
; ==================================================================================================================================
OpenProcess(PID := 0, Privileges := -1) {
   Return DllCall("OpenProcess", "Uint", (Privileges = -1) ? 0x1F0FFF : Privileges, "Uint", False, "Uint", PID ? PID : DllCall("GetCurrentProcessId"))
} 

; ==================================================================================================================================
GetIconByPath(Path, FileExists:="") { ; fully qualified file path, result of FileExist on Path (optional)
   ; SHGetFileInfo  -> http://msdn.microsoft.com/en-us/library/bb762179(v=vs.85).aspx
   ; FIXME:
   ;     For 32-bit AHK File System Redirection is automatically enabled when running on a 64-bit OS. 
   ;     So files which exist in Sytem32 (64-bit) but not in SysWOW64 (32-bit) won't be found. 
   ;     Also, all files which exist in both directories might address the wrong file. 
   ;     So the file redirection must be disabled in this case (A_Is64bitOS && (A_PtrSize = 4)).
   Static AW := A_IsUnicode ? "W" : "A"
   Static cbSFI := A_PtrSize + 8 + (340 << !!A_IsUnicode)
   Static IconType := 2
   FileExists := FileExists ? FileExists : FileExist(Path)
   If (FileExists) {
      SplitPath, Path, , , FileExt
      If (InStr(FileExists, "D") || FileExt = "exe" || FileExt = "ico" || FileExt = "") {
         pszPath := Path
         dwFileAttributes := 0x00
         uFlags := 0x0101
      } Else {
         pszPath := "." FileExt
         dwFileAttributes := 0x80
         uFlags := 0x0111
      }
   } Else ; If the file is deleted reutrn an appropriate icon. 
      Return LoadPicture(A_WinDir "\System32\imageres.dll", "Icon85 w16 h16", IconType) ; TODO: find a way to retrieve the icon just once and return it everytime it is needed
      ;TODO: maybe remove this because other scripts might not want to get this icon when the file is not existent

   VarSetCapacity(SFI, cbSFI, 0) ; SHFILEINFO
   DllCall("Shell32.dll\SHGetFileInfo" . AW, "Str", pszPath, "UInt", dwFileAttributes, "Ptr", &SFI, "UInt", cbSFI, "UInt", uFlags, "UInt")
   Return NumGet(SFI, 0, "UPtr")
}
; ==================================================================================================================================
GetPathNameByHandle(hFile) {
   VarSetCapacity(FilePath, 4096, 0)
   DllCall("GetFinalPathNameByHandle", "Ptr", hFile, "Str", FilePath, "UInt", 2048, "UInt", 0, "UInt")
   Return SubStr(FilePath, 1, 4) = "\\?\" ? SubStr(FilePath, 5) : FilePath
}
; ==================================================================================================================================
DuplicateObject(hProc, hCurrentProc, Handle, Options) {
   ; PROCESS_DUP_HANDLE = 0x40, PROCESS_QUERY_INFORMATION = 0x400, DUPLICATE_SAME_ATTRIBUTES = 0x04 (4)
   Status := DllCall("Ntdll.dll\ZwDuplicateObject", "Ptr", hProc
                                    , "Ptr", Handle
                                    , "Ptr", hCurrentProc
                                    , "PtrP", hObject
                                    , "UInt", 0
                                    , "UInt", 0
                                    , "UInt", Options
                                    , "UInt")
   Return (Status) ? !(ErrorLevel := Status) : hObject
}
; ==================================================================================================================================
QueryObjectBasicInformation(hObject) {
   ; ObjectBasicInformation = 0, STATUS_INFO_LENGTH_MISMATCH = 0xC0000004
   Static Size := 56 ; size of OBJECT_BASIC_INFORMATION
   VarSetCapacity(OBI, Size, 0)
   Status := DllCall("Ntdll.dll\ZwQueryObject", "Ptr", hObject, "UInt", 0, "Ptr", &OBI, "UInt", Size, "UIntP", L, "UInt")
   If (Status = 0xC0000004) {
      VarSetCapacity(OBI, L)
      Status := DllCall("Ntdll.dll\ZwQueryObject", "Ptr", hObject, "UInt", 0, "Ptr", &OBI, "UInt", L, "Ptr", 0, "UInt")
   }
   Return (Status) ? !(ErrorLevel := Status)
               : {Attr: NumGet(OBI, 0, "UInt")
               , Access: NumGet(OBI, 4, "UInt")
               , Handles: NumGet(OBI, 8, "UInt")
               , Pointers: NumGet(OBI, 12, "UInt")}
}
; ==================================================================================================================================
QueryObjectTypeInformation(hObject, Size := 4096) {
   ; ObjectTypeInformation = 2, STATUS_INFO_LENGTH_MISMATCH = 0xC0000004
   VarSetCapacity(OTI, Size, 0)
   Status := DllCall("Ntdll.dll\ZwQueryObject", "Ptr", hObject, "UInt", 2, "Ptr", &OTI, "UInt", Size, "UIntP", L, "UInt")
   If (Status = 0xC0000004) {
      VarSetCapacity(OTI, L)
      Status := DllCall("Ntdll.dll\ZwQueryObject", "Ptr", hObject, "UInt", 2, "Ptr", &OTI, "UInt", L, "Ptr", 0, "UInt")
   }
   Return (Status) ? !(ErrorLevel := Status)
               : {Type: StrGet(NumGet(OTI, A_PtrSize, "UPtr"), NumGet(OTI, 0, "UShort") // 2, "UTF-16")}
}
; ==================================================================================================================================
QueryObjectNameInformation(hobject, Size := 4096) {
   ; ObjectNameInformation = 1, STATUS_INFO_LENGTH_MISMATCH = 0xC0000004
   VarSetCapacity(ONI, Size, 0)
   Status := DllCall("Ntdll.dll\ZwQueryObject", "Ptr", hObject, "UInt", 1, "Ptr", &ONI, "UInt", Size, "UIntP", L, "UInt")
   If (Status = 0xc0000004) {
      VarSetCapacity(ONI, L)
      Status := DllCall("Ntdll.dll\ZwQueryObject", "Ptr", hObject, "UInt", 1, "Ptr", &ONI, "UInt", L, "Ptr", 0, "UInt")
   }
   Return (Status) ? !(ErrorLevel := Status)
               : {Name: StrGet(NumGet(ONI, A_PtrSize, "UPtr"), NumGet(ONI, 0, "UShort") // 2, "UTF-16")}
}
; ==================================================================================================================================
QuerySystemHandleInformation() {
   ; SystemHandleInformation = 16, STATUS_INFO_LENGTH_MISMATCH = 0xC0000004
   Static SizeSH := 8 + (A_PtrSize * 2)
   Static Size := A_PtrSize * 4096
   VarSetCapacity(SHI, Size)
   Status := DllCall("Ntdll.dll\NtQuerySystemInformation", "UInt", 16, "Ptr", &SHI, "UInt", Size, "UIntP", L, "UInt")
   While (Status = 0xc0000004) {
      VarSetCapacity(SHI, L)
      Status := DllCall("Ntdll.dll\NtQuerySystemInformation", "UInt", 16, "Ptr", &SHI, "UInt", L, "UIntP", L, "UInt")
   }
   If (Status)
      Return !(ErrorLevel := Status)
   HandleCount := NumGet(SHI, "UInt")
   ObjSHI := {Count: HandleCount}
   Addr := &SHI + A_PtrSize
   Loop, %HandleCount% {
      ObjSHI.Push({PID: NumGet(Addr + 0, "UInt")
            , Type: NumGet(Addr + 4, "UChar")
            , Flags: NumGet(Addr + 5, "UChar")
            , Handle: NumGet(Addr + 6, "UShort")
            , Addr: NumGet(Addr + 8, "UPtr")
            , Access: NumGet(Addr + 8, A_PtrSize, "UInt")})
      Addr += SizeSH
   }
   Return ObjSHI
}
; ==================================================================================================================================
EnablePrivilege(Name := "SeDebugPrivilege") {
   hProc := DllCall("GetCurrentProcess", "UPtr")
   If DllCall("Advapi32.dll\LookupPrivilegeValue", "Ptr", 0, "Str", Name, "Int64P", LUID := 0, "UInt")
   && DllCall("Advapi32.dll\OpenProcessToken", "Ptr", hProc, "UInt", 32, "PtrP", hToken := 0, "UInt") { ; TOKEN_ADJUST_PRIVILEGES = 32
      VarSetCapacity(TP, 16, 0) ; TOKEN_PRIVILEGES
      , NumPut(1, TP, "UInt")
      , NumPut(LUID, TP, 4, "UInt64")
      , NumPut(2, TP, 12, "UInt") ; SE_PRIVILEGE_ENABLED = 2
      , DllCall("Advapi32.dll\AdjustTokenPrivileges", "Ptr", hToken, "UInt", 0, "Ptr", &TP, "UInt", 0, "Ptr", 0, "Ptr", 0, "UInt")
   }
   LastError := A_LastError
   If (hToken)
      DllCall("CloseHandle", "Ptr", hToken)
   Return !(ErrorLevel := LastError)
}
; ==================================================================================================================================
RunAsAdmin() {
   If !(A_IsAdmin) {
      Run % "*RunAs " . (A_IsCompiled ? "" : A_AhkPath . " ") . """" . A_ScriptFullPath . """"
      ExitApp
   }
}