;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
; Total Commander DreamLair ;
; Script: Copy-move without confirmation ;
; Script version: 2.0 (2018.10.20) ;
; Script author: LonerD ;
; Site: https://dreamlair.net ;
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
; Parameter: ;
; m or move - move files ;
; any another - copy files ;
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
#NoEnv
#NoTrayIcon
#SingleInstance ignore
SetKeyDelay, 20, 20
if not ( WinExist("ahk_class TTOTAL_CMD") || WinActive("ahk_class TTOTAL_CMD") )
ExitApp
WinGet, hw_TTOTAL_CMD, ID, A
CopyMove = %1%
if ( ( CopyMove = "m" ) || ( CopyMove = "move" ) )
cm := 1005
else
cm := 3101
Gosub, SetTC3264
ButtonOK := TC3264 = 32 ? "TButton6" : "Button12"
PostMessage, 0x433, % cm,,, ahk_class TTOTAL_CMD
WinWait, ahk_class TInpComboDlg
Sleep, 20
SendMessage, 0x201,,, % ButtonOK, ahk_class TInpComboDlg
SendMessage, 0x202,,, % ButtonOK, ahk_class TInpComboDlg
ExitApp
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
; Total Commander Architecture (32 or 64 bit) ;
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
SetTC3264:
if ( A_Is64bitOS = 0 )
TC3264 := 32
else
{
WinGet, TCControls, ControlList, % "ahk_id " hw_TTOTAL_CMD
Loop, Parse, TCControls, `n, `r
{
if ( A_LoopField ~= "ListBox(1|2|3)" )
{
TC3264 := A_LoopField ~= "TMyListBox(1|2|3)" ? 32 : 64
break
}
}
}
Return
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
|
