[Файловая система] Мониторинг копирования с папки
- Автор темы ZanMax
- Дата начала
- Сообщения
- 7,790
- Репутация
- 2,322
ZanMax,
Попробуйте так, у меня работает (ХР 32).
Попробуйте так, у меня работает (ХР 32).
Код:
#NoTrayIcon
Global $sClipGetOld, $sFolderCheck = @ScriptDir & '\minus'
HotKeySet('{Esc}', '_Exit')
AdlibRegister('_CheckCopyFromFolder', 500)
While 1
Sleep(1000)
WEnd
Func _Exit()
Exit
EndFunc ;==>_Exit
Func _CheckCopyFromFolder()
Local $s_ClipGet, $s_Text, $a_Text, $s_FileLog = @ScriptDir & '\' & @MDAY & '_' & @MON & '_' & @YEAR & '.txt'
$s_ClipGet = ClipGet()
If $sClipGetOld <> $s_ClipGet Then
$sClipGetOld = $s_ClipGet
If StringInStr($s_ClipGet, $sFolderCheck) Then
$a_Text = StringSplit($s_ClipGet, @LF)
For $i = 1 To $a_Text[0]
$s_Text &= StringFormat('Time: %s:%s:%s\tCopy:\t%s\r\n', @HOUR, @MIN, @SEC, $a_Text[$i])
Next
;ClipPut('');если раскомментировать, то не даст копировать
FileWrite($s_FileLog, $s_Text)
EndIf
EndIf
EndFunc ;==>_CheckCopyFromFolder
