Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Single Post  Topic: PE Viewer 3.0 
Author Message
Orion9



PostPosted: Tue Apr 09, 2024 20:49    Post subject: Reply with quote

iteg
А ведь необязательно загружать библиотеку в окно плагина, можно и отдельным процессом запустить, так даже лучше получается, и вам будет проще.

Сделал, вот, скрипт на скорую руку, посмотреть, что получается. Вроде ничего так.

Code:
#Requires AutoHotkey v2

#SingleInstance Force

#HotIf WinActive("peviewer ahk_class TLister") and   
       InStr(ControlGetClassNN(ControlGetFocus("A")),"TListView") > 0

~LButton::
{
    If (A_ThisHotkey = A_PriorHotkey and A_TimeSincePriorHotkey < 200)
        FileInfo
}

FileInfo()
{

   if StrLen(EnvGet("COMMANDER_EXE")) = 0
   {
      MsgBox "Переменная %COMMANDER_EXE% не определена",, "Iconx"
      Return
   }
   A_Clipboard := ""
   
   Send "^c"
   Sleep(100)
   
   if !ClipWait(1)
   {
       MsgBox "Текст не скопирован в буфер"
       return
   }
   
   if InStr(A_Clipboard, '\') = 0
      Return
     
   f:=name:=''
   Loop Parse, A_Clipboard, ","
      {
        if A_Index = 1
           name:= Trim(A_LoopField)
        if (A_Index = 3)
           f:=Trim(A_LoopField)
      }
      f:= f . name
      f:=StrReplace(f, '`r`n','')
      if not InStr(FileExist(f),'D')
         Run EnvGet("COMMANDER_EXE") ' /S=L:Ppeviewer ' f
      else
         msgbox f 
}
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group